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

Package: Outpatient Pharmacy

Routine: PSOAUTOC


Information

PSOAUTOC ;BIR/SAB - auto cancel rxs on admission ;Jan 10, 2022@11:14:59

Source Information

Source file <PSOAUTOC.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Outpatient Pharmacy 9 REVERSE^PSOBPSU1  REF^PSOCAN2  FIL^PSOCAN3  EN^PSOHLSN  EN^PSOHLSN1  EN^PSOHLUP  REIN^PSONVNEW  CAN^PSOTPCAN  
CHKCMOP^PSOUTL  
VA FileMan 5 (,DD)^%DT  NOW^%DTC  ^DIC  ^DIK  EN^DIQ1  
Kernel 3 ^%ZTLOAD  $$UP^XLFSTR  (EDIT,RESCH)^XUTMOPT  
MailMan 2 ^XMD  $$GOTLOCAL^XMXAPIG  
Registration 1 (DEM,INP)^VADPT  

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

Package Total Caller Graph
Outpatient Pharmacy 5 PSO AUTOCANCEL  PSO AUTOCANCEL1  PSO COSTINIT  PSOHELP1  PSOMGCM1  

Entry Points

Name Comments DBIA/ICR reference
AUTO
EX
TASK ;TaskMan entry point
CAN ;discontinue Rxs
KILL
SETUP ;initialize nightly Rx cost compile job
OUT
SETUP1
APSOD(PSODFN) ;sends mail message that date of death has been deleted
MAIL ;builds mail message
EX1

External References

Name Field # of Occurrence
^%DT TASK+1
DD^%DT MAIL+9
NOW^%DTC CAN+20
^%ZTLOAD APSOD+9
^DIC AUTO+1, SETUP+1, SETUP1
^DIK CAN+24, CAN+26
EN^DIQ1 MAIL+1
REVERSE^PSOBPSU1 CAN+8
REF^PSOCAN2 CAN+23
FIL^PSOCAN3 CAN+10
EN^PSOHLSN MAIL+33
EN^PSOHLSN1 CAN+27
EN^PSOHLUP CAN+2
REIN^PSONVNEW MAIL+46
CAN^PSOTPCAN CAN+9
CHKCMOP^PSOUTL CAN+7
DEM^VADPT MAIL+7
INP^VADPT CAN+1
$$UP^XLFSTR APSOD+7
^XMD MAIL+56
$$GOTLOCAL^XMXAPIG MAIL+51
EDIT^XUTMOPT AUTO+2, AUTO+3, SETUP+2, SETUP+3, SETUP1+1, SETUP1+2
RESCH^XUTMOPT AUTO+3, SETUP+3, SETUP1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"Auto cancel System Parameter must be set to 'YES'",!,"before prescriptions are discontinued."
  • Line Location: AUTO+0
Routine Call
  • DIC
  • Line Location:
    • AUTO+1
    • SETUP+1
    • SETUP1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM("AMV1" TASK+2
^DGPM("APTT1" TASK+2
^DPT - [#2] TASK+2, MAIL+8
^PS(50.606 - [#50.606] MAIL+44
^PS(50.7 - [#50.7] MAIL+36, MAIL+44
^PS(52.4 - [#52.4] CAN+26
^PS(52.41 - [#52.41] MAIL+4, MAIL+21, MAIL+22*, MAIL+23, MAIL+27, MAIL+28*, MAIL+29*, MAIL+30*, MAIL+34!, MAIL+35
, MAIL+36
^PS(52.5 - [#52.5] CAN+22, CAN+23, CAN+24
^PS(52.91 - [#52.91] APSOD+1, APSOD+2, APSOD+3*, APSOD+4*
^PS(53 - [#53] APSOD+6, APSOD+7
^PS(55 - [#55] TASK+2, CAN+2, CAN+3, APSOD+5, APSOD+7*, MAIL+5, MAIL+42, MAIL+43, MAIL+45*!
^PS(59.7 - [#59.7] AUTO, TASK+1, CAN+1
^PSDRUG - [#50] MAIL+15, MAIL+36, MAIL+44
^PSRX - [#52] CAN+4, CAN+6*, CAN+12, CAN+13*, CAN+14*, CAN+16!, CAN+18, CAN+19, CAN+20*, CAN+23
, MAIL+15, MAIL+17
^PSRX("AH" CAN+13!
^PSRX("APARK" CAN+16!
^PSRX("APSOD" MAIL+3, MAIL+15
^TMP("PSOAD" MAIL+2!, MAIL+8*, MAIL+9*, MAIL+10*, MAIL+11*, MAIL+12*, MAIL+13*, MAIL+14*, MAIL+17*, MAIL+19*
, MAIL+20*, MAIL+38*, MAIL+39*, MAIL+40*, MAIL+41*, MAIL+46*, EX1!
^TMP("PSOHLD" MAIL+2!, MAIL+15*, MAIL+16, EX1!
^XUSEC("PSORPH" MAIL+55

Label References

Name Line Occurrences
CAN TASK+2
EX AUTO+2
EX1 MAIL+1
KILL TASK+1, TASK+3
OUT SETUP+2, SETUP1+1

Naked Globals

Name Field # of Occurrence
^( CAN+3
^("STA" CAN+4, CAN+6*
^(0 CAN+3, CAN+4, APSOD+2, MAIL+23, MAIL+43, MAIL+45*
^(2 CAN+4
^(3 CAN+14
^(7 CAN+6*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CAN+20, KILL!
%DT AUTO+1!, SETUP+1!, OUT!, SETUP1!, SETUP1+3!
%H KILL!
%T KILL!
ACNT CAN+18*, CAN+20*, KILL!
C EX!
COM CAN+27*, KILL+1!
D EX!
D0 EX!
DA EX!, CAN+23*, CAN+24*, CAN+26*, KILL!, APSOD+8~, MAIL+1*
DFN CAN+1*, KILL!, MAIL+7*, MAIL+43*
DI EX!, APSOD+8~
DIC AUTO+1!*, EX!, SETUP+1!*, OUT!, SETUP1!*, SETUP1+3!, APSOD+8~, MAIL+1*
DIC(0 AUTO+1*, SETUP+1*, SETUP1*
DIE AUTO+1*, EX!, APSOD+8~
DIFROM MAIL+48~
DIK CAN+24*!, CAN+26*!
>> DIQ MAIL+1*
DIR SETUP1+3!
DIRUT KILL!
DQ EX!
DR EX!, APSOD+8~, MAIL+1*
>> DRG MAIL+16*, MAIL+17
DT CAN+4, CAN+6, APSOD+4, MAIL+9
DTOUT KILL!, SETUP+1!, OUT!, SETUP1!, SETUP1+3!
ENT MAIL+7*, MAIL+8*, MAIL+9*, MAIL+10*, MAIL+11*, MAIL+12*, MAIL+13*, MAIL+14*, MAIL+17*, MAIL+19*
, MAIL+20*, MAIL+35*, MAIL+38, MAIL+39, MAIL+40*, MAIL+41*, MAIL+46*, EX1!
I MAIL+3*, MAIL+4*, MAIL+5*, MAIL+6!, MAIL+15*, MAIL+16*, EX1!
LOCATION MAIL+43*, MAIL+47!
MED MAIL+36*, MAIL+37*, MAIL+39, MAIL+41~, MAIL+44*, MAIL+46, MAIL+47!, EX1!
NVA MAIL+41~, MAIL+42*, MAIL+43, MAIL+45, MAIL+46
ORD KILL+1!
ORTYP MAIL+34!, MAIL+35*, MAIL+38, EX1!
PHARMST CAN+27*, KILL+1!
PLACER MAIL+43*, MAIL+47!
PSO KILL!
PSO0 CAN+4*, KILL!
PSO2 CAN+4*, KILL!
PSOD TASK+2*, KILL!
PSOD0 TASK+1*, TASK+2, KILL!
PSOD2 TASK+1*, CAN+4, KILL!
PSODD MAIL+41~, MAIL+43*, MAIL+44, MAIL+47!
PSODFN TASK+2*, CAN+1, CAN+2, CAN+3, KILL!, APSOD~, APSOD+1, APSOD+2, APSOD+3, APSOD+4
, APSOD+5, APSOD+7, MAIL+1, MAIL+3, MAIL+4, MAIL+5, MAIL+7, MAIL+8, MAIL+15, MAIL+21
, MAIL+22, MAIL+34, MAIL+42, MAIL+43, MAIL+45, EX1!
PSODL TASK+1*, TASK+2, KILL!
PSOI MAIL+54~, MAIL+55*
PSOIORD CAN+33!
PSOLPI MAIL+18~, MAIL+21*, MAIL+22, MAIL+23, MAIL+27, MAIL+28, MAIL+29, MAIL+30, MAIL+34, MAIL+35
, MAIL+36
PSOLPIST MAIL+18~, MAIL+23*, MAIL+25, MAIL+30, MAIL+31
PSOLPIX MAIL+18~, MAIL+23*, MAIL+24, MAIL+33
PSOLPND MAIL+18~, MAIL+27*, MAIL+28, MAIL+29, MAIL+30
PSOMEM MAIL+50~, MAIL+51*, MAIL+52, MAIL+53
PSONVA MAIL+41~, MAIL+46*
PSOOI MAIL+41~, MAIL+43*, MAIL+44, MAIL+47!
PSOOPTN OUT!, SETUP1+3!
PSOPTN OUT!, SETUP1+3!
PSORD CAN+33!
PSORESF1 APSOD+6~, APSOD+7*
PSORESFG APSOD+6~*, APSOD+7*
PSORESPS APSOD+6~*, APSOD+7
PSORX CAN+3*, CAN+4, CAN+6, CAN+7, CAN+8, CAN+9, CAN+12, CAN+13, CAN+14, CAN+16
, CAN+18, CAN+19, CAN+20, CAN+22, CAN+23, CAN+24, CAN+26, CAN+27, KILL!
PSORXJ CAN+3*, KILL!
PSOSD KILL!
PSOTM OUT!, SETUP1+3!
PTDOD EX1!
PTDOD(2 MAIL+1
REIN MAIL+46*, MAIL+47!
RF CAN+19*, KILL!
RFCNT CAN+19*, CAN+20, KILL!
RX MAIL+16*, MAIL+17, EX1!
>> STA CAN+4*
STAT CAN+27*, KILL+1!
SUB CAN+18*, KILL!
>> SUSD CAN+23*
TM KILL!
>> TOTNVA MAIL+5*, MAIL+6, MAIL+40, MAIL+41
TOTPRX MAIL+2!, MAIL+4*, MAIL+6, MAIL+19, MAIL+20, EX1!
TOTRX MAIL+2!, MAIL+3*, MAIL+6, MAIL+14, EX1!
TSKDT KILL!
U CAN+2
>> VA("PID" MAIL+8
>> VADM(3 MAIL+8
VAIN CAN+1!, KILL!
VAIN(4 CAN+1
X AUTO+1*, EX!, TASK+1*, KILL!, SETUP+1*, OUT!, SETUP1*, SETUP1+3!, APSOD+8~, EX1!
X1 KILL!
X2 KILL!
XMDUZ MAIL+48*, EX1!
XMSUB MAIL+48*, EX1!
XMTEXT MAIL+48*, EX1!
XMY EX1!
XMY( MAIL+55*
XMY("G.PSO DE ATH GROUP" , MAIL+52*
Y AUTO+2, EX!, TASK+1, KILL!, SETUP+2, OUT!, SETUP1+1, SETUP1+3!, APSOD+8~, MAIL+9*
, MAIL+10, EX1!
ZTDESC KILL!, APSOD+9*
ZTDTH KILL!, APSOD+9*
ZTIO KILL!, APSOD+9*
>> ZTQUEUED KILL+1
>> ZTREQ KILL+1*, APSOD+9*
ZTRTN KILL!, APSOD+9*
ZTSAVE KILL!
ZTSAVE("PSODFN" APSOD+9*
ZTSAVE("ZTREQ" APSOD+9*
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