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 |  Local Variables  | All
Print Page as PDF
Routine: PSADRU

Package: Drug Accountability

Routine: PSADRU


Information

PSADRU ;BIR/LTL-Drugs Not Found in Linked Inventory ;7/23/97

Source Information

Source file <PSADRU.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
VA FileMan 3 DD^%DT  ^DIE  ^DIR  
Drug Accountability 2 ^PSADA  OPSITE^PSAUTL1  
IFCAP 1 ($$DESCR,$$INVNAME)^PRCPUX1  

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
Drug Accountability 1 PSA DRUGS NOT IN INVENTORY  

Entry Points

Name Comments DBIA/ICR reference
SETUP
LOOK
NOINV
INV
DEV
START
LOOP
QUIT
HEADER

External References

Name Field # of Occurrence
DD^%DT START
^%ZIS DEV
HOME^%ZIS DEV+1
^%ZISC QUIT+2
^%ZTLOAD DEV+1
$$S^%ZTLOAD HEADER+1
^DIE INV
^DIR NOINV+1, QUIT+1, HEADER
$$DESCR^PRCPUX1 LOOP+6, LOOP+13
$$INVNAME^PRCPUX1 LOOP+8, LOOP+15
^PSADA LOOK
OPSITE^PSAUTL1 HEADER+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no drugs in ",PSALOCN
  • Line Location: LOOK+1
Function Call: WRITE
  • Prompt: !,$G(PSALOCN)_" is not linked to an Inventory Point.",!
  • Line Location: NOINV+0
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !!,"NOT CONNECTED TO THE ITEM MASTER FILE",!,PSALN
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !!,"BUT NOT STOCKED BY AN INVENTORY POINT.",!,PSALN
  • Line Location: LOOP+7
Function Call: WRITE
  • Prompt: !!,"AND STOCKED BY ",$$INVNAME^PRCPUX1(PSAINV),!,PSALN
  • Line Location: LOOP+8
Function Call: WRITE
  • Prompt: !!,"BUT NOT STOCKED BY AN INVENTORY POINT.",!,PSALN
  • Line Location: LOOP+14
Function Call: WRITE
  • Prompt: !!,"AND STOCKED BY ",$$INVNAME^PRCPUX1(PSAINV),!,PSALN
  • Line Location: LOOP+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: QUIT+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUIT+1
Function Call: WRITE
  • Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"."
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,PSAINV(2)_"'S Items Relationship to an Inventory Point",?56,PSARPDT,?70,"PAGE: "_PSAPG,!,PSALN
  • Line Location: HEADER+6
Routine Call
  • DIE
  • Line Location:
    • INV
Routine Call
  • DIR
  • Line Location:
    • NOINV+1
    • QUIT+1
    • HEADER
Routine Call
  • %ZIS
  • Line Location:
    • DEV
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCP(445 - [#445] LOOP+7, LOOP+8, LOOP+14, LOOP+15
^PSD(58.8 - [#58.8] LOOK+1, NOINVLOOP
^PSDRUG - [#50] LOOP+1, LOOP+2, LOOP+4, LOOP+5, LOOP+11, LOOP+12
^VA(200 - [#200] HEADER+1

Label References

Name Line Occurrences
HEADER START+2, LOOPLOOP+11
QUIT LOOKLOOK+1, NOINVDEVDEV+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT START~
%ZIS DEV~*
D0 SETUP~
D1 SETUP~
DA SETUP~, INV*
DIC SETUP~
DIE SETUP~, INV*!
DIR SETUP~, NOINV+1!, HEADER!
DIR("A" NOINV+1*, QUIT+1*
DIR("B" NOINV+1*
DIR(0 NOINV+1*, QUIT+1*, HEADER*
DIRUT SETUP~
DLAYGO SETUP~
DR SETUP~, INV*
DT START
DTOUT SETUP~
DUOUT SETUP~
DUZ HEADER+1
IO("Q" DEV!, DEV+1, QUIT+2!
IOF QUITHEADER+6
IOP DEV~
IOSL LOOPLOOP+11
IOST QUITQUIT+1, HEADER
POP DEV~
PSA SETUP~, START+1*, LOOP*, LOOP+1, LOOP+2, LOOP+4, LOOP+5, LOOP+11, LOOP+12
PSA(1 LOOP+2*, LOOP+3, LOOP+4, LOOP+5, LOOP+10*, LOOP+11*, LOOP+12
PSA(2 LOOP+4*, LOOP+6, LOOP+7, LOOP+8, LOOP+12*, LOOP+13, LOOP+14, LOOP+15
PSAD START~
PSADRUG SETUP~
PSAINV SETUP~, LOOP+4*, LOOP+8*, LOOP+12*, LOOP+15*
PSAINV(2 HEADER+4*, HEADER+6
PSAIT START~*, QUIT+3!
PSAL START~
PSALN START~, LOOP+3, LOOP+7, LOOP+8, LOOP+14, LOOP+15, HEADER+6*
>> PSALOC LOOKLOOK+1, NOINVINVLOOP
>> PSALOCN LOOK+1, NOINV
>> PSAOSITN HEADER+4
PSAOUT SETUP~, LOOK*, LOOK+1*, NOINVNOINV+1*, DEV*, DEV+1*, START*, LOOPLOOP+11
QUIT+1, HEADER*, HEADER+1*
PSAPG START~*, HEADERHEADER+6*
PSARPDT START~*, HEADER+6
U LOOP+1, HEADER+1
X SETUP~, START~
Y SETUP~, NOINV+1, START~*, HEADER
ZTDESC DEV+1~*, HEADER+1
ZTDTH DEV+1~
ZTIO DEV+1~
>> ZTQUEUED QUIT+2
>> ZTREQ QUIT+2*
ZTRTN DEV+1~*
ZTSAVE DEV+1~
ZTSAVE("PSA*" DEV+1*
ZTSK DEV+1~, HEADER+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All