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

Package: Controlled Substances

Routine: PSDADJD


Information

PSDADJD ;BIR/LTL-Review Adjustment Transactions for a Drug; 2 Nov 94 [ 11/02/94 3:53 PM ]

Source Information

Source file <PSDADJD.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 5 $$TEST^DDBRT  ^DIC  DT^DICRW  ($$GET1,Y)^DIQ  ^DIR  
Controlled Substances 3 ^PSDADJB  ^PSDADJW  ^PSDSET  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD BALANCE ADJUSTMENT REVIEW  

Entry Points

Name Comments DBIA/ICR reference
END
LOOK
HEADER ;prints header info
CHK ;(DAVE B 26OCT99)
DEV ;asks device and queueing info
START ;compiles and prints output
CHKD
LOOP

External References

Name Field # of Occurrence
^%ZIS DEV+1
HOME^%ZIS DEV+2
^%ZISC END+2
^%ZTLOAD DEV+2
$$S^%ZTLOAD HEADER+2
$$TEST^DDBRT DEV+8
^DIC LOOK+3, CHKD, CHK+3
DT^DICRW PSDADJD+8
$$GET1^DIQ CHK+4
Y^DIQ CHKD+11
^DIR CHKD+3, CHKD+6, CHKD+10, END+1, HEADER+1
^PSDADJB DEV+8
^PSDADJW DEV+6
^PSDSET PSDADJD+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOK+3
Function Call: WRITE
  • Prompt: !!,"You may select one, several, or ^ALL drugs."
  • Line Location: LOOK+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKD+0
Function Call: WRITE
  • Prompt: !!,"There have been no adjustments for this drug.",!!
  • Line Location: CHKD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKD+6
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: !!,"Getting ready to browse...",!!
  • Line Location: DEV+8
Function Call: WRITE
  • Prompt: !,Y," "," -> "
  • Line Location: LOOP+4
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: !,"Adjustments from ",PSDTB(2)," to ",PSDTB(3),?70,"PAGE: ",PG,!,LN
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,PSDU," (continued)",!
  • Condition for execution: $G(PSDT(1))
  • Line Location: HEADER+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • DIC
  • Line Location:
    • LOOK+3
    • CHKD
    • CHK+3
Routine Call
  • DIR
  • Line Location:
    • CHKD+3
    • CHKD+6
    • CHKD+10
    • 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
^DIC(9.4 - [#9.4] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" LOOP+4
^DD(58.8 CHKD+11
^PSD(58.8 - [#58.8] CHKD+2, CHKD+11
^PSD(58.81 - [#58.81] CHKD+1, LOOP, LOOP+1
^PSDRUG - [#50] CHKD+2
^VA(200 - [#200] LOOP+5, HEADER+2

Label References

Name Line Occurrences
CHK DEV+8
CHKD PSDADJD+10
END PSDADJD+6, LOOK+3, CHKD, CHKD+1, CHKD+3, CHKD+6, CHKD+8, DEV+2, START+2
HEADER START+1, LOOP+2

Naked Globals

Name Field # of Occurrence
^(0 CHKD+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+1~*
%ZIS("B" DEV+1*
C PSDADJD+7~, CHKD+11*
CNT PSDADJD+7~*, CHKD*, CHKD+1
DIC PSDADJD+7~, LOOK*, LOOK+3!, CHKD*!, CHK+3*
DIC("A" LOOK*, CHKD*
DIC("B" LOOK+2*
DIC("S" LOOK+1*, CHKD*
DIC(0 LOOK*, CHKD*, CHK+3*
DIR PSDADJD+7~, CHKD+6!, CHKD+10!, HEADER+1!
DIR("?" CHKD+3*, CHKD+10*
DIR("A" CHKD+3*, CHKD+5*, END+1*
DIR("B" CHKD+5*, CHKD+10*
DIR(0 CHKD+3*, CHKD+4*, CHKD+9*, END+1*, HEADER+1*
DTOUT PSDADJD+7~
DUOUT PSDADJD+7~
DUZ HEADER+2
>> GOOD DEV+8, CHK+3*, CHK+4*
IO DEV+4
IO("Q" DEV+1!, DEV+2, END+2!
IOF END, HEADER+3
IOP DEV+1~
IOSL LOOP+2
IOST DEV+8, LOOP, END, END+1, HEADER+1
LN START+1~, HEADER+3*
PG START+1~*, HEADER+1, HEADER+3*
POP DEV+1~
PSD PSDADJD+7~
PSD( CHKD*, CHKD+1, CHKD+2*, START+2, LOOP, LOOP+1
PSD(0 CHKD+1
PSDA PSDADJD+7~
PSDA( CHKD*, CHKD+2*
PSDC PSDADJD+7~
>> PSDCHO PSDADJD+7*, CHKD+10*, DEV+2, DEV+6
PSDEV PSDADJD+7~, CHKD+11*, DEV+1
PSDLOC PSDADJD+7~, PSDADJD+9*, LOOK+3*, CHKD+2, CHKD+11, LOOP, LOOP+1
PSDLOCN PSDADJD+7~, PSDADJD+9*, LOOK+3*, CHKD
PSDOUT PSDADJD+6~*, PSDADJD+7*, DEV+2*, START+1*, START+2, LOOP, LOOP+2, END+1, HEADER+1*, HEADER+2*
PSDR PSDADJD+7~, START+1~
PSDR(2 LOOP+1*, LOOP+4, LOOP+5, LOOP+6
>> PSDSITE PSDADJD+6, PSDADJD+9, PSDADJD+10, LOOK+2, LOOK+4*
PSDT PSDADJD+7~, CHKD+4*, START+2*, LOOP*, LOOP+1
PSDT(1 START+2*, LOOP+3*, HEADER+3
PSDTB PSDADJD+7~, CHKD+4*, START+2
PSDTB(1 CHKD+6*, CHKD+7*, LOOP
PSDTB(2 CHKD+4*, HEADER+3
PSDTB(3 CHKD+6*, HEADER+3
PSDU PSDADJD+7~*, CHKD+2*, START+1*, START+2*, LOOP, LOOP+1, LOOP+3, HEADER+3
U PSDADJD+9, PSDADJD+10, LOOK+2, LOOK+3, LOOK+4, CHKD+2, LOOP+4, LOOP+5, LOOP+6, HEADER+2
X PSDADJD+7~, CHKD, CHKD+2, CHK+3*
Y PSDADJD+7~, LOOK+3, LOOK+4, CHKD, CHKD+3, CHKD+4, CHKD+6, CHKD+8, CHKD+10, CHKD+11*
, LOOP+4*, HEADER+1, CHK+3, CHK+4
Y(0 CHKD, CHKD+4, CHKD+6
ZTDESC DEV+2~*, HEADER+2
ZTDTH DEV+2~
ZTIO DEV+2~
>> ZTQUEUED END+2
>> ZTREQ END+2*
ZTRTN DEV+2~*
ZTSAVE DEV+2~
ZTSAVE("PSD*" 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 |  Naked Globals |  Local Variables |  All