Look at this:
Guys, what's the point of doing any refactoring if the code is going
to be as inscrutable as before?
MAKEUS^SDAMAPI2(RETURN,DFN,SC,SD,TYP,STYP,CIO) ; Make unscheduled
appointment
N SCAP,STAT,%,TYPE,S,CLN,SM
K RETURN S RETURN=0
S:$D(TYP) TYPE=+TYP S:$G(SD)="" SD=$$NOW^XLFDT()
I +$G(SD)=0!'($G(SD)#1) S RETURN=0,TXT(1)="SD" D
ERRX^SDAPIE(.RETURN,"INVPARAM",.TXT) Q 0
S %=$$CHKAPTU(.RETURN,.SC,.DFN,.SD,,,1) Q:RETURN=0 0
S %=$$CHKTYPE^SDMAPI5(.RETURN,+DFN,.TYP) Q:'% 0
S %=$$CHKSTYP^SDMAPI5(.RETURN,$G(TYP),.STYP) Q:'% 0
I +SD>$$FMADD^XLFDT(DT,1) S RET
22 comment(s)
