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

Package: Drug Accountability

Routine: PSAVIN2


Information

PSAVIN2 ;BIR/LTL-Compares Prices (DA/GIP) ;7/23/97

Source Information

Source file <PSAVIN2.m>

Call Graph

Call Graph Total: 8

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSA GIP DISCREPANCIES  

Entry Points

Name Comments DBIA/ICR reference
END
LOOK
HEADER ;prints header info
DEV ;asks device and queueing info
START ;compiles and prints output
CHKD
LOOP

External References

Name Field # of Occurrence
COMMA^%DTC LOOP+4, LOOP+7, LOOP+18, LOOP+23
^%ZIS DEV+1
HOME^%ZIS DEV+2
^%ZISC END+2
^%ZTLOAD DEV+2
$$S^%ZTLOAD HEADER+2
^DIC CHKD
^DIR END+1, HEADER+1
$$DESCR^PRCPUX1 LOOP+15
$$INVNAME^PRCPUX1 LOOP+16
$$UNITCODE^PRCPUX1 LOOP+19
^PSADA LOOK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no drugs in ",PSALOCN
  • Line Location: LOOK+1
Function Call: WRITE
  • Prompt: !!,"You may select one, several, or ^ALL drugs.",!
  • Line Location: LOOK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKD+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: X,"/"
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: X,"/"
  • Line Location: LOOP+18
Function Call: WRITE
  • Prompt: " => ",X,"/",$P(PSAU(6),U,28),!!
  • Line Location: LOOP+23
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: !?2,"DRUG File/Inventory Price Review",?55,PSARPDT,?70,"PAGE: ",PSAPG,!,PSALN,!
  • Line Location: HEADER+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • DIC
  • Line Location:
    • CHKD
Routine Call
  • DIR
  • Line Location:
    • END+1
    • HEADER+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSD(58.8 - [#58.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+1
^DIC(51.5 - [#51.5] LOOP+5
^PRCP(445 LOOP+12, LOOP+13, LOOP+17
^PSD(58.8 - [#58.8] LOOK+1, CHKD+1, LOOP+13
^PSDRUG - [#50] LOOP+1, LOOP+2, LOOP+9, LOOP+10, LOOP+11
^VA(200 - [#200] HEADER+2

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT START+1~
%ZIS DEV+1~*
DIC PSAVIN2+11~, CHKD*!
DIC("A" CHKD*
DIC("S" CHKD*
DIC(0 CHKD*
DIR PSAVIN2+11~, HEADER+1!
DIR("A" END+1*
DIR(0 END+1*, HEADER+1*
DT START+1
DTOUT PSAVIN2+11~
DUOUT PSAVIN2+11~
DUZ HEADER+2
IO("Q" DEV+1!, DEV+2, END+2!
IOF END, HEADER+3
IOP DEV+1~
IOSL LOOP
IOST END, END+1, HEADER+1
POP DEV+1~
PSA PSAVIN2+11~
PSA( CHKD*, CHKD+1*, START+2
PSA(0 START+1
PSACNT PSAVIN2+11~, LOOK+2*, CHKD*
PSALN START+1~, HEADER+3*
>> PSALOC LOOK, LOOK+1, CHKD+1
PSALOCN PSAVIN2+11~, LOOK+1, CHKD
PSAOUT PSAVIN2+11~*, LOOK*, DEV+2*, START+1*, START+2, LOOP, END+1, HEADER+1*, HEADER+2*
PSAPG START+1~*, HEADER+1, HEADER+3*
PSAR PSAVIN2+11~, START+1~*
PSARPDT START+1~*, HEADER+3
PSAT PSAVIN2+11~
PSAU PSAVIN2+11~*, CHKD+1*, START+1*, START+2*, LOOP+1, LOOP+2, LOOP+9, LOOP+10, LOOP+11
PSAU(1 START+1*, LOOP+10*, LOOP+11
PSAU(11 LOOP+19*, LOOP+20, LOOP+21
PSAU(2 LOOP+11*, LOOP+12, LOOP+13, LOOP+15, LOOP+17
PSAU(3 LOOP+13*, LOOP+15, LOOP+16, LOOP+17
PSAU(5 LOOP+14*
PSAU(6 LOOP+17*, LOOP+18, LOOP+19, LOOP+20, LOOP+21, LOOP+22, LOOP+23
PSAU(8 LOOP+5*, LOOP+6
PSAU(9 LOOP+2*, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+8
U LOOP+1, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+8, LOOP+11, LOOP+18, LOOP+19, LOOP+20
, LOOP+21, LOOP+22, LOOP+23, HEADER+2
X PSAVIN2+11~, CHKD, CHKD+1, LOOP+4*, LOOP+7*, LOOP+8, LOOP+18*, LOOP+22*, LOOP+23
X2 PSAVIN2+11~, LOOP+4*, LOOP+7*, LOOP+18*, LOOP+23*
X3 PSAVIN2+11~, LOOP+4*, LOOP+7*, LOOP+18*, LOOP+23*
Y PSAVIN2+11~, CHKD, START+1*, HEADER+1
ZTDESC DEV+2~*, HEADER+2
ZTDTH DEV+2~
ZTIO DEV+2~
>> ZTQUEUED END+2
>> ZTREQ END+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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All