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

Package: Drug Accountability

Routine: PSACONW


Information

PSACONW ;BIR/LTL-Display Connected Drug and Procurement History - CONT'D ;7/23/97

Source Information

Source file <PSACONW.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
VA Fileman 3 DD^%DT  (,COMMA,NOW)^%DTC  ^DIR  
IFCAP 1 $$INVNAME^PRCPUX1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSACON  

Entry Points

Name Comments DBIA/ICR reference
QUIT
LOOP
HEADER

External References

Name Field # of Occurrence
DD^%DT LOOP+2
^%DTC PSACONW+15
COMMA^%DTC LOOP+5, LOOP+6, LOOP+9
NOW^%DTC PSACONW+15
^%ZIS PSACONW+16
HOME^%ZIS PSACONW+18, QUIT+2
^%ZISC QUIT+2
^%ZTLOAD PSACONW+18
$$S^%ZTLOAD HEADER+1
^DIR PSACONW+13, QUIT+1, HEADER
$$INVNAME^PRCPUX1 LOOP+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The Supply Warehouse is the mandatory source for this item.",!
  • Line Location: PSACONW+10
Function Call: WRITE
  • Prompt: !!,"NO HISTORY!"
  • Line Location: PSACONW+11
Function Call: WRITE
  • Prompt: !,"There is a procurement history."
  • Line Location: PSACONW+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PSACONW+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PSACONW+16
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: PSACONW+17
Function Call: WRITE
  • Prompt: !!,Y
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !,PSALN,!!,"Average ord/mon: ",X,?24,"TOT ORD: ",$J($G(PSAQ),3),?49,"TOTAL $: "
  • Line Location: LOOP+9
Function Call: WRITE
  • Prompt: X
  • Line Location: LOOP+9
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: !,$E($P($G(^PSDRUG(+PSA,0)),U),1,40),"=> from ",PSAD(2),?60,"PAGE: ",PSAPG,!,PSALN,!?2,"DATE",?16,"TRANSACTION",?33,"QTY",?39,"PKG",?47,"UNIT $",?57,"TOTAL $",?66,"INVENTORY",!,PSALN
  • Line Location: HEADER+3
Routine Call
  • %ZIS
  • Line Location:
    • PSACONW+18
    • QUIT+2
Routine Call
  • DIR
  • Line Location:
    • PSACONW+13
    • QUIT+1
    • HEADER
Routine Call
  • %ZIS
  • Line Location:
    • PSACONW+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PSACONW+14
^PRCP(445.2 PSACONW+11, LOOP+1
^PSDRUG - [#50] HEADER+3
^VA(200 - [#200] HEADER+1

Label References

Name Line Occurrences
HEADER LOOP, LOOP+1
QUIT PSACONW+13, PSACONW+17, PSACONW+18, LOOP+1

Naked Globals

Name Field # of Occurrence
^(0 LOOP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS PSACONW+16~*
DIR PSACONW+13!, QUIT+1!, HEADER!
DIR("A" PSACONW+13*, QUIT+1*
DIR("B" PSACONW+13*
DIR(0 PSACONW+13*, QUIT+1*, HEADER*
>> DIRUT PSACONW+13
DUZ HEADER+1
IO("Q" PSACONW+16!, PSACONW+18, QUIT+2!
IOF QUIT, HEADER+2
IOP PSACONW+16~
IOSL LOOP+1
IOST QUIT, QUIT+1, HEADER
POP PSACONW+16~, PSACONW+17
>> PSA HEADER+3
>> PSA(1 PSACONW+11, LOOP+1
PSAD PSACONW+9~, PSACONW+13*, PSACONW+15, LOOP+1
PSAD(1 PSACONW+15*, LOOP+9
PSAD(2 PSACONW+14*, HEADER+3
PSAI PSACONW+9~*, LOOP+1*
PSALN LOOP~, LOOP+9, HEADER+2*, HEADER+3
PSAN PSACONW+9~, LOOP+1*, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+8
PSAN(1 LOOP+5*, LOOP+7
PSAN(2 LOOP+6*, LOOP+7
PSAN(3 LOOP+6*, LOOP+9
>> PSAOUT PSACONW+9*, PSACONW+13*, PSACONW+17*, PSACONW+18*, LOOP+1, QUIT+1, HEADER*, HEADER+1*
PSAPG LOOP~*, HEADER, HEADER+2*, HEADER+3
PSAQ PSACONW+9~, LOOP+3*, LOOP+9
>> PSAW PSACONW+11, LOOP+1
U LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+8, HEADER+1, HEADER+3
>> X PSACONW+15, LOOP+5*, LOOP+6*, LOOP+9*
>> X1 PSACONW+15*
>> X2 PSACONW+15*, LOOP+5*, LOOP+6*, LOOP+9*
>> X3 LOOP+5*, LOOP+6*, LOOP+9*
>> Y PSACONW+13, PSACONW+14, LOOP+2*, HEADER
ZTDESC PSACONW+18~*, HEADER+1
ZTDTH PSACONW+18~
ZTIO PSACONW+18~
>> ZTQUEUED QUIT+2
>> ZTREQ QUIT+2*
ZTRTN PSACONW+18~*
ZTSAVE PSACONW+18~
ZTSAVE("PSA*" PSACONW+18*
ZTSK PSACONW+18~, HEADER+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All