Routine: PSXVIEW

Information

PSXVIEW ;BIR/HTW-CMOP Data for View Prescription ;[ 02/02/98 7:46 AM ]

Source file <PSXVIEW.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$S($G(PSXTST)=3:PSXTCAN,$G(PSXTST)=1:$G(PSXRDT),1:$G(PSXTRDT)) Line Location: PRINT+1
Function Call: WRITE	Prompt: ?15,$S(PSXFIL=0:"ORIG",1:"REF "_$G(PSXFIL)) Line Location: PRINT+2
Function Call: WRITE	Prompt: ?22,$G(PSXBREF) Line Location: PRINT+3
Function Call: WRITE	Prompt: ?36,$G(PSXT) Line Location: PRINT+4
Function Call: WRITE	Prompt: ?42,$S($G(PSXTST)=3:$E($G(PSXCAN),1,35),$G(PSXNDC)]"":"NDC: "_PSXNDC,1:"") Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF Line Location: PSXLOT+2
Function Call: WRITE	Prompt: "CMOP LOT#/EXPIRATION DATE LOG:" Line Location: PSXLOT+3
Function Call: WRITE	Prompt: !,"RX REF",?20,"LOT #",?40,"EXPIRATION DATE",! Line Location: PSXLOT+4
Function Call: WRITE	Prompt: ! Line Location: PSXLOT+6
Function Call: WRITE	Prompt: ! Line Location: JUMP+0
Function Call: WRITE	Prompt: @IOF,"CMOP EVENT LOG:" Line Location: HEADER+1
Function Call: WRITE	Prompt: !,"DATE",?15,"RX REF",?22,"TRN-ORDER #",?36,"STAT",?42,"COMMENTS" Line Location: HEADER+2
Function Call: WRITE	Prompt: ! Line Location: HEADER+3
Function Call: WRITE	Prompt: "=" Line Location: HEADER+3
Function Call: WRITE	Prompt: "=" Line Location: Z1+0