Routine: PSOVER

Information

PSOVER ;BIR/SAB - verify rx's by clerk ;07/03/95

Source file <PSOVER.m>

Name	Comments	DBIA/ICR reference
PAT
L1
SHOW
SHOW2	;
CLERK
CL1
CL2
PATCHK
PACK
QUIT
END
DSPL	;
DGDGI	;process drug interaction for non verified rxs
DONE	;
DONEX
OERR	;
PPL
EOJ
EOJ2	;
LPAT	;
ULP	;
LRX	;
ULRX	;
LK1	;
ULK1	;
ULB	;
SAVE	;

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"Pharmacy Division Must be Selected!",! Line Location: PSOVER+4
Function Call: WRITE	Prompt: !,$C(7),"This patient has no prescriptions on file",!! Line Location: SHOW+0
Function Call: WRITE	Prompt: !,$P(^DPT(DFN,0),"^"),?40,"ID#:"_VA("PID") Line Location: SHOW+2
Function Call: WRITE	Prompt: " RX#: "_$S($D(INT):$P(INT,"^"),$D(^PSRX(PSONV)):$P(^PSRX(PSONV,0),"^"),1:"") Condition for execution: $D(INT)!$D(PSONV) Line Location: SHOW+2
Function Call: WRITE	Prompt: ! Line Location: SHOW2+4
Function Call: WRITE	Prompt: @IOF Line Location: SHOW2+5
Function Call: WRITE	Prompt: $C(7),!!,"Pharmacy Division Must be Selected!",! Line Location: CLERK+0
Function Call: WRITE	Prompt: ! Line Location: CLERK+2
Function Call: WRITE	Prompt: $C(7),$C(7) Line Location: OERR+2
Function Call: WRITE	Prompt: $C(7),$C(7) Line Location: OERR+5
Function Call: WRITE	Prompt: "for patient "_$P($G(^DPT(PSDFN,0)),"^")_".",! Line Location: LRX+3