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

Package: Controlled Substances

Routine: PSDOPTX


Information

PSDOPTX ;BIR/LTL - Review OP Transactions by Rx # ; 29 Aug 94

Source Information

Source file <PSDOPTX.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
VA Fileman 3 ^DIC  Y^DIQ  ^DIR  
Controlled Substances 2 ^PSDOPTY  ^PSDOPTZ  
Registration 2 KVAR^VADPT  PID^VADPT6  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Controlled Substances 3 PSDOPTI  PSDOPTR  PSDOPTS  

Entry Points

Name Comments DBIA/ICR reference
HEADER ;prints header info
END
BRX
ERX
DEV ;asks device and queuing info
START ;compiles and prints output
SAVE ;save queued variables
LOOP

External References

Name Field # of Occurrence
^%ZIS DEV+1
HOME^%ZIS DEV+2
^%ZISC END+2
^%ZTLOAD DEV+2
$$S^%ZTLOAD HEADER+2
^DIC BRX+1, ERX+1
Y^DIQ ERX+4, LOOP+9
^DIR END+1, HEADER+1
^PSDOPTY START+3
^PSDOPTZ START+2
KVAR^VADPT END+3
PID^VADPT6 LOOP+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BRX+1
Function Call: WRITE
  • Prompt: !!,"No transactions beginning from Rx # ",PSDRX(1),"."
  • Line Location: BRX+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ERX+1
Function Call: WRITE
  • Prompt: !!,"Ending Rx # must have been created after Rx # ",PSDRX(1),"."
  • Line Location: ERX+2
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: !!,Y,?19
  • Line Location: LOOP+7
Function Call: WRITE
  • Prompt: " ("_VA("BID")_")",?60
  • Line Location: LOOP+11
Function Call: WRITE
  • Prompt: Y
  • Line Location: LOOP+12
Function Call: WRITE
  • Prompt: Y
  • Line Location: LOOP+13
Function Call: WRITE
  • Prompt: Y
  • Line Location: LOOP+14
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: !,"Outpatient Activity from Rx # ",PSDRX(1)," to Rx # ",PSDRX(3),?70,"PAGE: ",PG,!,LN,!,"Date Posted",?19,"Rx#",?28,"Patient",?60,"Date Released",!,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:
    • BRX+1
    • ERX+1
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
^PSRX - [#52] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" LOOP+7, LOOP+12, LOOP+13, LOOP+14
^DD(58.8 ERX+4
^DD(58.81 LOOP+9
^PSD(58.8 - [#58.8] ERX+4
^PSD(58.81 - [#58.81] BRX+2, LOOP, LOOP+1, LOOP+3
^PSRX - [#52] LOOP+8, LOOP+12, LOOP+13, LOOP+14
^PSRX(" " ERX
^TMP("PSD" START+3, START+5, END+3!
^VA(200 - [#200] LOOP+6, LOOP+15, HEADER+2

Label References

Name Line Occurrences
BRX BRX+2
END BRX+1, ERX+1, DEV+2, START+5
ERX ERX+2
HEADER START+1, LOOP+4
SAVE DEV+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+1~*
%ZIS("B" DEV+1*
C PSDOPTX+6~, ERX+4*, LOOP+9!*
>> DFN LOOP+8*, LOOP+9
DIC BRX!*, ERX!*, ERX+3!
DIC("A" BRX*, ERX*
DIC("B" ERX*
DIC(0 BRX*, ERX*
DIR HEADER+1!
DIR("A" END+1*
DIR(0 END+1*, HEADER+1*
DUZ HEADER+2
IO START+1
IO("Q" DEV+1!, DEV+2, END+3!
IOF END, HEADER+3
IOP DEV+1~
IOSL LOOP+4
IOST LOOP, END, END+1, HEADER+1
LN START+1~, LOOP+17, HEADER+3*
PG START+1~*, HEADER+1, HEADER+3*
POP DEV+1~
>> PSDEV ERX+4*, DEV+1
>> PSDI START+2
>> PSDLOC ERX+4, LOOP+2
>> PSDOUT DEV+2*, START+1*, START+5, LOOP, LOOP+4, END+1, HEADER+1*, HEADER+2*
PSDR START+1~
PSDR(2 LOOP+1*, LOOP+2, LOOP+6, LOOP+7, LOOP+15
PSDR(4 LOOP+3*, LOOP+6, LOOP+8, LOOP+10, LOOP+12, LOOP+13, LOOP+14, LOOP+16
PSDRX PSDOPTX+6~, BRX+1*, ERX+2, START+4*, START+5*, LOOP*
PSDRX(1 BRX+1*, BRX+2, ERX+2, HEADER+3
PSDRX(2 ERX+1*, ERX+2, LOOP
PSDRX(3 ERX+1*, HEADER+3
PSDRX(4 BRX+1*, START+5
PSDRX(5 LOOP*, LOOP+1, LOOP+3
>> PSDT(1 START+5*, LOOP+5*, HEADER+3
>> PSDU START+1*, START+3, START+5*, LOOP+5, HEADER+3
>> PSDU(1 START+5*, LOOP+2
U BRX+1, ERX+1, LOOP+2, LOOP+6, LOOP+7, LOOP+8, LOOP+9, LOOP+10, LOOP+12, LOOP+13
, LOOP+14, LOOP+15, LOOP+16, HEADER+2
>> VA("BID" LOOP+11, END+3!
>> VA("PID" END+3!
>> Y BRX+1, BRX+2, ERX+1, ERX+4*, LOOP+7*, LOOP+9*, LOOP+10, LOOP+12*, LOOP+13*, LOOP+14*
, 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("PSDLOC" SAVE+2*
ZTSAVE("PSDRX" SAVE+2*
ZTSAVE("PSDRX(" SAVE+2*
ZTSAVE("^TMP(""PSD"",$J," SAVE+1*
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