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

Package: Drug Accountability

Routine: PSAVIN


Information

PSAVIN ;BIR/LTL-Report of Inventory items' link to DRUG FILE ;7/23/97

Source Information

Source file <PSAVIN.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 DD^%DT  ^DIC  DT^DICRW  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
IFCAP 1 ($$DESCR,$$INVNAME)^PRCPUX1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSA GIP LINK REPORT  

Entry Points

Name Comments DBIA/ICR reference
QUIT
LOOK ;Select Inventory point
HEADER ;prints header info
DEV ;asks device and queueing info
START
LOOP

External References

Name Field # of Occurrence
DD^%DT START
^%ZIS DEV+1
HOME^%ZIS DEV+2
^%ZISC QUIT+2
^%ZTLOAD DEV+2
$$S^%ZTLOAD HEADER+2
^DIC LOOK+1
DT^DICRW PSAVIN+9
^DIR QUIT+1, HEADER+1
$$DESCR^PRCPUX1 LOOP+1
$$INVNAME^PRCPUX1 LOOK+2, LOOK+3, HEADER+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$INVNAME^PRCPUX1(PSAINV)_" is NOT linked to a Drug Accountability Location.",!!
  • Line Location: LOOK+2
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+1
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+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,$E($$INVNAME^PRCPUX1(PSAINV),1,23)_" Items' Link to DRUG file",?50,PSARPDT,?70,"PAGE: "_PSAPG,!,PSALN,!,"ITEM",?10,"DESCRIPTION",?45,"DRUG FILE LINK"
  • Line Location: HEADER+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • DIC
  • Line Location:
    • LOOK+1
Routine Call
  • DIR
  • Line Location:
    • QUIT+1
    • HEADER+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCP(445 LOOP
^PSD(58.8 - [#58.8] LOOK+2, LOOK+3
^PSDRUG - [#50] LOOP+1
^PSDRUG("AB" LOOP+1
^VA(200 - [#200] HEADER+2

Label References

Name Line Occurrences
HEADER START+1, LOOP
QUIT LOOK+1, DEV+1, DEV+2

Naked Globals

Name Field # of Occurrence
^(0 LOOP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT START~
%ZIS DEV+1~*
DIC PSAVIN+9~, LOOK+1*!
DIC("S" LOOK+1*
DIC(0 LOOK+1*
DIR PSAVIN+9~, START~, HEADER+1!
DIR("A" QUIT+1*
DIR(0 QUIT+1*, HEADER+1*
DIRUT PSAVIN+9~, START~
DT START
DTOUT PSAVIN+9~
DUOUT PSAVIN+9~
DUZ HEADER+2
IO("Q" DEV+1!, DEV+2, QUIT+2!
IOF QUIT, HEADER+3
IOP DEV+1~
IOSL LOOP
IOST QUIT, QUIT+1, HEADER+1
POP DEV+1~
PRCPPRIV LOOK+1*!
PSAD START~
PSAINV PSAVIN+9~, LOOK+1*, LOOK+2, LOOK+3, LOOP, LOOP+1, HEADER+3
PSAIT PSAVIN+9~, LOOK+1*, LOOP*, LOOP+1
PSALN START~, HEADER+3*
PSALOC PSAVIN+9~, LOOK+3*
PSAOUT PSAVIN+9~, LOOK+1*, DEV+1*, DEV+2*, START~*, LOOP, QUIT+1, HEADER+1*, HEADER+2*
PSAPG START~*, HEADER+1, HEADER+3*
PSARPDT START~*, HEADER+3
U LOOK+3, LOOP+1, HEADER+2
X PSAVIN+9~, START~
Y PSAVIN+9~, LOOK+1, START~*, HEADER+1
ZTDESC DEV+2~*, HEADER+2
ZTDTH DEV+2~
ZTIO DEV+2~
>> ZTQUEUED QUIT+2
>> ZTREQ QUIT+2*
ZTRTN DEV+2~*
ZTSAVE DEV+2~
ZTSAVE("PSA*" DEV+2*
ZTSK DEV+2~, HEADER+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All