Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$HTE^XLFDT  
Controlled Substances 3 DEV^PSDBAN1  START^PSDNSCG  ^PSDSET  
VA FileMan 2 ^DIC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Controlled Substances 3 PSD NAOU BALANCE REPORT  PSDADJC  PSDADJIN  

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

External References

Name Field # of Occurrence
^%ZIS DEV+2
HOME^%ZIS DEV+3
^%ZISC END+2
^%ZTLOAD DEV+3
^DIC ASKN+3, DRUG+2
^DIR ALL+6, DONE+1, HDR+1
DEV^PSDBAN1 ALL+7
START^PSDNSCG END
^PSDSET PSDBAN+2
$$HTE^XLFDT PRINT+1

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
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • DIC
  • Line Location:
    • ASKN+3
    • DRUG+2
Routine Call
  • DIR
  • Line Location:
    • ALL+6
    • DONE+1
    • HDR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] DRUG+2, START+5, START+6
^PSDRUG - [#50] DRUG+2, START+6
^TMP("PSDNST" START+4!, START+6*, PRINT+2, PRINT+3, END+1!
^TMP("PSDNSU" END+1!
^XUSEC("PSD NURSE" PSDBAN+3
^XUSEC("PSJ PHARM TECH" PSDBAN+3
^XUSEC("PSJ RNURSE" PSDBAN+3
^XUSEC("PSJ RPHARM" PSDBAN+3

Label References

Name Line Occurrences
DEV ALL+7
END ASKN+3, ALL+6, DRUG+2, DEV+2, DEV+3, PRINT+2, PRINT+4
HDR PRINT+2
SAVE DEV+3

Naked Globals

Name Field # of Occurrence
^(0 DRUG+2, START+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%H END!
%I END!
%ZIS DEV+2!*, END!
%ZIS("B" DEV+2*
ALL ALL+6*, ALL+7, END!
DA ASKN+1!, ALL+2!, DRUG+1!, END!, HDR+1!
DA(1 DRUG+2*
DIC ASKN+1!, ASKN+2*, ASKN+3!, DRUG+1!, DRUG+2*!, END!
DIC("A" ASKN+2*
DIC("B" ASKN+2*
DIC("S" ASKN+3*
DIC("W" DRUG+1*
DIC(0 ASKN+2*, DRUG+2*
DIR ALL+2!, ALL+6!, DONE+1!, END!, HDR+1!
DIR("?" ALL+5*
DIR("A" ALL+4*, DONE+1*
DIR("B" ALL+4*
DIR(0 ALL+3*, DONE+1*, HDR+1*
DIROUT END!
DIRUT ALL+2!, ALL+6, DONE+1!, END!
DTOUT END!
DUOUT END!
DUZ PSDBAN+3
IO START+3
IO("Q" DEV+2!, DEV+3!
IOF DONE, HDR+2
IOP DEV+2!
IOST DONE, DONE+1, HDR+1
LN PRINT+2!*, END!, HDR+4
>> NAOU ASKN+4*, DRUG+2, START+5, START+6
>> NAOUN ASKN+2, ASKN+4*, HDR+2
NODE END!
OK PSDBAN+3*, END!
ORD END!
PG PRINT+1*, END+1!, HDR+1, HDR+2*
POP DEV+2!, END+1!
PSDOUT PRINT+1*, PRINT+3, PRINT+4, DONE+1, END+1!, HDR+1*
PSDPN END+1!
PSDR PRINT+3*, END+1!, SAVE
PSDRN END+1!
PSDRUG START+4~*, START+5*, START+6
PSDRUGN START+4~*
>> PSDSITE PSDBAN+2
PSDST END+1!
PSDT END+1!
QTY END+1!
REQ END+1!
RPDT PRINT+1*, END+1!, HDR+2
STAT END+1!
STATN END+1!
U DRUG+2, START+5, START+6
X END+1!
X1 END+1!
X2 END+1!
Y ASKN+3, ASKN+4, ALL+6, DRUG+2, END+1!, HDR+1
ZTDESC DEV+3*, END+1!
ZTDTH DEV+3!, END+1!
ZTIO DEV+3!
>> ZTQUEUED END, END+2
>> ZTREQ END+2*
ZTRTN DEV+3*, END+1!
ZTSAVE DEV+3!, END+1!
ZTSAVE("ALL" SAVE*
ZTSAVE("NAOU" SAVE*
ZTSAVE("NAOUN" SAVE*
ZTSAVE("PSDR" SAVE*
ZTSK DEV+3!, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All