Routine: PSOUTLA

Information

PSOUTLA ;BHAM ISC/AMC - pharmacy utility program ;07/24/96 1:13 pm

Source file <PSOUTLA.m>

Name	Comments	DBIA/ICR reference
CHK
CHK1
ZIPIN	; input transform for ZIP field in file #59 internal format (no '-'s) ; Input: X as user entered value ; Output: X as internal value of user input OR ; undefined if input from user was invalid
ZIPOUT	; output transform for ZIP - prints either ZIP or ZIP+4 (in 12345-1234) ; format. ; Input: Y internal value ; Output: Y external (12345 or 12345-1234)
YN	;YES/NO PROMPT
DAYS	;
EDNEW	;
STATDAY
EDSTAT
PARKILL
SETUP	;enter/edit clinic sort groups
SETUPX
FSIG(PSOFILE,PSOINTR,PSOLENTH)	;Format front door sig
FSTART
FQUIT
DRUGW	;
HLNEW	;formats provider instructions in FSIG for front door order
HLNEWX	;
SUSFDS	;
SUSFDK	;
ADD	;enter/edit automated devices - OPAI
ADDX
FLDTINTR(FILLTYPE)	; Input Transform for FILL DATE, REFILL DATE and PARTIAL DATE fields in the PRESCRIPTION file (#52)
FLDTHELP(FILLTYPE)	; Executable Help for FILL DATE, REFILL DATE and PARTIAL DATE fields in the PRESCRIPTION file (#52)

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,$C(7)," # ",PSPR," is not a valid choice." Line Location: CHK+0
Function Call: WRITE	Prompt: !?10,$C(7),"RX# ",$P(^PSRX(+$P(PY(PSPR),"^"),0),"^")," is a duplicate choice." Line Location: CHK+1
Function Call: WRITE	Prompt: !!,$C(7),"RX# "_$P(^PSRX(PSPRXN,0),"^")_" is not a valid choice. (Different Division)",! Line Location: CHK1+0
Function Call: WRITE	Prompt: ! Line Location: CHK1+3
Function Call: WRITE	Prompt: !?5,"'Y' FOR YES",!?5,"'N' FOR NO",! Line Location: YN+1
Function Call: WRITE	Prompt: ! Line Location: SETUP+1
Function Call: WRITE	Prompt: ?35,"NO SUCH WARNING LABEL" Line Location: DRUGW+1
Function Call: WRITE	Prompt: ! Line Location: ADD+1