Routine: PSDBAN

Information

PSDBAN ;BIR/JPW,LTL-Nurse BAL Report ; 8 Aug 94

Source file <PSDBAN.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"print this report.",! Line Location: PSDBAN+4
Function Call: WRITE	Prompt: ! Line Location: ALL+2
Function Call: WRITE	Prompt: ! Line Location: DRUG+1
Function Call: WRITE	Prompt: !!,"Balance: ",$P($G(^PSD(58.8,NAOU,1,+Y,0)),U,4)," ",$S($P($G(^PSD(58.8,NAOU,1,+Y,0)),U,8)]"":$P($G(^(0)),U,8),1:$P($G(^PSDRUG(+Y,660)),U,8)),!! Line Location: DRUG+2
Function Call: WRITE	Prompt: !!,"You may queue this report to print at a later time.",!! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+2
Function Call: WRITE	Prompt: !!,"Give me a second or two to alphabetize.",! Line Location: START+2
Function Call: WRITE	Prompt: !!,?10,"** NO BALANCES TO REPORT **" Line Location: PRINT+2
Function Call: WRITE	Prompt: !,?2,"=> ",PSDR,?62,$G(^TMP("PSDNST",$J,PSDR)),! Line Location: PRINT+3
Function Call: WRITE	Prompt: ?2,"=> ",PSDR,?62,$G(^TMP("PSDNSU",$J,PSDR)),! Line Location: PRINT+6
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: ! Line Location: DONE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?25,"Controlled Substance Balances",?70,"Page: ",PG,!,?35,NAOUN,!,?25,RPDT,! Line Location: HDR+2
Function Call: WRITE	Prompt: !,?2,"=> DRUG",?62,"QUANTITY",! Line Location: HDR+3
Function Call: WRITE	Prompt: !,LN,! Line Location: HDR+4