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  | All
Print Page as PDF
Routine: PSOATRFC

Package: Outpatient Pharmacy

Routine: PSOATRFC


Information

PSOATRFC ;BIR/MHA - Automate CPRS Refill request ;Jul 13, 2021@14:18:47

Source Information

Source file <PSOATRFC.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Outpatient Pharmacy 10 $$LSTRFL^PSOBPSU1  $$RXSITE^PSOBPSUT  ^PSOBUILD  ICN^PSODPT  EN^PSOHLUP  GET^PSOPTPST  EN^PSOR52  SUSDATE^PSOUTIL  
$$TITRX^PSOUTL  $$DEACHK^PSOUTLA1  
VA FileMan 4 C^%DTC  UPDATE^DIE  $$GET1^DIQ  EN^DIQ1  
Kernel 1 $$VERSION^XPDUTL  
MailMan 1 ^XMD  
Registration 1 DEM^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: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSOHLNE2  PSOPRKA  

Entry Points

Name Comments DBIA/ICR reference
REF(PSORXN,PSOITMG) ;process refill request
CHKRF ;check precription if still refillable
CHKDT ;check date on this refill request
NEXT ;
DSP(X) ;
ERR(TXT) ;Build error text array
; add TXT to end of last line in array, if will fit, else
; add it as a new last line and indented 3.
; and set error flag
MAILMSG(DFN,RXN,ERRTXT) ;send alert via mailman msg to PSOAUTRF key holders

External References

Name Field # of Occurrence
C^%DTC CHKRF+1, CHKDT+5, NEXT+5, NEXT+13, NEXT+15
UPDATE^DIE REF+70
$$GET1^DIQ MAILMSG+11, MAILMSG+12
EN^DIQ1 REF+7
$$LSTRFL^PSOBPSU1 REF+39
$$RXSITE^PSOBPSUT MAILMSG+4
^PSOBUILD CHKRF+2
ICN^PSODPT REF+23
EN^PSOHLUP REF+24
GET^PSOPTPST REF+20
EN^PSOR52 REF+61
SUSDATE^PSOUTIL CHKDT+7
$$TITRX^PSOUTL REF+54
$$DEACHK^PSOUTLA1 REF+48
DEM^VADPT MAILMSG+2
^XMD MAILMSG+15
$$VERSION^XPDUTL REF+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(52 CHKRF+11
^PS(52.5 - [#52.5] REF+37
^PS(55 - [#55] REF+24
^PS(59 - [#59] REF+9, MAILMSG+4
^PS(59.7 - [#59.7] REF+14
^PSDRUG - [#50] REF+25, REF+46, CHKRF+22
^PSRX - [#52] REF+6, REF+16, REF+18, REF+33, REF+63, REF+67, REF+68, CHKRF+26, NEXT+2, NEXT+8
, NEXT+9
^PSX(550 - [#550] REF+10, REF+12
^XMB(1 - [#4.3] REF+7
^XUSEC("PSOAUTRF" MAILMSG+6

Label References

Name Line Occurrences
$$DSP CHKDT+9, CHKDT+10, CHKDT+13, CHKDT+15
CHKDT REF+51
CHKRF REF+31
ERR REF+17, REF+22, REF+26, REF+28, REF+30, REF+38, REF+41, REF+49, REF+50, REF+55
, CHKRF+4, CHKRF+8, CHKRF+13, CHKRF+15, CHKRF+16, CHKRF+17, CHKRF+18, CHKRF+19, CHKRF+20, CHKRF+21
, CHKRF+27, CHKDT+9, CHKDT+10, CHKDT+13, CHKDT+15
NEXT CHKDT+6

Naked Globals

Name Field # of Occurrence
^("I" REF+25
^("STA" REF+16, REF+18
^(0 REF+16
^(2 REF+16, REF+18
^(3 REF+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AL REF+65~, REF+66*, REF+67*, REF+68, REF+69
>> DA REF+7*
DFN REF+1~, REF+19*, REF+23, REF+24, MAILMSG~
>> DIC REF+7*
DIFROM MAILMSG+14~
>> DIQ REF+7*
>> DIQ(0 REF+7*
DIV REF+1~, REF+6*, REF+9, MAILMSG+1~, MAILMSG+4*
DIVN REF+3~, MAILMSG+1~, MAILMSG+4*, MAILMSG+7
DONE REF+65~, REF+66*, REF+67, REF+71*
>> DR REF+7*
DRG REF+3~, REF+19*, REF+25, REF+44*, REF+46
DT REF+25, CHKRF+1, CHKDT+4
DUZ CHKDT+5
ERRTXT MAILMSG~
ERRTXT( MAILMSG+8*, MAILMSG+9*, MAILMSG+10*, MAILMSG+11*, MAILMSG+12*, MAILMSG+13*
II ERR+4~*, ERR+6, ERR+7, ERR+9
LC REF+4~
MDUZ MAILMSG+1~, MAILMSG+5*, MAILMSG+6*
PSOA CHKRF+11*, CHKRF+12*, CHKRF+13, CHKRF+14!
PSOB CHKRF+11*, CHKRF+12, CHKRF+14!
PSOCHECK REF+45~, REF+48*, REF+49, REF+50
PSOD REF+3~, CHKRF+22*, CHKRF+26
PSODAY REF+45~, REF+47*, REF+48
PSODEA REF+45~, REF+46*, REF+48
PSODFN REF+1~, REF+19*, REF+21, REF+22, REF+27, REF+28, REF+29
PSODTCUT REF+1~, CHKRF+1*
PSOFDA REF+65~
PSOFDA( REF+69*
>> PSOFROM REF+64
PSOINST REF+2~, REF+8*, REF+10
PSOITDD REF+1~
PSOITF REF+1~, REF+42*, REF+63, REF+68
PSOITMG REF~
PSOITMG( ERR+6, ERR+7*, ERR+9*
PSOITMG("" ERR+4
PSOITNF REF+1~, REF+9*, REF+33*, REF+34, REF+51, ERR+5*
PSOITNS REF+1~
PSOITP REF+2~
PSOITR REF+2~
PSOLOUD REF+24*!
PSOPAR REF+2~, REF+9*, REF+25
PSOPAR7 REF+2~
>> PSOPARK REF+64
PSOPINST REF+2~
PSOPRPAS REF+2~
PSOPTPST REF+2~
PSOPTPST(2 REF+21, REF+22, REF+27, REF+28, REF+29
PSOREA REF+3~, CHKRF+9*, CHKRF+10, CHKRF+15, CHKRF+16, CHKRF+17, CHKRF+18, CHKRF+19, CHKRF+20
PSORFN REF+3~, REF+9*, REF+27, REF+29
>> PSORX("FILL D ATE" , CHKDT+4*
PSORXN REF~, REF+6, REF+16, REF+17, REF+18, REF+33, REF+37, REF+39, REF+48, REF+54
, REF+63, REF+67, REF+68, REF+69, CHKRF+7, CHKDT+2, NEXT+2, NEXT+8, NEXT+9
PSORXN0 REF+4~, REF+18*, REF+19, REF+40, REF+43, REF+44, REF+47, CHKRF+22, NEXT+4, NEXT+12
, NEXT+14
PSORXN2 REF+4~, REF+18*, REF+43, CHKDT+6, NEXT+1
PSORXN3 REF+4~, REF+18*, REF+43, CHKDT+7, CHKDT+11, NEXT+3*, NEXT+6*, NEXT+11*, NEXT+16*
PSORXNS REF+4~, REF+18*, REF+43, CHKRF+5
PSOS REF+3~, CHKRF+5*, CHKRF+6*, CHKRF+7, CHKRF+22*, CHKRF+24*, CHKRF+25, CHKRF+26
>> PSOSD CHKRF+3
>> PSOSD( CHKRF+6, CHKRF+7, CHKRF+24, CHKRF+25, CHKRF+26
PSOSITE REF+3~, REF+6*
PSOSNM REF+3~
PSOSTAT REF+3~, CHKRF+9*, CHKRF+10*, CHKRF+11
PSOSYS REF+3~, REF+14*
>> PSOUTIL(4 REF+8, REF+10
>> PSOX REF+61, CHKRF+5*, CHKRF+6*, CHKRF+7, CHKRF+22*, CHKRF+25*, CHKRF+26, CHKDT+7
>> PSOX("CLERK C ODE" , CHKDT+5*
>> PSOX("FIELD" CHKDT+4*
>> PSOX("FILL DA TE" , CHKDT+4*, CHKDT+7, CHKDT+8, CHKDT+9, CHKDT+12, CHKDT+13, CHKDT+14
>> PSOX("FLD" CHKDT+3*, CHKDT+4*
>> PSOX("IRXN" CHKDT+2*
>> PSOX("ISSUE D ATE" , CHKDT+5*
>> PSOX("LAST RE FILL DATE" , CHKDT+11*, CHKDT+12, CHKDT+14, CHKDT+15
>> PSOX("MAIL/WINDOW" CHKDT+3*
>> PSOX("NUMBER" REF+42*
>> PSOX("QS" CHKDT+3*
>> PSOX("RX0" REF+43*
>> PSOX("RX2" REF+43*
>> PSOX("RX3" REF+43*
>> PSOX("STA" REF+43*, CHKRF+5*, CHKRF+9
>> PSOX("STOP DA TE" , CHKDT+6*, CHKDT+8, CHKDT+10
PSOX1 NEXT+1*, NEXT+3, NEXT+14, NEXT+17!
PSOX2 NEXT+10*, NEXT+11, NEXT+17!
PSOY REF+39*, REF+40, REF+42, CHKRF+5*, CHKRF+7*, CHKRF+9, CHKRF+21, NEXT+8*, NEXT+9*, NEXT+10
, NEXT+17!
PSOY1 NEXT+8*, NEXT+9, NEXT+17!
PSOY2 NEXT+7*, NEXT+8*, NEXT+14, NEXT+17!
PSOY3 NEXT+13*, NEXT+16, NEXT+17!
PSOY4 NEXT+15*, NEXT+16, NEXT+17!
PSXSYS REF+4~, REF+10*, REF+11, REF+12!, REF+13!
PTNAME MAILMSG+1~, MAILMSG+3*, MAILMSG+10
PTSSN MAILMSG+1~, MAILMSG+3*, MAILMSG+10
RX REF+4~
RX0 REF+4~
RXN REF+4~, REF+19*, REF+26, CHKRF+8, MAILMSG~, MAILMSG+4, MAILMSG+11, MAILMSG+12
>> SITE REF+7*, REF+8, REF+10
TXT ERR~, ERR+6, ERR+7, ERR+9
U REF+7, REF+16, REF+19, REF+24, REF+25, REF+29, REF+40, REF+44, REF+46, REF+47
, REF+68, CHKRF+7, CHKRF+9, CHKRF+11, CHKRF+22, CHKRF+26, CHKDT+6, CHKDT+7, CHKDT+11, NEXT+1
, NEXT+3, NEXT+4, NEXT+6, NEXT+10, NEXT+11, NEXT+12, NEXT+14, NEXT+16
VA REF+4~
VADM MAILMSG+3!
VADM(1 MAILMSG+3
VADM(2 MAILMSG+3
X CHKRF+1, CHKDT+5, NEXT+6!, NEXT+13, NEXT+15, NEXT+17!, DSP~, DSP+1, DSP+2
X1 CHKRF+1*, CHKDT+1~, CHKDT+4*, NEXT+3*, NEXT+11*, NEXT+14*, NEXT+17!
X2 CHKRF+1*, CHKDT+1~, CHKDT+4*, NEXT+4*, NEXT+12*, NEXT+14*, NEXT+17!
XMDUZ MAILMSG+1~, MAILMSG+7*
XMSUB MAILMSG+1~, MAILMSG+7*
XMTEXT MAILMSG+1~, MAILMSG+14*
XMY REF+4~
XMY( MAILMSG+6*
ZRX CHKRF+23~*, CHKRF+26*, CHKRF+27
ZZ REF+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  | All