Routine: PSALOG2

Information

PSALOG2 ;BIR/LTL-Post Drug Procurement History ;7/23/97

Source file <PSALOG2.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PSALOG2+15
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: PSALOG2+16
Function Call: WRITE	Prompt: ?9,$J(PSA(8),3) Line Location: GO+16
Function Call: WRITE	Prompt: X Line Location: GO+18
Function Call: WRITE	Prompt: X Line Location: GO+19
Function Call: WRITE	Prompt: ?50,$S($L(Y)=11:$E(Y,1,6),$L(Y)=10:$E(Y,1,5),1:"UNKNOWN") Line Location: GO+20
Function Call: WRITE	Prompt: !,PSALN,!,$J(PSA(99),3),?9,$J(PSA(9),3) Line Location: GO+22
Function Call: WRITE	Prompt: ?16,"<TOTALS>",?34,X Line Location: GO+22
Function Call: WRITE	Prompt: !,"Sorry, no procurements for that month!",! Line Location: GO+23
Function Call: WRITE	Prompt: ! Line Location: END+1
Function Call: WRITE	Prompt: ! Line Location: END+6
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!" Line Location: END+7
Function Call: WRITE	Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"." Line Location: HEADER+1
Function Call: WRITE	Prompt: !,?2,"WAREHOUSE DRUG PROCUREMENTS FOR ",PSA(13),?70,"PAGE: ",PSAPG,!,PSALN Line Location: HEADER+3