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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PSOR52

Package: Outpatient Pharmacy

Routine: PSOR52


Information

PSOR52 ;IHS/DSD/JCM - Files refill entries in prescription file ;03/10/93

Source Information

Source file <PSOR52.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Outpatient Pharmacy 13 TRI^PSOBBC  ECMESND^PSOBPSU1  ($$STATUS,$$SUBMIT)^PSOBPSUT  $$GETDAW^PSODAWUT  EN^PSOHDR  $$GETNDC^PSONDCUT  GACT^PSOPFSU0  $$PSOET^PSOREJP3  
$$HDLG^PSOREJU1  RETRXF^PSOREJU2  $$FIND^PSOREJUT  BBRX^PSORN52C  (Q,SUS)^PSORXL  
VA FileMan 3 (C,NOW)^%DTC  (,IX1)^DIK  $$GET1^DIQ  
Pharmacy Data Management 2 PSOUL^PSSLOCK  ($$GETNDC,SAVNDC)^PSSNDCUT  
Integrated Billing 1 $$SWSTAT^IBBAPI  
Kernel 1 (T0,T1)^%ZOSV  

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

Package Total Caller Graph
Outpatient Pharmacy 4 PSOATRF  PSOATRFC  PSOREF0  PSORREF0  

Entry Points

Name Comments DBIA/ICR reference
EN(PSOX) ;Entry Point
START ;
END
INIT ;
INITX
FILE ;
DIK ;
FINISH ;
FINISHX ;
EOJ ;
DD ;rx data nodes

External References

Name Field # of Occurrence
C^%DTC INIT+6, INIT+9
NOW^%DTC INIT+5
T0^%ZOSV START+1
T1^%ZOSV START+5
^DIK EOJ+2
IX1^DIK DIK+2
$$GET1^DIQ FINISH+25
$$SWSTAT^IBBAPI FILE+12
TRI^PSOBBC FINISH+28
ECMESND^PSOBPSU1 FINISH+19
$$STATUS^PSOBPSUT FINISH+6, FINISH+24
$$SUBMIT^PSOBPSUT FINISH+6, FINISH+18
$$GETDAW^PSODAWUT INIT+19
EN^PSOHDR DIK+4
$$GETNDC^PSONDCUT FINISH+25
GACT^PSOPFSU0 FILE+12
$$PSOET^PSOREJP3 FINISH+21
$$HDLG^PSOREJU1 FINISH+23
RETRXF^PSOREJU2 FINISH+7
$$FIND^PSOREJUT FINISH+22
BBRX^PSORN52C FINISHX+1
Q^PSORXL FINISH+28
SUS^PSORXL FINISH+3, FINISH+12
PSOUL^PSSLOCK EOJ+3
$$GETNDC^PSSNDCUT INIT+19
SAVNDC^PSSNDCUT FINISH+25

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] Classic Fileman Calls,  GET1^DIQ
^PS(52.41 - [#52.41] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.41 - [#52.41] EOJ+2
^PSDRUG - [#50] INIT+4
^PSRX - [#52] FILE+2, FILE+3*, FILE+6*, FILE+8*, FILE+9*, FILE+10*, FILE+11*, DIK+3
^PSRX("ACP" DIK+3*

Label References

Name Line Occurrences
DIK START+4
END START+2
EOJ END
FILE START+3
FINISH START+6
FINISHX FINISH+1, FINISH+9, FINISH+27, FINISH+33
INIT START+2

Naked Globals

Name Field # of Occurrence
^(0 FILE+2*, FILE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % INIT+5
ACTION FINISH+16~, FINISH+18, FINISH+19*, FINISH+21*, FINISH+23*
>> BBFLG FINISHX+1*
>> BINGCRT FINISHX+1*
>> BINGRTE FINISHX+1*
DA DIK+1!, DIK+2*, DIK+3!, FINISH+2*, FINISH+3!, FINISH+11*, FINISH+12!, EOJ+2*, EOJ+3, EOJ+4!
DIK DIK+1!, DIK+2*!, EOJ+2*, EOJ+4!
DT INIT+14, FILE+11, FINISH+9
DUZ INIT+18
PPL FINISH+28!, FINISH+30*, FINISH+31*
PSOERF FINISH+16~, FINISH+17*, FINISH+18, FINISH+19, FINISH+21, FINISH+22, FINISH+23, FINISH+24, FINISH+25
PSOERX FINISH+16~, FINISH+17*, FINISH+18, FINISH+19, FINISH+21, FINISH+22, FINISH+23, FINISH+24, FINISH+25
>> PSOPAR INIT+14, FINISH+9
PSOR52 FILE+4*, EOJ+4!
PSOR52( FILE+4*, FILE+6
PSOR52("QFLG" START+2, INIT+1*
PSORFKL EOJ+3*!
>> PSORX("ADMINCLINIC" INIT+3
>> PSORX("MAIL/WINDOW" FINISHX+1
>> PSORX("PSOL" FINISH+33*, FINISH+34, FINISH+35*, FINISH+36*
>> PSOSITE FINISH+25
PSOX EN~
PSOX("ADMINCLINIC" INIT+3*
PSOX("CLERK C ODE" , INIT+18*
PSOX("COST" INIT+4*
PSOX("DAW" INIT+19*
PSOX("DAYS SU PPLY" , INIT+2*, INIT+6, INIT+8
PSOX("DISPENS ED DATE" , INIT+12*
PSOX("FILL DA TE" , INIT+6, INIT+12, INIT+14, FILE+11, FINISH+9
PSOX("GENERIC PROVIDER" , INIT+16*
PSOX("IRXN" INIT+19, FILE+2, FILE+3, FILE+4, FILE+6, FILE+8, FILE+9, FILE+10, FILE+11, FILE+12
, DIK+2, DIK+4, FINISH+2, FINISH+6, FINISH+7, FINISH+10, FINISH+11, FINISH+13, FINISH+17, FINISH+28
, FINISH+29, FINISH+30, FINISH+31, FINISH+33, FINISH+35, FINISH+36, FINISH+37, EOJ+2
PSOX("LAST DI SPENSED DATE" , INIT+12*, FILE+9
PSOX("LAST RE FILL DATE" , FILE+10
PSOX("LOGIN D ATE" , INIT+5*, INIT+14, FINISH+9
PSOX("MAIL/WINDOW" INIT+13*, INIT+15*, EOJ+1*
PSOX("METHOD OF PICK-UP" , FILE+11
PSOX("NDC" INIT+19*
PSOX("NEXT PO SSIBLE REFILL" , INIT+10*, FILE+9
PSOX("NUMBER" INIT+8, FILE+3, FILE+4, FILE+6, FILE+12, DIK+3, FINISH+2, FINISH+6, FINISH+7, FINISH+11
, FINISH+17, FINISH+29, FINISH+33, FINISH+37
PSOX("OLD MAI L/WINDOW" , INIT+15*, EOJ+1!
PSOX("PROVIDER" INIT+17*
PSOX("QS" FINISH+1, FINISH+27
PSOX("QTY" INIT+2*
PSOX("RX0" INIT+2, INIT+4, INIT+17, INIT+19
PSOX("RX2" INIT+7, INIT+16
PSOX("STA" FILE+8
PSOX1 INIT+6*, INIT+10, INIT+11!, FILE+4*, FILE+5!, FILE+6*, FILE+7!, FINISH+34*, FINISHX+2!
PSOX2 INIT+9*, INIT+10, INIT+11!, FINISH+34*, FINISH+35, FINISH+36, FINISHX+2!
PSOXRXFL FINISH+10!*, FINISH+13!
PSOY FILE+4!*, FILE+5!
RXFL FINISH+28!
RXFL( FINISH+2*, FINISH+10, FINISH+11*, FINISH+13*, FINISH+29*, FINISH+33*, FINISH+37*
X INIT+6, INIT+9, INIT+11!
>> X1 INIT+6*, INIT+7*
>> X2 INIT+6*, INIT+8*
>> XRT0 START+5
>> XRTL START+1
>> XRTN START+5*

Marked Items

Name Field # of Occurrence
$T( START+5
$T(DD+PSOX1 FILE+4
$T(EN^PSOHDR DIK+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All