Routine: PSOERX1B

Package	Total	Call Graph
Outpatient Pharmacy	15	($$PATWARN,$$PRVWARN)^PSOERX1A AUTOHOLD^PSOERX1E (INIT,TXT2ARY)^PSOERXD1 POST^PSOERXO1 INIT^PSOERXP1 INIT^PSOERXR1 (MSGDIR,UPDSTAT)^PSOERXU1 ($$GETREQ,RRDELTA)^PSOERXU2 PREFRES^PSOERXU3 (REJ,REM,UNREM)^PSOERXU4 $$LSIG^PSOERXU6 BPROC^PSOERXU8 $$CHVAELIG^PSOERXU9 ($$VALPTADD,PRDRVAL)^PSOERXUT EN^PSOHLSNC
VA FileMan	5	FILE^DICN (,FILE,WP)^DIE (EN1,IX)^DIK ($$GET1,GETS)^DIQ ^DIR
Adverse Reaction Tracking	1	EN1^GMRADPT
Kernel	1	$$NOW^XLFDT
List Manager	1	(FULL,PAUSE)^VALM1

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSO ERX ACCEPT VALIDATION PSO ERX REJECT PSO ERX REMOVE PSO ERX UN-REMOVE
Kernel	1	^ORD(101

Name	Comments	DBIA/ICR reference
ACVAL(PSOIEN,TYPE)	; NEW MTYPE, GET IT OFF FIELD .08, IF NOT DEFINED,
SETUP	;
ADD(QUIET)	;Add CHCS message to Outpatient Pending Orders file
REM	;
UNREM	;
REJ	;

External References

Name	Field # of Occurrence
FILE^DICN	ADD+12
^DIE	ADD+20, ADD+54
FILE^DIE	ACVAL+81, ADD+22
WP^DIE	ADD+36, ADD+69
EN1^DIK	ADD+23
IX^DIK	ADD+50
$$GET1^DIQ	ACVAL+5, ACVAL+10, ACVAL+11, ACVAL+17, ACVAL+24, ACVAL+29, ACVAL+31, ACVAL+32, ACVAL+33, ACVAL+39 , ACVAL+40, ACVAL+54, ACVAL+59, ACVAL+68, ACVAL+85, ACVAL+88, ACVAL+90, ACVAL+93, SETUP+4, SETUP+8 , SETUP+18, SETUP+47, SETUP+71, ADD+5, ADD+6, ADD+62, ADD+64
GETS^DIQ	SETUP+12
^DIR	ACVAL+13, ACVAL+19, ACVAL+27, ACVAL+34, ACVAL+41, ACVAL+49, ACVAL+51, ACVAL+74, ACVAL+76, SETUP+10 , SETUP+84, ADD+48, ADD+76, ADD+77
EN1^GMRADPT	ACVAL+65
$$PATWARN^PSOERX1A	ACVAL+52
$$PRVWARN^PSOERX1A	ACVAL+74
AUTOHOLD^PSOERX1E	ACVAL+61, ACVAL+70
INIT^PSOERXD1	ACVAL+97
TXT2ARY^PSOERXD1	SETUP+51, SETUP+54
POST^PSOERXO1	ADD+74
INIT^PSOERXP1	ACVAL+95
INIT^PSOERXR1	ACVAL+96
MSGDIR^PSOERXU1	SETUP+22, SETUP+28, SETUP+34
UPDSTAT^PSOERXU1	ACVAL+58, ACVAL+67, ACVAL+85, ACVAL+86, ACVAL+89, ACVAL+90, ACVAL+91, ACVAL+93, ACVAL+94, SETUP+24 , ADD+14, ADD+15, ADD+57, ADD+58, ADD+61, ADD+63, ADD+64
$$GETREQ^PSOERXU2	SETUP+17, ADD+15, ADD+64
RRDELTA^PSOERXU2	SETUP+20
PREFRES^PSOERXU3	SETUP+19
REJ^PSOERXU4	REJ+1
REM^PSOERXU4	REM+1
UNREM^PSOERXU4	UNREM+1
$$LSIG^PSOERXU6	SETUP+51, SETUP+54
BPROC^PSOERXU8	ACVAL+95, ACVAL+96
$$CHVAELIG^PSOERXU9	ACVAL+56
$$VALPTADD^PSOERXUT	ACVAL+24
PRDRVAL^PSOERXUT	ACVAL+44
EN^PSOHLSNC	ADD+38
FULL^VALM1	ACVAL+7, SETUP+7, ADD+39
PAUSE^VALM1	ACVAL+60, ACVAL+69
$$NOW^XLFDT	ACVAL+78

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Cannot accept validation for a prescription with a status of 'Rejected',",!,"'Removed',or 'Processed",! Line Location: ACVAL+12
Function Call: WRITE	Prompt: !,"Vista "_TAG_" has not been matched. Cannot manually validate." Line Location: ACVAL+18
Function Call: WRITE	Prompt: !!,"Unable to validate - VistA Patient does not have a current mailing" Line Location: ACVAL+25
Function Call: WRITE	Prompt: !,"or residential address on file.",$C(7),! Line Location: ACVAL+26
Function Call: WRITE	Prompt: !!,"This "_TAG_" has already been "_$S(TYPE="PR"&$$GET1^DIQ(52.49,PSOIEN,2.7,"I"):"automatically",1:"manually")_" validated." Line Location: ACVAL+31
Function Call: WRITE	Prompt: !,"Validated By: "_$$GET1^DIQ(F,PSOIEN,VBFLD,"E") Line Location: ACVAL+32
Function Call: WRITE	Prompt: !,"Validated Date/Time: "_$$GET1^DIQ(F,PSOIEN,VBDTTMF,"E"),! Line Location: ACVAL+33
Function Call: WRITE	Prompt: ! Line Location: ACVAL+37
Function Call: WRITE	Prompt: !,"Dosing information missing.",$C(7) Line Location: ACVAL+38
Function Call: WRITE	Prompt: !,"Quantity missing.",$C(7) Line Location: ACVAL+39
Function Call: WRITE	Prompt: !,"Days supply missing.",$C(7) Line Location: ACVAL+40
Function Call: WRITE	Prompt: ! Line Location: ACVAL+41
Function Call: WRITE	Prompt: !!,"*******************************",$S($P(ERXMSG,"^",2)="W":" WARNING(S) ",1:"INVALID DRUG"),"*********************************" Line Location: ACVAL+46
Function Call: WRITE	Prompt: !,$P(ERXMSG(I),"^") Line Location: ACVAL+47
Function Call: WRITE	Prompt: !,"********************************************************************************",$C(7) Line Location: ACVAL+48
Function Call: WRITE	Prompt: ! Line Location: ACVAL+49
Function Call: WRITE	Prompt: !!,"This eRx has been put on Hold (HEL) because the VistA Patient ("_$$GET1^DIQ(2,DFN,.01)_") is not Eligible for ChampVA Rx Benefit." Line Location: ACVAL+59
Function Call: WRITE	Prompt: !!,"This eRx has been put on Hold (HAL) because the VistA Patient ("_$$GET1^DIQ(2,DFN,.01)_") does not have an Allergy Assessment.." Line Location: ACVAL+68
Function Call: WRITE	Prompt: !,"Would you like to mark this "_TAG_" as VALIDATED?" Line Location: ACVAL+75
Function Call: WRITE	Prompt: !,"Validation Updated!!" Line Location: ACVAL+82
Function Call: WRITE	Prompt: !,PSOEXMS Line Location: SETUP+84
Function Call: WRITE	Prompt: !!,"External order, unable to successfully transmit to CPRS." Line Location: ADD+47
Function Call: WRITE	Prompt: !!,"eRx #"_PSOHY("CHNUM")_" sent to PENDING OUTPATIENT ORDERS!" Line Location: ADD+70
Function Call: WRITE	Prompt: !,$P(PSSRET(0),U,2) Line Location: ADD+76
Function Call: WRITE	Prompt: !,PSSRET("errorMessage") Line Location: ADD+77
Routine Call	DIE Line Location: ADD+20 ADD+54
Routine Call	DIE Line Location: ACVAL+81 ADD+22
Routine Call	DIE Line Location: ADD+36 ADD+69
Routine Call	DIR Line Location: ACVAL+13 ACVAL+19 ACVAL+27 ACVAL+34 ACVAL+41 ACVAL+49 ACVAL+51 ACVAL+74 ACVAL+76 SETUP+10 SETUP+84 ADD+48 ADD+76 ADD+77

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^PSDRUG - [#50]	GET1^DIQ
^PS(52.41 - [#52.41]	Classic Fileman Calls, WP^DIE
^PS(52.49 - [#52.49]	Classic Fileman Calls, GET1^DIQ
^PS(59.7 - [#59.7]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.41 - [#52.41]	ADD+17, ADD+18, ADD+19, ADD+24, ADD+25, ADD+26, ADD+27, ADD+28, ADD+30, ADD+33 , ADD+34, ADD+35, ADD+41, ADD+43!, ADD+44!, ADD+45, ADD+53
^PS(52.45 - [#52.45]	ADD+52
^PS(52.49 - [#52.49]	ACVAL+38, SETUP+57, SETUP+58, SETUP+59, SETUP+76, SETUP+77, ADD+62, ADD+67, ADD+68
^SC - [#44]	ADD+3

Label References

Name	Line Occurrences
ADD	SETUP+25, SETUP+27, SETUP+83

Naked Globals

Name	Field # of Occurrence
^("EXT"	ADD+19*
^("INI"	ADD+43
^(0	ADD+17, ADD+18, ADD+44

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CURVAL	ACVAL+3~, ACVAL+29*, ACVAL+30
DA	ADD+20!, ADD+23~, ADD+50, ADD+54!
DD	ADD+8!, ADD+12!
DELTAS	SETUP+3~, SETUP+20
DELTAS(	SETUP+21, SETUP+23, SETUP+25
DFN	ACVAL+4~, ACVAL+54, ACVAL+56, ACVAL+59, ACVAL+61, ACVAL+68, ACVAL+70, SETUP+69, SETUP+85!
DIC	ADD+8!*, ADD+12!
DIC("DR"	ADD+10, ADD+11
DIC(0	ADD+8*
DIE	ADD+20!, ADD+54!
DIK	ADD+23~, ADD+50
DIK(1	ADD+23*
DIR	ACVAL+3~, ACVAL+41!, ACVAL+49!, ACVAL+51!, ACVAL+60!, ACVAL+69!, ACVAL+74!, ACVAL+77!, SETUP+2~, SETUP+84! , ADD+76!, ADD+77!
DIR("B"	ACVAL+76*
DIR(0	ACVAL+13, ACVAL+19, ACVAL+27, ACVAL+34, ACVAL+41, ACVAL+49, ACVAL+51, ACVAL+74, ACVAL+76, SETUP+10 , SETUP+84, ADD+48, ADD+76, ADD+77
DMVAL	SETUP+2~, SETUP+32*
DO	ADD+8!, ADD+12!
DR	ADD+20!, ADD+54!
DT	ADD+24
DUZ	ACVAL+79
EFFDT	SETUP+1~, SETUP+42, SETUP+44, SETUP+45*, SETUP+66
ERXMMFLG	ACVAL+3~, ACVAL+51, ACVAL+52, ACVAL+72, ACVAL+74, ACVAL+76
ERXMSG	ACVAL+43~, ACVAL+44, ACVAL+46
ERXMSG(	ACVAL+47
ERXMSG(0	ACVAL+45
ERXNUM	SETUP+1~, SETUP+40*, SETUP+64
ERXPTIEN	ACVAL+4~
ERXSTA	SETUP+28, ADD+1~, ADD+52
F	ACVAL+3~, ACVAL+6, ACVAL+17, ACVAL+29, ACVAL+32, ACVAL+33, ACVAL+78, ACVAL+79, ACVAL+80, SETUP+1~ , SETUP+5, SETUP+12, SETUP+14, SETUP+15, SETUP+28, SETUP+30, SETUP+31, SETUP+32, SETUP+35, SETUP+36 , SETUP+37, SETUP+38, SETUP+39, SETUP+40, SETUP+41, SETUP+42, SETUP+46, SETUP+48, SETUP+49, SETUP+50 , SETUP+53
FDA	ACVAL+77!, ACVAL+81!, ADD+22!
FDA(	ACVAL+78, ACVAL+79, ACVAL+80, ADD+22
GMRA	ACVAL+4~, ACVAL+65*
GMRAL	ACVAL+4~, ACVAL+64, ACVAL+65
I	ACVAL+43~, ACVAL+47*
IARY	ADD+1~, ADD+69
IARY(	ADD+68*
ILOOP	ADD+1~, ADD+67*, ADD+68
LOC	SETUP+1~, SETUP+39*, SETUP+64
MBMSITE	ACVAL+3~, ACVAL+5, ACVAL+56, ACVAL+64, SETUP+1~, SETUP+4, SETUP+8
MTYPE	ACVAL+3~, ACVAL+10, ACVAL+84, ACVAL+87, ACVAL+92, SETUP+3~, SETUP+14, SETUP+16, SETUP+29, ADD+14 , ADD+57, ADD+58, ADD+60, ADD+72
MVFLD	ACVAL+3~, ACVAL+20*, ACVAL+29, ACVAL+78, ACVAL+95, ACVAL+96
OC	SETUP+1~
ORDERTYP	SETUP+2~, SETUP+63*, SETUP+69
ORDNUM	ADD+1~, ADD+53*, ADD+54
ORXIEN	SETUP+3~
PATIEN	SETUP+1~, SETUP+36*, SETUP+69
PATINST	SETUP+2~, SETUP+50*, SETUP+51, ADD+22
PCNT	SETUP+2~, SETUP+55, SETUP+56
PINARY	SETUP+3~, SETUP+51
PINARY(	SETUP+79, SETUP+80
PINARY(0	ADD+36
PLOOP	SETUP+2~, SETUP+55*, SETUP+56
PMVAL	SETUP+2~, SETUP+30*
POORD	SETUP+2~, SETUP+35*
PRMVAL	SETUP+2~, SETUP+31*
PROVIEN	SETUP+1~, SETUP+37*, SETUP+65, SETUP+66
PRVARY	SETUP+1~, SETUP+54
PRVARY(	SETUP+55, SETUP+56
PRVCOMM	SETUP+1~, SETUP+53*, SETUP+54
PSOCPEND	ADD+1~, ADD+16*, ADD+17, ADD+18, ADD+19, ADD+20, ADD+22, ADD+23, ADD+24, ADD+25 , ADD+26, ADD+27, ADD+28, ADD+30, ADD+33, ADD+34, ADD+35, ADD+36, ADD+38, ADD+41 , ADD+43, ADD+44, ADD+45, ADD+50, ADD+53, ADD+54, ADD+69
PSODAT	SETUP+1~, SETUP+19
PSODAT(	SETUP+14, SETUP+15, SETUP+28, SETUP+30, SETUP+31, SETUP+32, SETUP+35, SETUP+36, SETUP+37, SETUP+38 , SETUP+39, SETUP+40, SETUP+41, SETUP+42, SETUP+46, SETUP+48, SETUP+49, SETUP+50, SETUP+53
PSOEXCNT	SETUP+2~, SETUP+13, SETUP+19, SETUP+28, SETUP+30, SETUP+31, SETUP+32, SETUP+35, SETUP+36, SETUP+37 , SETUP+38, SETUP+40, SETUP+41, SETUP+47, SETUP+49, SETUP+57, ADD+7, ADD+13, ADD+14, ADD+41* , ADD+46*
PSOEXMS	SETUP+2~, SETUP+19, SETUP+22, SETUP+28, SETUP+34, SETUP+84, ADD+15
PSOEXMS(	SETUP+28, SETUP+30, SETUP+31, SETUP+32, SETUP+35, SETUP+36, SETUP+37, SETUP+38, SETUP+40, SETUP+41 , SETUP+47, SETUP+49, SETUP+57, ADD+7, ADD+13, ADD+14, ADD+41, ADD+46*
PSOEXMS(0	SETUP+21, SETUP+23, SETUP+34
PSOHINI	ADD+1~, ADD+2*
PSOHINLO	ADD+1~, ADD+2, ADD+3, ADD+6*, ADD+7, ADD+28
PSOHQ	ADD+1~, ADD+25, ADD+27, ADD+31*, ADD+32, ADD+33, ADD+34, ADD+35
PSOHQT	ADD+1~, ADD+24, ADD+25, ADD+26, ADD+27, ADD+30, ADD+31, ADD+32, ADD+33, ADD+34 , ADD+35
PSOHY	SETUP+1~, SETUP+19
PSOHY("CHNUM"	SETUP+64*, ADD+8, ADD+19, ADD+70
PSOHY("DAYS"	SETUP+74*, ADD+11
PSOHY("DRUG"	SETUP+67*, ADD+10
PSOHY("EDT"	SETUP+71*, ADD+17
PSOHY("ENTER"	SETUP+65*, ADD+10
PSOHY("EXAPP"	SETUP+73*, ADD+19
PSOHY("ITEM"	SETUP+67*, ADD+10
PSOHY("LOC"	SETUP+64*, ADD+3, ADD+17
PSOHY("OCC"	SETUP+69*, ADD+17
PSOHY("PAT"	SETUP+69*, ADD+17
PSOHY("PICK"	SETUP+65, ADD+9, ADD+18
PSOHY("PRCOM"	SETUP+56*, ADD+24, ADD+25
PSOHY("PREVORD"	ADD+11
PSOHY("PRIOR"	SETUP+71*, ADD+18
PSOHY("PROV"	SETUP+66*, ADD+10
PSOHY("QTSUB"	SETUP+59*, ADD+30, ADD+31, ADD+32, ADD+33, ADD+34, ADD+35
PSOHY("QTY"	SETUP+68*, ADD+11
PSOHY("REF"	SETUP+68*, ADD+11
PSOHY("SDT"	SETUP+66*, ADD+10
PSOHY("SIG"	SETUP+78, SETUP+80, ADD+26, ADD+27
PSOIEN	ACVAL~, ACVAL+6, ACVAL+10, ACVAL+11, ACVAL+17, ACVAL+24, ACVAL+29, ACVAL+31, ACVAL+32, ACVAL+33 , ACVAL+38, ACVAL+39, ACVAL+40, ACVAL+44, ACVAL+52, ACVAL+54, ACVAL+58, ACVAL+61, ACVAL+67, ACVAL+70 , ACVAL+74, ACVAL+85, ACVAL+86, ACVAL+88, ACVAL+89, ACVAL+90, ACVAL+91, ACVAL+93, ACVAL+94, ACVAL+95 , ACVAL+96, SETUP+6, SETUP+8, SETUP+11, SETUP+17, SETUP+19, SETUP+20, SETUP+24, SETUP+57, SETUP+58 , SETUP+59, SETUP+71, SETUP+76, SETUP+77, ADD+5, ADD+6, ADD+14, ADD+15, ADD+54, ADD+57 , ADD+58, ADD+61, ADD+62, ADD+64, ADD+67, ADD+68, ADD+74
PSOIENS	ACVAL+3~, ACVAL+6, ACVAL+78, ACVAL+79, ACVAL+80, SETUP+1~, SETUP+11, SETUP+12, SETUP+14, SETUP+15 , SETUP+28, SETUP+30, SETUP+31, SETUP+32, SETUP+35, SETUP+36, SETUP+37, SETUP+38, SETUP+39, SETUP+40 , SETUP+41, SETUP+42, SETUP+46, SETUP+48, SETUP+49, SETUP+50, SETUP+53
PSSRET	ADD+1~, ADD+74
PSSRET("errorMessage"	ADD+77
PSSRET(0	ADD+76
QFLG	ACVAL+3~, ACVAL+35, ACVAL+38, ACVAL+39, ACVAL+40, ACVAL+41, ACVAL+44*, ACVAL+49
QTCNT	SETUP+2~, SETUP+58, SETUP+59
QTLOOP	SETUP+2~, SETUP+58*, SETUP+59
QUIET	ADD~, ADD+46, ADD+47, ADD+48, ADD+70, ADD+79!
REQIEN	SETUP+3~, SETUP+17, SETUP+18, SETUP+20, ADD+15, ADD+64*
RESTYPE	ACVAL+4~, ACVAL+88, ACVAL+89, SETUP+3~, SETUP+15, SETUP+16, SETUP+21, SETUP+23, SETUP+29, ADD+1~ , ADD+5*, ADD+72
RTHID	ADD+1~, ADD+62*
RTHIEN	ADD+1~, ADD+62*, ADD+63
RXIEN	SETUP+3~, SETUP+18*
RXSTAT	ACVAL+3~, ACVAL+11, ACVAL+57, ACVAL+66, SETUP+2~, SETUP+8
SCNT	SETUP+2~, SETUP+76, SETUP+78, SETUP+80*
SIGDAT	SETUP+2~, SETUP+77*, SETUP+78
SLOOP	SETUP+2~, SETUP+76*, SETUP+77
SLOOP2	SETUP+3~, SETUP+79*, SETUP+80
TAG	ACVAL+3~, ACVAL+15*, ACVAL+18, ACVAL+31, ACVAL+75
TYPE	ACVAL~, ACVAL+14, ACVAL+15, ACVAL+16, ACVAL+20, ACVAL+21, ACVAL+22, ACVAL+24, ACVAL+31, ACVAL+36 , ACVAL+42, ACVAL+51, ACVAL+56, ACVAL+64, ACVAL+72, ACVAL+74, ACVAL+95, ACVAL+96, ACVAL+97
U	ADD+53, ADD+76
UNEXPI	SETUP+3~
VADAYS	SETUP+3~, SETUP+46*, SETUP+74
VADRUG	SETUP+1~, SETUP+38*, SETUP+47, SETUP+67
VAL	ACVAL+3~, ACVAL+17*, ACVAL+24
>> VALMAR	ACVAL+95, ACVAL+96, ACVAL+97
>> VALMBCK	ACVAL+8*
VALPAR	ACVAL+3~, ACVAL+16*, ACVAL+17
VAOI	SETUP+1~, SETUP+47*, SETUP+67
VAPRIOR	SETUP+1~, SETUP+61*, SETUP+71
VAREF	SETUP+1~, SETUP+48*, SETUP+68
VAROUT	SETUP+1~, SETUP+49*, SETUP+65
VBDTTMF	ACVAL+3~, ACVAL+22*, ACVAL+33, ACVAL+80, ACVAL+95, ACVAL+96
VBFLD	ACVAL+3~, ACVAL+21*, ACVAL+32, ACVAL+79, ACVAL+95, ACVAL+96
VDTTM	ACVAL+3~, ACVAL+78*, ACVAL+80, ACVAL+95, ACVAL+96
VQTY	SETUP+1~, SETUP+41*, SETUP+68
WRITDT	SETUP+3~, SETUP+42*, SETUP+45
X	ADD+1~, ADD+8*
Y	ACVAL+3~, ACVAL+76, ADD+12, ADD+16

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOERX1B

Information

Source Information

Call Graph

Call Graph Total: 23

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: