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

Package: Outpatient Pharmacy

Routine: PSOSUCLE


Information

PSOSUCLE ;BIR/SAB-utility to resuspended Rxs ;04/11/00

Source Information

Source file <PSOSUCLE.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 6 ^%DT  NOW^%DTC  ^DIC  FILE^DICN  ^DIK  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Outpatient Pharmacy 2 SUS1^PSOCMOP  ^PSOLSET  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Outpatient Pharmacy 3 PSO SUCMOP PRINT REPORT  PSO SUCMOP RE-SUSLOCALCMOPPRI  PSO SUCMOP RESUSPENDNOTPRI  

Entry Points

Name Comments DBIA/ICR reference
HEAD
EN
END
REQUE
HEADONE
RESUS ;resuspends individual Rxs that have printed local but should have gone to CMOP
LIST
BEG
QUE ;queues job to background
ACT
EXIT
SURPT ;prints report of printed Rxs that have cmop drugs
ENT

External References

Name Field # of Occurrence
^%DT QUE+2, BEG, BEG+1
NOW^%DTC ACT+3, QUE+1
^%ZIS BEG+3
^%ZISC END
^%ZTLOAD QUE+6, BEG+7
^DIC RESUS+3
FILE^DICN REQUE+5
^DIK EN+3, REQUE
^DIR PSOSUCLE+9, HEADONE
SUS1^PSOCMOP REQUE+2
^PSOLSET PSOSUCLE+5, RESUS+1, SURPT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: PSOSUCLE+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !!,"Background Job not queued!",!
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !!,"Date and time Required!",!
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !,"No Division Selected!",!
  • Line Location: RESUS+1
Function Call: WRITE
  • Prompt: !,"No Division Selected!",!
  • Line Location: SURPT+1
Function Call: WRITE
  • Prompt: !!,"Enter a date range to see Rxs printed locally with CMOP Drugs from suspense within those dates."
  • Line Location: SURPT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !!,"Gathering Rxs, please wait...",!
  • Line Location: BEG+8
Function Call: WRITE
  • Prompt: !!,"There are no locally printed CMOP Rxs printed for specified date range!",!
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: @IOF,!?20,"Rxs Printed Locally that have CMOP Drugs"
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,"Date Range Requested: "_$E(BEG,4,5)_"/"_$E(BEG,6,7)_"/"_$E(BEG,2,3)_" to "_$E(END,4,5)_"/"_$E(END,6,7)_"/"_$E(END,2,3),!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: "Rx #",?20,"Patient Name",?60,"Date Printed",!
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEAD+3
Routine Call
  • DIC
  • Line Location:
    • RESUS+3
Routine Call
  • DIR
  • Line Location:
    • PSOSUCLE+9
    • HEADONE
Routine Call
  • %ZIS
  • Line Location:
    • BEG+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.5 - [#52.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] LIST+2
^PS(52.5 - [#52.5] EN+1, EN+2*, EN+3, EN+4, ENT+1, ENT+2, ENT+3!, ENT+4, ENT+5*, LIST+1
, LIST+2, LIST+3
^PSDRUG - [#50] LIST+3
^PSDRUG("AQ" ENT+4
^PSRX - [#52] REQUE+1, REQUE+7, ACT, ACT+1, ACT+2*, ACT+3*, ENT+4, LIST+1, LIST+2
^TMP("PSOSUCLE" EN!, EN+3, EN+4*, EN+5, EXIT!
^TMP($J ENT!, ENT+5*, END!, LIST, LIST+1

Label References

Name Line Occurrences
ACT REQUE+6
END BEG, BEG+1, BEG+3, BEG+4
EXIT PSOSUCLE+10, QUE+2, QUE+6, RESUS+3
HEAD LIST, HEADONE+1
HEADONE LIST+4
LIST ENT+6
QUE PSOSUCLE+10, QUE+3
REQUE EN+5, RESUS+4
RESUS RESUS+3, RESUS+4

Naked Globals

Name Field # of Occurrence
^("P" EN+1
^(0 LIST+1, LIST+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ACT+3!, QUE+1!
%DT EXIT!, QUE+2*, BEG!*, BEG+1*!, END!
%DT("A" QUE+2*, BEG*, BEG+1*
%DT("B" QUE+2*
%DT(0 QUE+1*, BEG*
%H ACT+3!, QUE+1!
%I ACT+3!, QUE+1!
%ZIS BEG+3!*, END!
ACT EXIT!, REQUE*
BEG BEG*, END!, HEAD+1
BEGDATE BEG*, BEG+2*, ENT+1, END!
>> DA EN+3*, REQUE*, REQUE+2*, ENT+2*, ENT+3, ENT+4, ENT+5
DD REQUE+5!
DIC REQUE+3*, ACT+3!, RESUS+2*, RESUS+3!
DIC("A" RESUS+2*
DIC("DR" REQUE+4*
DIC("S" RESUS+2*
DIC(0 REQUE+3*, RESUS+2*
DIE ACT+3!
>> DIK EN+3*, REQUE*
DIR PSOSUCLE+5!, EXIT!, HEADONE!
DIR("A" PSOSUCLE+7*, PSOSUCLE+8*, PSOSUCLE+9*
DIR("B" PSOSUCLE+9*
DIR(0 PSOSUCLE+6*, HEADONE*
DIROUT EXIT!
DIRUT PSOSUCLE+5!, PSOSUCLE+10, EXIT!
DO REQUE+5!
DR ACT+3!
DRG ENT+4*, END!, LIST+1*, LIST+3
DT EN+2, REQUE
DTOUT EXIT!, RESUS+3, BEG, BEG+1, END!
DUOUT PSOSUCLE+5!, EXIT!, RESUS+3, END!
DUZ ACT+3
END BEG+1*, END!, HEAD+1
ENDDATE BEG+1*, BEG+2*, ENT+1, END!
FDA ACT+1*, ACT+3!
G QUE+5*, BEG+6*, END!
I ACT*, ACT+3!
INRX END!, LIST+1*, LIST+2
IO LIST, HEAD
IO("Q" BEG+4, BEG+7!
IOF HEAD
ION BEG+3
IOP BEG+3!*
IOSL LIST+4
IR ACT+1*, ACT+2*, ACT+3!
L EXIT!, END!, LIST+1*, LIST+2, LIST+3
>> LFD REQUE+6*, REQUE+7, ACT+3
M ENT+1*, ENT+2, ENT+3, END!
POP BEG+3, END!
PSOION BEG+3*!, BEG+4!
>> PSOOUT LIST+1, LIST+5, HEADONE*
>> PSOPAR RESUS+1, SURPT+1
PSOQ EN!, EXIT!, REQUE+7, QUE+4*
>> PSOSITE ENT+1
PSOSYS EXIT!
>> PSXSYS REQUE+2
>> Q ENT+2*, ENT+3
RXF ACT*, ACT+3!
RXN EXIT!, REQUE*, REQUE+1, REQUE+2, REQUE+3, REQUE+7, ACT, ACT+1, ACT+2, ACT+3
, ENT+4*, ENT+5, END!
>> RXP REQUE+3*, REQUE+4
SD EXIT!, REQUE*, REQUE+4, REQUE+6
SU EN+1*, EN+2, EN+3, EN+4, EN+5*, EXIT!, REQUE, RESUS+4*!
SUSDAT EN!, EN+5*!, EXIT!, REQUE, REQUE+3, REQUE+4, RESUS+4*!
X PSOSUCLE+10, EXIT!, REQUE+3*, ACT+3!, QUE+1!, ENT+1*, ENT+2, ENT+3, END!
XFLAG EN!, EN+5!, EXIT!, REQUE+2!, RESUS+4!
Y PSOSUCLE+10, EXIT!, ACT+3!, QUE+2, QUE+3, QUE+4, RESUS+3, RESUS+4!, BEG, BEG+1
, HEADONE
Y(0 RESUS+4
>> Z ENT+1*, ENT+2, ENT+3, ENT+5
>> ZTDESC QUE+4*, BEG+5*
>> ZTDTH QUE+4*
>> ZTIO QUE+4*
ZTQUEUED BEG+3!
>> ZTREQ EXIT*
>> ZTRTN QUE+4*, BEG+5*
>> ZTSAVE( QUE+5*, BEG+6*
>> ZTSAVE("ZTREQ" BEG+5*
ZTSK QUE+6!, BEG+3!, BEG+7!, HEADONE
ZZZZ END!, HEAD+3*
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