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

Package: Drug Accountability

Routine: PSALOG2


Information

PSALOG2 ;BIR/LTL-Post Drug Procurement History ;7/23/97

Source Information

Source file <PSALOG2.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
VA Fileman 3 ^%DT  COMMA^%DTC  ^DIR  
Drug Accountability 1 LOOP2^PSALOG3  
IFCAP 1 ($$DESCR,$$INVNAME)^PRCPUX1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSA POSTED DRUG REPORT  

Entry Points

Name Comments DBIA/ICR reference
GO
HEADER
END

External References

Name Field # of Occurrence
^%DT PSALOG2+12
COMMA^%DTC GO+18, GO+19, GO+22
^%ZIS PSALOG2+15, END+6
HOME^%ZIS PSALOG2+17, END+8
^%ZISC END+2
^%ZTLOAD PSALOG2+17, END+8
$$S^%ZTLOAD HEADER+1
^DIR END+1, END+4, END+5, HEADER
$$DESCR^PRCPUX1 GO+9
$$INVNAME^PRCPUX1 GO+8
LOOP2^PSALOG3 GO+24, END+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PSALOG2+15
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: PSALOG2+16
Function Call: WRITE
  • Prompt: ?9,$J(PSA(8),3)
  • Line Location: GO+16
Function Call: WRITE
  • Prompt: X
  • Line Location: GO+18
Function Call: WRITE
  • Prompt: X
  • Line Location: GO+19
Function Call: WRITE
  • Prompt: ?50,$S($L(Y)=11:$E(Y,1,6),$L(Y)=10:$E(Y,1,5),1:"UNKNOWN")
  • Line Location: GO+20
Function Call: WRITE
  • Prompt: !,PSALN,!,$J(PSA(99),3),?9,$J(PSA(9),3)
  • Line Location: GO+22
Function Call: WRITE
  • Prompt: ?16,"<TOTALS>",?34,X
  • Line Location: GO+22
Function Call: WRITE
  • Prompt: !,"Sorry, no procurements for that month!",!
  • Line Location: GO+23
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END+6
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: END+7
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: !,?2,"WAREHOUSE DRUG PROCUREMENTS FOR ",PSA(13),?70,"PAGE: ",PSAPG,!,PSALN
  • Line Location: HEADER+3
Routine Call
  • %ZIS
  • Line Location:
    • PSALOG2+17
    • END+8
Routine Call
  • DIR
  • Line Location:
    • END+1
    • END+4
    • END+5
    • HEADER
Routine Call
  • %ZIS
  • Line Location:
    • PSALOG2+15
    • END+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PSALOG2+14, GO+20
^PRC(441 - [#441] GO+1
^PRCP(445 GO, GO+1
^PRCP(445.2 GO+3, GO+5, GO+6
^PRCS(410 GO+12, GO+13
^TMP("PSA" GO+1*, GO+3, END+3!
^TMP("PSAB" GO+6*, GO+8, GO+10, GO+22, GO+23, GO+24, END+3!
^TMP("PSAC" GO+22*, END+3!
^VA(200 - [#200] HEADER+1

Label References

Name Line Occurrences
END PSALOG2+13, PSALOG2+16, PSALOG2+17, GO+8, END+4, END+5, END+7, END+8, END+9
HEADER GO, GO+8, GO+10

Naked Globals

Name Field # of Occurrence
^(0 GO+1, GO+5, GO+6, GO+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT PSALOG2+10~, PSALOG2+11*
%DT("A" PSALOG2+11*
%DT("B" PSALOG2+11*
%ZIS PSALOG2+15~*, END+6~*
%ZIS("B" END+6*
DIR PSALOG2+10~, END+1!, END+4!, END+5!, HEADER!
DIR("?" END+4*, END+5*
DIR("A" END+1*, END+4*, END+5*
DIR("B" END+4*, END+5*
DIR(0 END+1*, END+4*, END+5*, HEADER*
DIRUT PSALOG2+10~
DTOUT PSALOG2+10~
DUOUT PSALOG2+10~
DUZ HEADER+1
IO("Q" PSALOG2+15!, PSALOG2+17, END+2!, END+6!, END+8
IOF END, HEADER+2
ION PSALOG2+15
IOP PSALOG2+15~, END+6~
IOSL GO+10
IOST GO+1, END, END+1, HEADER
POP PSALOG2+15~, PSALOG2+16, END+6~, END+7
PSA PSALOG2+10~, GO*, GO+1, GO+3, GO+5
PSA(1 GO*, GO+1*
PSA(10 GO+19*, GO+22!
PSA(11 PSALOG2+12*, PSALOG2+14, GO+5
PSA(12 PSALOG2+12*
PSA(13 PSALOG2+14*, HEADER+3
PSA(2 GO+2*, GO+3*
PSA(22 GO+12*, GO+13*
PSA(3 GO+3*, GO+5
PSA(33 GO+12*, GO+13
PSA(4 GO+4*, GO+5*, GO+6, GO+7*, GO+8*, GO+9, GO+10, GO+13, GO+22
PSA(44 GO+13*, GO+14, GO+15!, GO+24*, END+5*
PSA(5 GO+10*, GO+11, GO+12, GO+16, GO+17, GO+18, GO+19, GO+20, GO+21
PSA(7 GO+18*, GO+19
PSA(8 GO+16*
PSA(9 GO+16*, GO+22!
PSA(99 GO+15*, GO+22!
PSAB PSALOG2+10~, GO+7*, GO+8*, GO+9, GO+10, GO+22
PSAB(1 GO+7*, GO+10*, GO+22
PSAC PSALOG2+10~, GO+8*
PSAION PSALOG2+10~, PSALOG2+15*, END+6
PSALN PSALOG2+10~, GO+22, HEADER+2*, HEADER+3
PSAOUT PSALOG2+10~, PSALOG2+12*, PSALOG2+13*, PSALOG2+16*, PSALOG2+17*, GO+8, GO+10, GO+23*, END+1, END+3
, END+4*, END+5*, END+7*, END+8*, HEADER*, HEADER+1*
PSAPG PSALOG2+10~, GO*, HEADER, HEADER+2*, HEADER+3
U GO+1, GO+3, GO+5, GO+6, GO+11, GO+12, GO+13, GO+16, GO+17, GO+18
, GO+19, GO+20, GO+21, GO+22, HEADER+1
X PSALOG2+10~, GO+18*, GO+19*, GO+22*
X2 PSALOG2+10~, GO+18*, GO+19*, GO+22*
X3 PSALOG2+10~, END+6~
Y PSALOG2+10~, PSALOG2+12, PSALOG2+13, PSALOG2+14, GO+20*, END+4, END+5, HEADER
ZTDESC PSALOG2+17~*, END+8~*, HEADER+1
ZTDTH PSALOG2+17~, END+8~
ZTIO PSALOG2+17~, END+8~
>> ZTQUEUED GO+24, END+2
>> ZTREQ END+2*
ZTRTN PSALOG2+17~*, END+8~*
ZTSAVE PSALOG2+17~, END+8~
ZTSAVE("PSA*" PSALOG2+17*, END+8*
ZTSAVE("PSALN" END+8*
ZTSAVE("^TMP(""PSAC"",$J," END+8*
ZTSK PSALOG2+17~, END+8~, 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