Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSDBAN

Package: Controlled Substances

Routine: PSDBAN


Information

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

Source Information

Source file <PSDBAN.m>

Entry Points

Name Comments DBIA/ICR reference
ASKN ;ask naou
ALL ;asks for all orders
DRUG ;select drugs
DEV ;ask device and queue info
START ;loops thru DRUGS
PRINT ;prints the report
DONE
END
HDR ;header for log
SAVE

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls