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 ;8/18/08 12:54pm

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

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOHLNE2  

Entry Points

Name Comments DBIA/ICR reference
REF(PSORXN,PSOITMG) ;process refill request
CHKDT ;check date on this refill request
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
NEXT ;
DSP(X) ;
CHKRF ;check precription if still refillable
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+63
$$GET1^DIQ MAILMSG+11, MAILMSG+12
EN^DIQ1 REF+7
$$LSTRFL^PSOBPSU1 REF+36
$$RXSITE^PSOBPSUT MAILMSG+4
^PSOBUILD CHKRF+2
ICN^PSODPT REF+23
EN^PSOHLUP REF+24
GET^PSOPTPST REF+20
EN^PSOR52 REF+55
SUSDATE^PSOUTIL CHKDT+7
$$TITRX^PSOUTL REF+51
$$DEACHK^PSOUTLA1 REF+45
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+34
^PS(55 - [#55] REF+24
^PS(59 - [#59] REF+9, MAILMSG+4
^PS(59.7 - [#59.7] REF+14
^PSDRUG - [#50] REF+25, REF+43, CHKRF+22
^PSRX - [#52] REF+6, REF+16, REF+18, REF+57, REF+60, REF+61, 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+48
CHKRF REF+31
ERR REF+17, REF+22, REF+26, REF+28, REF+30, REF+35, REF+38, REF+46, REF+47, REF+52
, 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+58~, REF+59*, REF+60*, REF+61, REF+62
>> 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+58~, REF+59*, REF+60, REF+64*
>> DR REF+7*
DRG REF+3~, REF+19*, REF+25, REF+41*, REF+43
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+42~, REF+45*, REF+46, REF+47
PSOD REF+3~, CHKRF+22*, CHKRF+26
PSODAY REF+42~, REF+44*, REF+45
PSODEA REF+42~, REF+43*, REF+45
PSODFN REF+1~, REF+19*, REF+21, REF+22, REF+27, REF+28, REF+29
PSODTCUT REF+1~, CHKRF+1*
PSOFDA REF+58~
PSOFDA( REF+62*
PSOINST REF+2~, REF+8*, REF+10
PSOITDD REF+1~
PSOITF REF+1~, REF+39*, REF+57, REF+61
PSOITMG REF~
PSOITMG( ERR+6, ERR+7*, ERR+9*
PSOITMG("" ERR+4
PSOITNF REF+1~, REF+9*, REF+31, REF+48, ERR+5*
PSOITNS REF+1~
PSOITP REF+2~
PSOITR REF+2~
PSOLOUD REF+24*!
PSOPAR REF+2~, REF+9*, REF+25
PSOPAR7 REF+2~
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+34, REF+36, REF+45, REF+51, REF+57
, REF+60, REF+61, REF+62, CHKRF+7, CHKDT+2, NEXT+2, NEXT+8, NEXT+9
PSORXN0 REF+4~, REF+18*, REF+19, REF+37, REF+40, REF+41, REF+44, CHKRF+22, NEXT+4, NEXT+12
, NEXT+14
PSORXN2 REF+4~, REF+18*, REF+40, CHKDT+6, NEXT+1
PSORXN3 REF+4~, REF+18*, REF+40, CHKDT+7, CHKDT+11, NEXT+3*, NEXT+6*, NEXT+11*, NEXT+16*
PSORXNS REF+4~, REF+18*, REF+40, 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+55, 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+39*
>> PSOX("QS" CHKDT+3*
>> PSOX("RX0" REF+40*
>> PSOX("RX2" REF+40*
>> PSOX("RX3" REF+40*
>> PSOX("STA" REF+40*, 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+36*, REF+37, REF+39, 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+37, REF+41, REF+43, REF+44
, REF+61, 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