Routine: PSOATRFV

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	PSOVCCA

Name	Comments	DBIA/ICR reference
REF(PSORXN,PSOUSR,PSORFSRC,PSOITMG)	;process refill request ; Input: ; PSORX (required) - Prescription Number ; PSOUSR (optional) - User requesting refill ; PSORFSRC (optional) - the source system from which the REFILL ; request Originated (e.g., AUDIOCARE, VCC, CPRS, VSE) ; PSOITMG - error array
CHKRF	;check prescription 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+72
$$GET1^DIQ	MAILMSG+11, MAILMSG+12
EN^DIQ1	REF+14
$$LSTRFL^PSOBPSU1	REF+43
$$RXSITE^PSOBPSUT	MAILMSG+4
^PSOBUILD	CHKRF+2
ICN^PSODPT	REF+30
EN^PSOHLUP	REF+31
GET^PSOPTPST	REF+27
EN^PSOR52	REF+62
SUSDATE^PSOUTIL	CHKDT+7
$$TITRX^PSOUTL	REF+58
$$DEACHK^PSOUTLA1	REF+52
DEM^VADPT	MAILMSG+2
^XMD	MAILMSG+15
$$VERSION^XPDUTL	REF+20

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

Name	Line Occurrences (* Changed, ! Killed)
^DD(52	CHKRF+11
^PS(52.5 - [#52.5]	REF+41
^PS(55 - [#55]	REF+31
^PS(59 - [#59]	REF+16, MAILMSG+4
^PS(59.7 - [#59.7]	REF+21
^PSDRUG - [#50]	REF+32, REF+50, CHKRF+22
^PSRX - [#52]	REF+13, REF+23, REF+25, REF+64, REF+66*, REF+69, REF+70, CHKRF+26, NEXT+2, NEXT+8 , NEXT+9
^PSX(550 - [#550]	REF+17, REF+19
^XMB(1 - [#4.3]	REF+14
^XUSEC("PSOAUTRF"	MAILMSG+6

Name	Line Occurrences
$$DSP	CHKDT+9, CHKDT+10, CHKDT+13, CHKDT+15
CHKDT	REF+55
CHKRF	REF+38
ERR	REF+24, REF+29, REF+33, REF+35, REF+37, REF+42, REF+45, REF+53, REF+54, REF+59 , 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+32
^("STA"	REF+23, REF+25
^(0	REF+23
^(2	REF+23, REF+25
^(3	REF+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AL	REF+67~, REF+68, REF+69, REF+70, REF+71
DA	REF+11~, REF+14*
DFN	REF+7~, REF+26*, REF+30, REF+31, MAILMSG~
DIC	REF+11~, REF+14*
DIFROM	MAILMSG+14~
DIQ	REF+11~, REF+14*
DIQ(0	REF+14*
DIV	REF+7~, REF+13, REF+16, MAILMSG+1~, MAILMSG+4
DIVN	REF+9~, MAILMSG+1~, MAILMSG+4*, MAILMSG+7
DONE	REF+67~, REF+68, REF+69, REF+73
DR	REF+11~, REF+14*
DRG	REF+9~, REF+26, REF+32, REF+48, REF+50
DT	REF+32, 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+10~
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+49~, REF+52*, REF+53, REF+54
PSOD	REF+9~, CHKRF+22*, CHKRF+26
PSODAY	REF+49~, REF+51*, REF+52
PSODEA	REF+49~, REF+50*, REF+52
PSODFN	REF+7~, REF+26*, REF+28, REF+29, REF+34, REF+35, REF+36
PSODTCUT	REF+7~, CHKRF+1*
PSOFDA	REF+67~
PSOFDA(	REF+71*
PSOFROM	REF+11~
PSOINST	REF+8~, REF+15*, REF+17
PSOITDD	REF+7~
PSOITF	REF+7~, REF+46*, REF+64, REF+66, REF+70
PSOITMG	REF~
PSOITMG(	ERR+6, ERR+7, ERR+9
PSOITMG(""	ERR+4
PSOITNF	REF+7~, REF+16, REF+38, REF+55, ERR+5
PSOITNS	REF+7~
PSOITP	REF+8~
PSOITR	REF+8~
PSOLOUD	REF+31*!
PSOPAR	REF+8~, REF+16*, REF+32
PSOPAR7	REF+8~
PSOPINST	REF+8~
PSOPRPAS	REF+8~
PSOPTPST	REF+8~
PSOPTPST(2	REF+28, REF+29, REF+34, REF+35, REF+36
PSOREA	REF+9~, CHKRF+9*, CHKRF+10, CHKRF+15, CHKRF+16, CHKRF+17, CHKRF+18, CHKRF+19, CHKRF+20
PSORFN	REF+9~, REF+16*, REF+34, REF+36
PSORFSRC	REF~, REF+65*, REF+66, REF+71
PSORX	REF+11~
PSORX("FILL D	ATE" , CHKDT+4*
PSORXN	REF~, REF+13, REF+23, REF+24, REF+25, REF+41, REF+43, REF+52, REF+58, REF+64 , REF+66, REF+69, REF+70, REF+71, CHKRF+7, CHKDT+2, NEXT+2, NEXT+8, NEXT+9
PSORXN0	REF+10~, REF+25*, REF+26, REF+44, REF+47, REF+48, REF+51, CHKRF+22, NEXT+4, NEXT+12 , NEXT+14
PSORXN2	REF+10~, REF+25*, REF+47, CHKDT+6, NEXT+1
PSORXN3	REF+10~, REF+25, REF+47, CHKDT+7, CHKDT+11, NEXT+3, NEXT+6, NEXT+11, NEXT+16*
PSORXNS	REF+10~, REF+25*, REF+47, CHKRF+5
PSOS	REF+9~, CHKRF+5, CHKRF+6, CHKRF+7, CHKRF+22, CHKRF+24, CHKRF+25, CHKRF+26
PSOSD	REF+11~, CHKRF+3
PSOSD(	CHKRF+6, CHKRF+7, CHKRF+24, CHKRF+25, CHKRF+26
PSOSITE	REF+9~, REF+13*
PSOSNM	REF+9~
PSOSTAT	REF+9~, CHKRF+9, CHKRF+10, CHKRF+11
PSOSYS	REF+9~, REF+21*
PSOUSR	REF~, REF+66
PSOUTIL	REF+11~
PSOUTIL(4	REF+15, REF+17
PSOX	REF+11~, REF+62, 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+46*
PSOX("QS"	CHKDT+3*
PSOX("RX0"	REF+47*
PSOX("RX2"	REF+47*
PSOX("RX3"	REF+47*
PSOX("STA"	REF+47, 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+43, REF+44, REF+46, 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+10~, REF+17*, REF+18, REF+19!, REF+20!
PTNAME	MAILMSG+1~, MAILMSG+3*, MAILMSG+10
PTSSN	MAILMSG+1~, MAILMSG+3*, MAILMSG+10
RX	REF+10~
RX0	REF+10~
RXN	REF+10~, REF+26*, REF+33, CHKRF+8, MAILMSG~, MAILMSG+4, MAILMSG+11, MAILMSG+12
SITE	REF+11~, REF+14*, REF+15, REF+17
TXT	ERR~, ERR+6, ERR+7, ERR+9
U	REF+14, REF+23, REF+26, REF+31, REF+32, REF+36, REF+44, REF+48, REF+50, REF+51 , REF+70, 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+10~
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+10~
XMY(	MAILMSG+6*
ZRX	CHKRF+23~, CHKRF+26, CHKRF+27
ZZ	REF+10~

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOATRFV

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: