Routine: PSOERX1E

Package	Total	Call Graph
Outpatient Pharmacy	11	$$STATEABB^PSOERUT SET^PSOERX1D DUPVPAT^PSOERX1E TXT2ARY^PSOERXD1 UPDSTAT^PSOERXU1 ($$GETRESP,$$RESOLV)^PSOERXU2 $$GETDRUG^PSOERXU5 $$OPACCESS^PSOERXU7 $$CHVAELIG^PSOERXU9 $$VALPTADD^PSOERXUT $$DEAD^PSONVARP
List Manager	2	PAUSE^VALM1 (CNTRL,SET)^VALM10
VA FileMan	2	FILE^DIE ($$GET1,GETS)^DIQ
Adverse Reaction Tracking	1	EN1^GMRADPT
Kernel	1	$$FMTE^XLFDT
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSOERX1A PSOERX1B PSOERX1D PSOERX1E

Name	Comments	DBIA/ICR reference
PHCHREQ(PSOIEN,RULE,LINE,PRTVIEW)	; Pharmacy Change Request Note
AUTOHOLD(TYPE,ERXIEN,VPATIEN,EPATIEN)	; Checks whether the VistA Patient has an Allergy Assessment or is Eligibile for ; ChampVA Rx Benefit, if not, put all eRx's on Hold (HAL or HEL) - Used by MbM only
DUPVPAT(DFN,LIST)	; Checks whether a VistA Patient has potential duplicate records ; Input: DFN - Pointer to the PATIENT file (#2)
CXRES	;
PATWARN(ACTION,PSOIEN,SELPAT)	; Check whether the Patient Select is valid or not ; Input:(r)ACTION - Ation being peformed ("EP": Edit Patient \| "VP": Validate Patient) ; (r)PSOIEN - Pointer to the ERX HOLDING QUEUE file (#52.49) ; (r)SELPAT - Patient -Pointer to the PATIENT file (#2)

External References

Name	Field # of Occurrence
FILE^DIE	AUTOHOLD+27
$$GET1^DIQ	PHCHREQ+4, PHCHREQ+6, PHCHREQ+7, AUTOHOLD+8, AUTOHOLD+13, AUTOHOLD+16, AUTOHOLD+25, AUTOHOLD+32, AUTOHOLD+39, AUTOHOLD+40 , AUTOHOLD+41, DUPVPAT+5, DUPVPAT+7, DUPVPAT+15, DUPVPAT+16, DUPVPAT+17, CXRES+9, CXRES+35, CXRES+36, CXRES+71 , CXRES+79, CXRES+80, CXRES+87, CXRES+88, CXRES+89, PATWARN+6, PATWARN+8, PATWARN+9, PATWARN+10, PATWARN+11 , PATWARN+14, PATWARN+16, PATWARN+18, PATWARN+26
GETS^DIQ	CXRES+19, CXRES+30
EN1^GMRADPT	PATWARN+33
$$STATEABB^PSOERUT	DUPVPAT+17
SET^PSOERX1D	CXRES+48, CXRES+57, CXRES+58, CXRES+68, CXRES+69, CXRES+100
DUPVPAT^PSOERX1E	PATWARN+21
TXT2ARY^PSOERXD1	PHCHREQ+14, CXRES+51, CXRES+59, CXRES+72
UPDSTAT^PSOERXU1	AUTOHOLD+20, AUTOHOLD+21
$$GETRESP^PSOERXU2	CXRES+11
$$RESOLV^PSOERXU2	PHCHREQ+3, CXRES+6
$$GETDRUG^PSOERXU5	AUTOHOLD+39
$$OPACCESS^PSOERXU7	AUTOHOLD+19
$$CHVAELIG^PSOERXU9	PATWARN+30
$$VALPTADD^PSOERXUT	PATWARN+26
$$DEAD^PSONVARP	DUPVPAT+13
DEM^VADPT	PATWARN+24
PAUSE^VALM1	AUTOHOLD+42, AUTOHOLD+44
CNTRL^VALM10	PHCHREQ+16, CXRES+43, CXRES+47, CXRES+48, CXRES+53, CXRES+57, CXRES+58, CXRES+63, CXRES+68, CXRES+69 , CXRES+76, CXRES+83, CXRES+84, CXRES+99, CXRES+100
SET^VALM10	PHCHREQ+10, PHCHREQ+11, PHCHREQ+16, PHCHREQ+18, CXRES+43, CXRES+45, CXRES+46, CXRES+47, CXRES+53, CXRES+54 , CXRES+63, CXRES+64, CXRES+65, CXRES+70, CXRES+76, CXRES+78, CXRES+83, CXRES+84, CXRES+85, CXRES+99 , CXRES+101
$$FMTE^XLFDT	PATWARN+18

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The following eRx record(s) have been put on Hold ("_$S(TYPE="A":"HAL",1:"HEL")_") because the VistA" Line Location: AUTOHOLD+31
Function Call: WRITE	Prompt: !,"Patient ("_$$GET1^DIQ(2,VPATIEN,.01)_") " Line Location: AUTOHOLD+32
Function Call: WRITE	Prompt: !,HDR,!,XX Line Location: AUTOHOLD+37
Function Call: WRITE	Prompt: ?47,$E($$GET1^DIQ(52.49,OERXIEN,2.1),1,23) Line Location: AUTOHOLD+40
Function Call: WRITE	Prompt: ?76,$$GET1^DIQ(52.49,OERXIEN,1) Line Location: AUTOHOLD+41
Function Call: WRITE	Prompt: !,HDR,!,XX Line Location: AUTOHOLD+42
Function Call: WRITE	Prompt: !!,"*****************************",$S(ERXMMFLG:" WARNING(S) ",1:"INVALID PATIENT"),"*****************************" Line Location: PATWARN+37
Function Call: WRITE	Prompt: !,$G(ERXMSG(I)) Line Location: PATWARN+39
Function Call: WRITE	Prompt: !,"*****************************************************************************" Line Location: PATWARN+40
Routine Call	DIE Line Location: AUTOHOLD+27

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^PS(52.45 - [#52.45]	GET1^DIQ
^PS(52.46 - [#52.46]	GET1^DIQ
^PS(52.49 - [#52.49]	GET1^DIQ, GETS^DIQ
52.49311	GETS^DIQ
52.493117	GET1^DIQ
52.4955	GET1^DIQ
^PS(59.7 - [#59.7]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT("B"	DUPVPAT+10, DUPVPAT+11
^PS(52.45 - [#52.45]	AUTOHOLD+9
^PS(52.49 - [#52.49]	PHCHREQ+5, AUTOHOLD+10, AUTOHOLD+11, CXRES+26, CXRES+27, CXRES+33, CXRES+39, CXRES+86

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	PATWARN~, PATWARN+28, PATWARN+31, PATWARN+34
CNT	AUTOHOLD+7~, AUTOHOLD+38, AUTOHOLD+42
CODEIEN	CXRES+1~, CXRES+88*, CXRES+89
COMM	CXRES+1~, CXRES+71*, CXRES+72
COMMARY	CXRES+1~, CXRES+72!, CXRES+73, CXRES+77
COMMARY(	CXRES+74, CXRES+75, CXRES+76
COMMBY	CXRES+1~, CXRES+79*, CXRES+82, CXRES+83
COMMDTTM	CXRES+1~, CXRES+80*, CXRES+84
DATE	CXRES+1~, CXRES+25*, CXRES+69
DELTA	CXRES+1~
DFN	DUPVPAT~, DUPVPAT+5, DUPVPAT+7, DUPVPAT+12, PATWARN+5~, PATWARN+8, PATWARN+24, PATWARN+30
DIR	AUTOHOLD+7~, AUTOHOLD+42!, AUTOHOLD+44!
DOB	DUPVPAT+4~, DUPVPAT+7*, DUPVPAT+15
DRCVGST	CXRES+1~, CXRES+35, CXRES+36, CXRES+37, CXRES+40, CXRES+59
DUP	PATWARN+20~, PATWARN+23*
DUPPAT	DUPVPAT+4~, DUPVPAT+11*, DUPVPAT+12, DUPVPAT+13, DUPVPAT+15, DUPVPAT+16, DUPVPAT+17
DUPPATS	PATWARN+20~, PATWARN+21
DUPPATS(	PATWARN+23
DUZ	AUTOHOLD+19
EPATIEN	AUTOHOLD~, AUTOHOLD+8*, AUTOHOLD+10, AUTOHOLD+11
ERESCODE	CXRES+1~, CXRES+87*, CXRES+98
ERXCNT	PATWARN+5~, PATWARN+7, PATWARN+17, PATWARN+18, PATWARN+22, PATWARN+23, PATWARN+27, PATWARN+31, PATWARN+34*
ERXDAT	CXRES+1~
ERXDAT(	CXRES+20, CXRES+21, CXRES+22, CXRES+23, CXRES+24, CXRES+25, CXRES+31, CXRES+32
ERXDOB	PATWARN+5~, PATWARN+10*, PATWARN+16, PATWARN+18
ERXGEN	PATWARN+5~, PATWARN+11*
ERXIEN	AUTOHOLD~, AUTOHOLD+8, AUTOHOLD+12, CXRES+6, CXRES+9, CXRES+11, CXRES+13, CXRES+26, CXRES+27, CXRES+39 , PATWARN+26
ERXLST	AUTOHOLD+7~, AUTOHOLD+29
ERXLST(	AUTOHOLD+22*, AUTOHOLD+38, AUTOHOLD+42
ERXMMFLG	PATWARN+5~, PATWARN+7, PATWARN+17, PATWARN+22, PATWARN+27, PATWARN+28, PATWARN+31, PATWARN+34*, PATWARN+37, PATWARN+42
ERXMSG	PATWARN+5~
ERXMSG(	PATWARN+18, PATWARN+22, PATWARN+23, PATWARN+27, PATWARN+31, PATWARN+34, PATWARN+38, PATWARN+39
ERXMSG(0	PATWARN+36
ERXPIEN	PATWARN+5~, PATWARN+8*, PATWARN+9, PATWARN+10, PATWARN+11
ERXSSN	PATWARN+5~, PATWARN+9*
>> ERXSTS	AUTOHOLD+13*, AUTOHOLD+14
EXPRVDEA	PATWARN+5~
FDA	AUTOHOLD+24!, AUTOHOLD+27!
FDA(	AUTOHOLD+25, AUTOHOLD+26
FLFN	DUPVPAT+4~, DUPVPAT+5*, DUPVPAT+15
FLG	CXRES+1~, CXRES+7, CXRES+14, CXRES+15, CXRES+16, CXRES+17, CXRES+91, CXRES+92, CXRES+93, CXRES+94 , CXRES+95, CXRES+96, CXRES+97
FN	CXRES+1~
FULLNAME	DUPVPAT+4~, DUPVPAT+5*, DUPVPAT+6, DUPVPAT+15
GMRA	PATWARN+5~, PATWARN+33*
GMRAL	PATWARN+5~, PATWARN+33
HAHLDCOD	AUTOHOLD+7~, AUTOHOLD+9*
HDR	AUTOHOLD+7~, AUTOHOLD+36*, AUTOHOLD+37, AUTOHOLD+42
I	PHCHREQ+2~, PHCHREQ+15, PHCHREQ+16, CXRES+1~, CXRES+33, CXRES+34, CXRES+35, CXRES+37, CXRES+38, CXRES+52 , CXRES+53, CXRES+61, CXRES+62, CXRES+63, CXRES+74, CXRES+75, CXRES+76, CXRES+86, CXRES+87, CXRES+88 , PATWARN+5~, PATWARN+38, PATWARN+39
ID	CXRES+2~, CXRES+24*, CXRES+68
IENS	CXRES+2~, CXRES+18*, CXRES+20, CXRES+21, CXRES+22, CXRES+23, CXRES+24, CXRES+25, CXRES+29, CXRES+87 , CXRES+88
IENS2	CXRES+2~, CXRES+29*, CXRES+30, CXRES+31, CXRES+32, CXRES+35
>> IOINHI	PHCHREQ+16, CXRES+43, CXRES+48, CXRES+53, CXRES+57, CXRES+58, CXRES+63, CXRES+68, CXRES+69, CXRES+76 , CXRES+83, CXRES+84
>> IOINORM	PHCHREQ+16, CXRES+43, CXRES+48, CXRES+53, CXRES+57, CXRES+58, CXRES+63, CXRES+68, CXRES+69, CXRES+76 , CXRES+83, CXRES+84
>> IORVOFF	CXRES+47, CXRES+99, CXRES+100
>> IORVON	CXRES+47, CXRES+99, CXRES+100
>> IOUOFF	CXRES+43
>> IOUON	CXRES+43
J	CXRES+2~
LASTNAME	DUPVPAT+4~, DUPVPAT+6*, DUPVPAT+9, DUPVPAT+10
LINE	PHCHREQ~, PHCHREQ+10, PHCHREQ+11, PHCHREQ+16, PHCHREQ+18, CXRES+41, CXRES+43, CXRES+45, CXRES+46, CXRES+47* , CXRES+48, CXRES+53, CXRES+54, CXRES+56, CXRES+57, CXRES+58, CXRES+63, CXRES+64, CXRES+65, CXRES+67 , CXRES+68, CXRES+69, CXRES+70, CXRES+76, CXRES+78, CXRES+81, CXRES+83, CXRES+84, CXRES+85, CXRES+99 , CXRES+100, CXRES+101*
LIST	DUPVPAT~, DUPVPAT+5!
LIST(	DUPVPAT+16, DUPVPAT+17
MBMSITE	PATWARN+5~, PATWARN+6*, PATWARN+19, PATWARN+30, PATWARN+34
MIEN	CXRES+2~
MTYPE	CXRES+2~, CXRES+9*, CXRES+10
NEWRXNOT	PHCHREQ+2~, PHCHREQ+7*, PHCHREQ+8
NOTE	CXRES+2~, CXRES+23*, CXRES+49, CXRES+51
NOTEARY	PHCHREQ+2~, PHCHREQ+13!, PHCHREQ+14, CXRES+2~, CXRES+50!, CXRES+51, CXRES+59!, CXRES+60, CXRES+64
NOTEARY(	PHCHREQ+15, PHCHREQ+16, CXRES+52, CXRES+53, CXRES+61, CXRES+62, CXRES+63
OERXIEN	AUTOHOLD+7~, AUTOHOLD+11, AUTOHOLD+12, AUTOHOLD+13, AUTOHOLD+16, AUTOHOLD+18, AUTOHOLD+19, AUTOHOLD+20, AUTOHOLD+21, AUTOHOLD+22 , AUTOHOLD+25, AUTOHOLD+26, AUTOHOLD+38, AUTOHOLD+39, AUTOHOLD+40, AUTOHOLD+41, AUTOHOLD+42
OPATNAME	DUPVPAT+4~, DUPVPAT+9, DUPVPAT+10, DUPVPAT+11, DUPVPAT+15, DUPVPAT+16
PHCHRQNT	PHCHREQ+2~, PHCHREQ+6, PHCHREQ+8, PHCHREQ+12, PHCHREQ+14, PHCHREQ+17, PHCHREQ+18, PHCHREQ+21
PRAUTHST	CXRES+2~, CXRES+32, CXRES+40, CXRES+58
PRIAUTH	CXRES+2~, CXRES+31, CXRES+40, CXRES+57
PRTVIEW	PHCHREQ~, PHCHREQ+1*, PHCHREQ+9, PHCHREQ+19
PSOIEN	PHCHREQ~, PHCHREQ+3, AUTOHOLD+7~, AUTOHOLD+18*, PATWARN~, PATWARN+8, PATWARN+14
RECDATE	AUTOHOLD+7~, AUTOHOLD+10*, AUTOHOLD+11
RECODE	CXRES+2~
RELERX	PHCHREQ+2~, PHCHREQ+5*, PHCHREQ+7
RELHUB	PHCHREQ+2~, PHCHREQ+4*, PHCHREQ+5
REQIEN	PHCHREQ+2~, PHCHREQ+3, PHCHREQ+4, PHCHREQ+6, CXRES+2~, CXRES+6, CXRES+13*
RESCODE	CXRES+2~, CXRES+22*
RESDESC	CXRES+3~, CXRES+89*, CXRES+100
RESDTTM	CXRES+3~, CXRES+20*, CXRES+48
RESIEN	CXRES+3~, CXRES+6, CXRES+11, CXRES+12, CXRES+18, CXRES+19, CXRES+33, CXRES+71, CXRES+79, CXRES+80 , CXRES+86
>> RESPVAL	CXRES+55, CXRES+66, CXRES+93
RESTEXT	CXRES+3~, CXRES+98*, CXRES+99
RESVAL	CXRES+3~, CXRES+21*, CXRES+47, CXRES+98
RULE	PHCHREQ~, PHCHREQ+3, CXRES+5, CXRES+8, CXRES+55, CXRES+66, CXRES+92, CXRES+93, CXRES+94, CXRES+95 , CXRES+96
>> RULES	CXRES+5, CXRES+8
>> SDERXFLG	CXRES+42, CXRES+54
SELPAT	PATWARN~, PATWARN+14*, PATWARN+16, PATWARN+18, PATWARN+21, PATWARN+24, PATWARN+26
SFIEN	CXRES+3~, CXRES+27*, CXRES+28, CXRES+29, CXRES+33
STATUS	CXRES+3~
STR1	CXRES+3~
STR1ARY	CXRES+3~
STR2	CXRES+3~
STR2ARY	CXRES+3~
TXT	CXRES+4~, CXRES+62, CXRES+63, CXRES+75, CXRES+76
TYPE	AUTOHOLD~, AUTOHOLD+9, AUTOHOLD+20, AUTOHOLD+21, AUTOHOLD+31, AUTOHOLD+33, AUTOHOLD+34
VADM	PATWARN+5~
VPATIEN	AUTOHOLD~, AUTOHOLD+25, AUTOHOLD+32
XLINE	CXRES+4~, CXRES+56, CXRES+65, CXRES+67, CXRES+70, CXRES+81, CXRES+85, CXRES+101
XX	AUTOHOLD+7~, AUTOHOLD+37*, AUTOHOLD+42

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOERX1E

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Local Variables

Legend: