Routine: PSOATRFC

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

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOHLNE2

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

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

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

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

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

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~

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOATRFC

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: