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: PSDBAN1

Package: Controlled Substances

Routine: PSDBAN1


Information

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

Source Information

Source file <PSDBAN1.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$HTE^XLFDT  
Controlled Substances 1 ^PSDRPGS3  
VA FileMan 1 ^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: 1

Package Total Caller Graph
Controlled Substances 1 PSDBAN  

Entry Points

Name Comments DBIA/ICR reference
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
^DIR DONE+1, HDR+1
^PSDRPGS3 PRINT+3
$$HTE^XLFDT PRINT+1

Interaction Calls

Name Line Occurrences
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+1
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: @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: !,?5,"Controlled Substance Balances, Contingency Report",?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
  • DIR
  • Line Location:
    • DONE+1
    • HDR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] START+3, START+4
^PSDRUG - [#50] START+4
^TMP("PSDNST" START+2!, START+4*, PRINT+2, PRINT+3

Label References

Name Line Occurrences
END DEV+2, DEV+3, PRINT+2
HDR PRINT+2, PRINT+3
SAVE DEV+3

Naked Globals

Name Field # of Occurrence
^(0 START+4

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 END!
DA END!, HDR+1!
DIC END!
DIR DONE+1!, END!, HDR+1!
DIR("A" DONE+1*
DIR(0 DONE+1*, HDR+1*
DIROUT END!
DIRUT DONE+1!, END!
DTOUT END!
DUOUT END!
IO DEV+4
IO("Q" DEV+2!, DEV+3!
IOF DONE, HDR+2
IOP DEV+2!
IOSL PRINT+3
IOST DONE, DONE+1, HDR+1
LN PRINT+2!*, END!, HDR+4
>> NAOU START+3, START+4
>> NAOUN HDR+2
NODE END!
OK END!
ORD END!
PG PRINT+1*, END+1!, HDR+1, HDR+2*
POP DEV+2!, END+1!
PSDOUT PRINT+1*, PRINT+3, DONE+1, END+1!, HDR+1*
PSDPN END+1!
PSDR PRINT+3*, END+1!, SAVE
PSDRN END+1!
PSDRUG START+2~*, START+3*, START+4
PSDRUGN START+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 START+3, START+4
X END+1!
X1 END+1!
X2 END+1!
Y END+1!, HDR+1
ZTDESC DEV+3*, END+1!
ZTDTH DEV+3!, END+1!
ZTIO DEV+3!
>> ZTQUEUED 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