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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSDLBLB

Package: Controlled Substances

Routine: PSDLBLB


Information

PSDLBLB ;B'ham ISC/JPW - CS Print for Patient ID List ; 2 Mar 94

Source Information

Source file <PSDLBLB.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 ^DIC  GETS^DIQ  ^DIR  
Kernel 2 ^%ZISC  $$HTE^XLFDT  
Registration 1 (DEM,INP,KVAR)^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDLBLP  

Entry Points

Name Comments DBIA/ICR reference
ASKN ;ask nursing location
END ;kill variables and exit
HDR ;prints header information
WARD2
DONE
PRINT ;print labels
SAVE ;save queued variables

External References

Name Field # of Occurrence
^%ZISC END+5
^DIC ASKN+2
GETS^DIQ ASKN+4
^DIR DONE+1, HDR+1
DEM^VADPT PSDLBLB+3
INP^VADPT PSDLBLB+4
KVAR^VADPT END+1
$$HTE^XLFDT HDR+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?15,"**** NO PATIENT WARD INFO ****",!!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: @PSDBAR1,$P(NODE,"^"),@PSDBAR0,!!
  • Line Location: PRINT+8
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: !,"Patient ID List for "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: PSD(1)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $S($G(PSD2)]"":PSD2,$G(PSDN)]"":PSDN,$G(NAOUN)]"":NAOUN,$O(PSDW(""))]"":$O(PSDW("")),1:"")
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: " Printed: ",$$HTE^XLFDT($H,"P"),?70,"Page: ",PG,!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "PATIENT",?45,"ROOM-BED",!,LN,!!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKN+2
Function Call: WRITE
  • Prompt: !!,"Compiling Ward data for ",NAOUN,"..."
  • Line Location: WARD2+0
Routine Call
  • DIC
  • Line Location:
    • ASKN+2
Routine Call
  • DIR
  • Line Location:
    • DONE+1
    • HDR+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^NURSF(211.4 - [#211.4] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] WARD2+2, WARD2+3
^DPT - [#2] PSDLBLB+2
^DPT("ACN" PSDLBLB+2
^PSD(58.8 - [#58.8] WARD2+1
^SC - [#44] ASKN+3
^TMP("PSDLBLP" PSDLBLB+6*, PRINT+2, PRINT+4, PRINT+5, END+4!

Label References

Name Line Occurrences
DONE PRINT+2
HDR PRINT+2, PRINT+3, PRINT+5, PRINT+6

Naked Globals

Name Field # of Occurrence
^( PRINT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+2!
%H END+2!
%ZIS END+2!
ANS END+2!
DA END+2!, HDR+1!, ASKN+1!
DFN PSDLBLB+3*, PSDLBLB+5!, END+2!
DIC END+2!, ASKN+1!*, ASKN+2!
DIC("A" ASKN+1*
DIC(0 ASKN+1*
DIR DONE+1!, END+2!, HDR+1!
DIR("A" DONE+1*
DIR(0 DONE+1*, HDR+1*
DIROUT END+2!
DIRUT DONE+1!, END+2!
DTOUT END+2!
DUOUT END+2!
IOF DONE, HDR+2
IOSL PRINT+5, PRINT+6
IOST DONE, DONE+1, HDR+1
JJ END+2!, WARD2+1*
JJ1 END+2!, WARD2+1*, WARD2+2, WARD2+3
JJ2 END+2!, WARD2+1*
LN PRINT+1*, END+2!, HDR+6
>> NAOU WARD2+1
>> NAOUN HDR+4, SAVE+2, WARD2
NODE PRINT+5*, PRINT+7, PRINT+8, END+2!
PATN PSDLBLB+3*, PSDLBLB+6, END+2!
PG PRINT+1*, END+2!, HDR+1, HDR+2*, HDR+5
POP END+2!
PSD PRINT+5*, PRINT+7, END+2!, ASKN+3~
PSD( ASKN+5, ASKN+6
PSD(1 HDR+2*, ASKN+4*, ASKN+5*, ASKN+6
PSD1 PSDLBLB+2*, PSDLBLB+3, PRINT+5*, END+2!
>> PSD2 HDR+4, ASKN+3*
PSDBAR0 PRINT+8, END+2!
PSDBAR1 PRINT+8, END+2!
PSDCNT PSDLBLB+6*, PRINT+1*, END+2!
PSDN PRINT+4*, PRINT+5, PRINT+7, END+2!, HDR+4
PSDOUT PRINT+1*, PRINT+4, PRINT+5, PRINT+6, DONE+1, END+2!, HDR+1*, ASKN+2*
PSDPRT PRINT+8, END+3!
PSDR END+3!
PSDRM PSDLBLB+4*, PSDLBLB+6, END+3!
PSDT PSDLBLB+4, END+3!
PSDW END+3!
PSDW( PSDLBLB+2, ASKN+6*, WARD2+3*
PSDW("" HDR+4
PSDWN PSDLBLB+2*, PSDLBLB+6, END+3!
PSDX1 PRINT+1*, END+3!
PSDX2 END+3!
SSN PSDLBLB+3*, PSDLBLB+6, END+3!
U PRINT+7, ASKN+3
VA END+1!
VA("BID" PSDLBLB+3
VADM PSDLBLB+5!, END+3!
VADM(1 PSDLBLB+3
VADM(2 PSDLBLB+3
VAERR PSDLBLB+3, END+3!
VAIN PSDLBLB+5!, END+3!
VAIN(5 PSDLBLB+4
VAINDT PSDLBLB+4*, PSDLBLB+5!, END+3!
X END+3!
Y END+3!, HDR+1, ASKN+2, ASKN+3, ASKN+4
ZTDESC END+3!
ZTIO END+3!
>> ZTQUEUED END+5
>> ZTREQ END+5*
ZTRTN END+3!
ZTSAVE END+3!
ZTSAVE("NAOUN" SAVE+2*
ZTSAVE("PSD2" SAVE+1*
ZTSAVE("PSDW(" SAVE+1*
ZTSK END+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All