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

Package: Controlled Substances

Routine: PSDADJN1


Information

PSDADJN1 ;B'ham ISC/LTL - Review NAOU adj transactions for a drug ; 2 Sept 93

Source Information

Source file <PSDADJN1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 DD^%DT  ^DIC  DT^DICRW  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDADJN  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT START+1
^%ZIS DEV+6
HOME^%ZIS DEV+7
^%ZISC END+2
^%ZTLOAD DEV+7
$$S^%ZTLOAD HEADER+2
^DIC LOOK+1, CHKD+2, DEV+4
DT^DICRW PSDADJN1+6
^DIR CHKD+4, END+1, HEADER+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no drugs in ",PSDLOCN
  • Line Location: CHKD+0
Function Call: WRITE
  • Prompt: !!,"There have been no adjustments for this drug.",!!
  • Line Location: CHKD+3
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: DEV+6
Function Call: WRITE
  • Prompt: !,Y," ",$E($P($G(^PSDRUG(+$P($G(^PSD(58.81,PSDR,0)),U,5),0)),U),1,25)," -> "
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: END+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: !?2,"History of adjustments for ",$E($P($G(^PSDRUG(+PSD,0)),U),1,20),?50,RPDT,?70,"PAGE: ",PG,!,LN,!
  • Line Location: HEADER+3
Routine Call
  • DIC
  • Line Location:
    • LOOK+1
    • CHKD+2
    • DEV+4
Routine Call
  • DIR
  • Line Location:
    • CHKD+4
    • END+1
    • HEADER+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+6
Routine Call
  • %ZIS
  • Line Location:
    • DEV+7

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" LOOP+1
^PSD(58.8 - [#58.8] CHKD, DEV+3
^PSD(58.81 - [#58.81] CHKD+3, LOOP, LOOP+1, LOOP+2
^PSDRUG - [#50] LOOP+1, HEADER+3
^VA(200 - [#200] LOOP+2, HEADER+2

Label References

Name Line Occurrences
END LOOK+1, CHKD, CHKD+1, CHKD+2, CHKD+3, CHKD+4, DEV+6, DEV+7, LOOP
HEADER START+1, LOOP

Naked Globals

Name Field # of Occurrence
^(0 LOOP

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT START+1~
%ZIS DEV+6~*
%ZIS("B" DEV+6*
>> DA(1 CHKD+1*
DIC PSDADJN1+5~, LOOK*, LOOK+1!, CHKD+1*, CHKD+2!, DEV+4*, DEV+5!
DIC("A" LOOK*, CHKD+1*
DIC("S" LOOK*, CHKD+1*
DIC(0 LOOK*, CHKD+1*, DEV+4*
DIR PSDADJN1+5~, CHKD+4!, HEADER+1!
DIR("A" CHKD+4*, END+1*
DIR("B" CHKD+4*
DIR(0 CHKD+4*, END+1*, HEADER+1*
DIRUT PSDADJN1+5~, CHKD+4
DT START+1
DTOUT PSDADJN1+5~, LOOK+1, CHKD+1, CHKD+2
DUOUT PSDADJN1+5~, LOOK+1, CHKD+1, CHKD+2
DUZ HEADER+2
IO("Q" DEV+6!, DEV+7, END+2!
IOF END, HEADER+3
IOP DEV+6~
IOSL LOOP
IOST END, END+1, HEADER+1
LN START+1~, HEADER+3*
PG START+1~*, HEADER+1, HEADER+3*
POP DEV+6~
PSD PSDADJN1+5~, CHKD+2*, LOOP, HEADER+3
PSDEV PSDADJN1+5~, DEV+3*, DEV+4*, DEV+6
PSDLOC PSDADJN1+5~, LOOK+1*, CHKD, CHKD+1, DEV+3, LOOP
PSDLOCN PSDADJN1+5~, LOOK+1*, CHKD, CHKD+1
PSDOUT PSDADJN1+5~, LOOK*, CHKD+4*, DEV+6*, DEV+7*, START+1*, LOOP, END+1, HEADER+1*, HEADER+2*
PSDR PSDADJN1+5~, START+1*, LOOP*, LOOP+1, LOOP+2
PSDS PSDADJN1+5~
PSDT PSDADJN1+5~, CHKD+5*, LOOP
RPDT START+1~*, HEADER+3
U LOOK+1, DEV+3, DEV+4, LOOP, LOOP+1, LOOP+2, HEADER+2, HEADER+3
X PSDADJN1+5~, DEV+4*, DEV+5!
Y PSDADJN1+5~, LOOK+1, CHKD+2, CHKD+3, CHKD+5, DEV+4, DEV+5!, START+1*, LOOP+1*, HEADER+1
ZTDESC DEV+7~*, HEADER+2
ZTDTH DEV+7~
ZTIO DEV+7~
>> ZTQUEUED END+2
>> ZTREQ END+2*
ZTRTN DEV+7~*
ZTSAVE DEV+7~
ZTSAVE("PSD*" DEV+7*
ZTSK DEV+7~, 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