Routine: PSOERSE1

Package	Total	Call Graph
Outpatient Pharmacy	12	INIT^PSOERSE2 $$MISSINGPI^PSOERSE3 ($$COMPARE,ADDLINE,BLANKLN,RESET,SETPAT,VIDEO)^PSOERUT0 SETPROV^PSOERUT1 SETDRUG^PSOERUT2 (ALLERGY,SETDIAGS)^PSOERUT3 $$ACCDTBY^PSOERUT4 $$CHGMTYPE^PSOERX1D ($$GETRESP,$$RESOLV)^PSOERXU2 ($$EFFDATE,$$GETPROV)^PSOERXU5 ERXDATA^PSOERXU9 VIEW^PSOSPML4
VA FileMan	4	^%DT RECALL^DILFD $$GET1^DIQ ^DIR
List Manager	3	EN^VALM (CLEAR,FULL,INSTR)^VALM1 (CLEAN,CNTRL,RESTORE,SAVE,SET)^VALM10
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Outpatient Pharmacy	18	PSO ERX DISPLAY MENU PSO ERX SINGLE ERX DISPLAY PSO ERX VIEW ORIGINAL ERX PSO ERX VIEW REQUEST ERX PSO ERX VIEW RESPONSE ERX PSO ERX VIEW SUGGESTED RX PSOERCR0 PSOERSE3 PSOERUT PSOERX1 PSOERX1A PSOERX1C PSOERX1F PSOERX1H PSOERXH1 PSOERXU2 PSOERXU4 PSOERXU5
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN(PSOIEN)	; -- main entry point for PSO ERX SINGLE ERX DISPLAY
HDR	; -- header code
GETMTYPE(ERXIEN)	;Retrieve the eRx Message Type ; Input : ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49) ; Output: MTYPEE - eRx Message Type
INIT	;
HELP	; -- help code
EXIT	; -- exit code
EXPND	; -- expand code
ERXMTYPE(ERXIEN)	;Retrieve the message type in File 52.49 ; Input: ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49)
ERXRCVDT(ERXIEN)	;
S2017(MODE,NAMESPACE,ERXIEN,S2017)	;Retrieve erx written and effective/issue date
GETHLDSTA(ERXHLDARY,ERXIEN)	;Retrieve the Erx Hold Status, Reason, and Hold By ; Input : ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49) ; Output: ERXHLDARY - An array which must be passed in by reference; returned with the following: ; ERXHLDARY(#)=value or if no hold status ERXHLDARY(0)="" ; Where: ; # - is a sequential number greater than zero ; value - is a line of text ; 1-Hold Status ; 2-Hold Reason ; 3-Hold Entered By
GETERXRDT(ERXIEN)	;Retrieve the eRx Received Date time stamp ; Input : ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49) ; Output: ERXRADT - eRx Recieved Date time stamp^accepted by^date accepted ; Example: 1/19/24@14:05^LASTNAME,FIRSTNAME^9/26/24@10:30
REF	;Screen Refresh
VO	; View Original eRx Action
VRR	; View Request
VRE	; View Request Response
RELERX(ERXIEN,MSGTYPE)	; Returns the Selected Related eRx IEN ; Input: ERXIEN - Pointer to ERX HOLDING QUEUE (#52.49) ; MSGTYPE - Relation types ("N":NewRx;"RR,CR,CA":Request;"RE,CN,CX":Response)
DEANOTE(LINE)	;DEA Note for CS Digitally Signed eRx records
VSR	; View Suggested eRx

External References

Name	Field # of Occurrence
^%DT	S2017+10
RECALL^DILFD	EN+5
$$GET1^DIQ	EN+5, EN+8, HDR+2, HDR+3, HDR+5, HDR+7, HDR+9, HDR+10, HDR+11, HDR+12 , HDR+16, GETMTYPE+4, GETMTYPE+5, GETMTYPE+6, GETMTYPE+7, GETMTYPE+8, GETMTYPE+9, INIT+30, INIT+39, INIT+42 , INIT+47, ERXMTYPE+6, ERXMTYPE+7, ERXMTYPE+8, ERXMTYPE+9, S2017+3, S2017+4, S2017+11, GETHLDSTA+13, GETHLDSTA+17 , GETHLDSTA+19, GETHLDSTA+20, GETHLDSTA+21, GETHLDSTA+22, GETERXRDT+7, RELERX+7, RELERX+10, RELERX+14, RELERX+24, RELERX+25 , RELERX+36, VSR+4
^DIR	RELERX+38, VSR+12
INIT^PSOERSE2	INIT+20
$$MISSINGPI^PSOERSE3	HDR+16
$$COMPARE^PSOERUT0	ERXRCVDT+7, S2017+5, S2017+6, S2017+12, S2017+13
ADDLINE^PSOERUT0	INIT+16, ERXRCVDT+7, S2017+7, S2017+14
BLANKLN^PSOERUT0	INIT+43
RESET^PSOERUT0	INIT+7
SETPAT^PSOERUT0	INIT+29
VIDEO^PSOERUT0	INIT+54
SETPROV^PSOERUT1	INIT+32
SETDRUG^PSOERUT2	INIT+37
ALLERGY^PSOERUT3	INIT+42
SETDIAGS^PSOERUT3	INIT+41
$$ACCDTBY^PSOERUT4	GETERXRDT+6
$$CHGMTYPE^PSOERX1D	GETMTYPE+9
$$GETRESP^PSOERXU2	RELERX+17
$$RESOLV^PSOERXU2	RELERX+19, RELERX+21, RELERX+23
$$EFFDATE^PSOERXU5	S2017+10
$$GETPROV^PSOERXU5	INIT+31
ERXDATA^PSOERXU9	INIT+34
VIEW^PSOSPML4	VSR+13
EN^VALM	EN+9
CLEAR^VALM1	EXIT+3
FULL^VALM1	RELERX+32, VSR+5, VSR+13
INSTR^VALM1	HDR+3, HDR+6, HDR+8, HDR+9, HDR+14, HDR+18
CLEAN^VALM10	EXIT+2
CNTRL^VALM10	INIT+17, INIT+25, DEANOTE+4, DEANOTE+6, DEANOTE+8
RESTORE^VALM10	REF+1
SAVE^VALM10	INIT+52
SET^VALM10	INIT+23, DEANOTE+2, DEANOTE+4, DEANOTE+6, DEANOTE+8
$$FMTE^XLFDT	HDR+9, S2017+5, S2017+6, S2017+12, S2017+13, GETERXRDT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7) Line Location: HDR+18
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: $C(7) Line Location: VO+4
Function Call: WRITE	Prompt: $C(7) Line Location: VRR+4
Function Call: WRITE	Prompt: $C(7) Line Location: VRE+4
Function Call: WRITE	Prompt: !!,"# ERX ID",?22,"ERX TYPE",?42,"STATUS",?50,"DATE/TIME" Line Location: RELERX+33
Function Call: WRITE	Prompt: !,XX Line Location: RELERX+34
Function Call: WRITE	Prompt: !,SEQ,?3,$$GET1^DIQ(52.49,ERX,.01),?22,$$GET1^DIQ(52.49,ERX,.08),?42,$$GET1^DIQ(52.49,ERX,1),?50,$$GET1^DIQ(52.49,ERX,.03) Line Location: RELERX+36
Function Call: WRITE	Prompt: ! Line Location: RELERX+37
Function Call: WRITE	Prompt: ! Line Location: VSR+5
Function Call: WRITE	Prompt: !,$G(IOUON),XX,$G(IOUOFF) Line Location: VSR+6
Function Call: WRITE	Prompt: !,"You will be taken to the VistA prescription that was used to pre-populate the" Line Location: VSR+7
Function Call: WRITE	Prompt: !,"Drug fields (Product/SIG/Qty/Days Supply/# of Refills/Substitution) for this" Line Location: VSR+8
Function Call: WRITE	Prompt: !,"eRx (aka,'Suggested VistA Rx'). This VistA Rx may or may not be for the same" Line Location: VSR+9
Function Call: WRITE	Prompt: !,"patient in this eRx being processed." Line Location: VSR+10
Function Call: WRITE	Prompt: !,$G(IOUON),XX,$G(IOUOFF) Line Location: VSR+11
Routine Call	DIR Line Location: RELERX+38 VSR+12
Routine Call	VALM Line Location: EN+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	RECALL^DILFD
^PS(52.45 - [#52.45]	GET1^DIQ
^PS(52.49 - [#52.49]	GET1^DIQ
52.4919	GET1^DIQ
^PS(59.7 - [#59.7]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.49 - [#52.49]	S2017+9, GETHLDSTA+18, RELERX+6, RELERX+9, RELERX+25, VSR+3
^TMP("PSOERSE1"	INIT+5!, INIT+8*

Label References

Name	Line Occurrences
$$ERXMTYPE	INIT+3
$$GETERXRDT	ERXRCVDT+2
$$GETHLDSTA	INIT+12
$$GETMTYPE	HDR+4
$$RELERX	VO+2, VRR+2, VRE+2
DEANOTE	INIT+47
ERXRCVDT	INIT+24, INIT+45
HDR	REF+2
INIT	REF+2
REF	VO+5, VRR+5, VRE+5
S2017	INIT+40

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACCDTBY	GETERXRDT+4~, GETERXRDT+6*, GETERXRDT+8
BLINKLN	INIT+1~
CHGMESRI	GETMTYPE+3~, GETMTYPE+8*, GETMTYPE+9
CHGMESRQ	GETMTYPE+3~, GETMTYPE+7*, GETMTYPE+8
CNTR	GETHLDSTA+10~, GETHLDSTA+15, GETHLDSTA+20, GETHLDSTA+21, GETHLDSTA+22, GETHLDSTA+23, GETHLDSTA+24
CURSTATE	GETHLDSTA+10~, GETHLDSTA+13*, GETHLDSTA+16
CURSTATI	GETHLDSTA+10~, GETHLDSTA+17*, GETHLDSTA+19
DDASH	INIT+1~, INIT+23*
DFN	VSR+1~
DIR	RELERX+4~, VSR+1~, VSR+12!
DIR("A"	RELERX+37*
DIR(0	RELERX+37, VSR+12
DIROUT	RELERX+4~, RELERX+38, VSR+1~, VSR+12
DIRUT	RELERX+38, VSR+1~, VSR+12
DTOUT	RELERX+4~
DUZ	EN+5
EPRVIEN	INIT+1~, INIT+30, INIT+31
ERTYPEX	ERXMTYPE+4~, ERXMTYPE+7*, ERXMTYPE+10
ERX	VO+1~, VRR+1~, VRE+1~, RELERX+4~, RELERX+5, RELERX+6, RELERX+7, RELERX+8, RELERX+9, RELERX+36*
ERXARR	RELERX+4~, RELERX+13, RELERX+30
ERXARR(	RELERX+8, RELERX+11, RELERX+26, RELERX+27, RELERX+28*, RELERX+35, RELERX+36, RELERX+39
ERXARR(1	RELERX+31
ERXARR(2	RELERX+31
ERXARR(999	RELERX+37
ERXDATA	INIT+1~, INIT+34, INIT+36
ERXDATA(1	INIT+36
ERXDRGID	INIT+1~, INIT+35, INIT+36
ERXDT	S2017+1~, S2017+4*, S2017+6
ERXEFFDT	S2017+1~, S2017+10*, S2017+13
ERXHLD	INIT+1~, INIT+12*, INIT+13
ERXHLDARY	INIT+1~, INIT+12, GETHLDSTA~, GETHLDSTA+11!
ERXHLDARY(	INIT+13, INIT+14, INIT+15, GETHLDSTA+20, GETHLDSTA+21, GETHLDSTA+22, GETHLDSTA+23
ERXHLDRSN	INIT+1~, INIT+14, INIT+15, INIT+16, INIT+17
ERXIEN	EN+1~, EN+3, EN+5, HDR+2, HDR+3, HDR+4, HDR+5, HDR+7, HDR+9, HDR+10 , HDR+11, HDR+12, HDR+16, GETMTYPE~, GETMTYPE+4, GETMTYPE+5, GETMTYPE+6, GETMTYPE+7, GETMTYPE+9, INIT+3 , INIT+12, INIT+20, INIT+24, INIT+29, INIT+30, INIT+31, INIT+32, INIT+34, INIT+37, INIT+40 , INIT+41, INIT+42, INIT+45, ERXMTYPE~, ERXMTYPE+3, ERXMTYPE+6, ERXMTYPE+7, ERXMTYPE+8, ERXRCVDT~, ERXRCVDT+2 , S2017~, S2017+3, S2017+4, S2017+9, S2017+10, S2017+11, GETHLDSTA~, GETHLDSTA+13, GETHLDSTA+17, GETHLDSTA+18 , GETHLDSTA+19, GETHLDSTA+21, GETHLDSTA+22, GETERXRDT~, GETERXRDT+5, GETERXRDT+6, GETERXRDT+7, VO+2, VO+3, VRR+2 , VRR+3, VRE+2, VRE+3, RELERX~, RELERX+6, RELERX+7, RELERX+10, RELERX+14, RELERX+17, RELERX+19 , RELERX+21, RELERX+23, RELERX+26, VSR+3, VSR+4
ERXMTYPE	EN+1~, INIT+3, INIT+19, ERXMTYPE+4~, ERXMTYPE+5, ERXMTYPE+6*, ERXMTYPE+10
ERXRADT	GETERXRDT+4~, GETERXRDT+7, GETERXRDT+8, GETERXRDT+9
ERXRDT	INIT+1~, ERXRCVDT+1~, ERXRCVDT+2*, ERXRCVDT+3, ERXRCVDT+4, ERXRCVDT+5
ERXSTAT	ERXMTYPE+4~, ERXMTYPE+9*
ERXSTATSD	EN+1~, EN+6*, EXIT+1!
ERXWDATE	S2017+1~, S2017+11*, S2017+12
HARY	GETHLDSTA+10~
HDR	HDR+1~, HDR+13, HDR+14
HGHLIGHT	EN+1~
HIGHLN	INIT+1~
HIGUNDLN	INIT+1~
HL	GETHLDSTA+10~
>> I	INIT+52, REF+1
>> IOBOFF	HDR+18
>> IOBON	HDR+18
>> IOINHI	HDR+2, HDR+3, HDR+4, HDR+9, HDR+10, INIT+17, INIT+25, DEANOTE+4, DEANOTE+6, DEANOTE+8
>> IOINORM	HDR+2, HDR+3, HDR+4, HDR+11, HDR+14, INIT+17, INIT+25, DEANOTE+4, DEANOTE+6, DEANOTE+8
>> IORVOFF	HDR+6, HDR+8, HDR+10, HDR+14
>> IORVON	HDR+6, HDR+8, HDR+14, HDR+18
>> IOUOFF	VSR+6, VSR+11
>> IOUON	HDR+14, VSR+6, VSR+11
>> LASTLINE	INIT+51, INIT+52, INIT+53*
LHFOUND	GETHLDSTA+10~, GETHLDSTA+18, GETHLDSTA+19
LHMATCH	GETHLDSTA+10~, GETHLDSTA+18*, GETHLDSTA+19, GETHLDSTA+21, GETHLDSTA+22
LHSTATI	GETHLDSTA+10~, GETHLDSTA+19*, GETHLDSTA+20
LINE	INIT+6, INIT+16, INIT+17, INIT+22, INIT+23, INIT+24, INIT+25, INIT+26, INIT+47, INIT+48 , INIT+51, INIT+52, INIT+53, DEANOTE~, DEANOTE+2, DEANOTE+3, DEANOTE+4, DEANOTE+5, DEANOTE+6, DEANOTE+7 , DEANOTE+8, DEANOTE+9*
LINETXT	DEANOTE+1~, DEANOTE+3, DEANOTE+4, DEANOTE+5, DEANOTE+6, DEANOTE+7*, DEANOTE+8
MBMSITE	EN+1~, EN+8*
MIEN	S2017+1~, S2017+9*, S2017+10
MODE	INIT+1~, INIT+4*, INIT+16, INIT+29, INIT+32, INIT+37, INIT+40, INIT+41, INIT+42, INIT+43 , ERXRCVDT+7, S2017~, S2017+5, S2017+6, S2017+7, S2017+12, S2017+13, S2017+14
MSGTYPE	RELERX~, RELERX+7, RELERX+10, RELERX+20, RELERX+26, RELERX+27, RELERX+28
MTYPE	GETMTYPE+3~, GETMTYPE+4, GETMTYPE+9, RELERX+4~, RELERX+14, RELERX+16, RELERX+18, RELERX+20, RELERX+22
MTYPEE	GETMTYPE+3~, GETMTYPE+5, GETMTYPE+9, GETMTYPE+10
NAMESPACE	S2017~
NMSPC	INIT+1~, INIT+4*, INIT+16, INIT+29, INIT+32, INIT+37, INIT+40, INIT+41, INIT+42, ERXRCVDT+7 , S2017+7, S2017+14
>> NPALERT	HDR+19*
ORERXIEN	VO+1~, VO+2*, VO+3, VO+4
ORIGIEN	RELERX+4~, RELERX+15, RELERX+21, RELERX+25*, RELERX+26
POS	HDR+17~*, HDR+18
PSODFN	VSR+1~
PSOIEN	EN~, EN+2, EN+3, INIT+39, INIT+47, VO+3, VRR+3, VRE+3*
>> PSOREFSH	EXIT+4*
REERXIEN	VRE+1~, VRE+2*, VRE+3, VRE+4
REQIEN	RELERX+4~, RELERX+15, RELERX+17, RELERX+19, RELERX+23, RELERX+24, RELERX+25, RELERX+27
RERX	RELERX+4~, RELERX+9*, RELERX+10, RELERX+11
RESIEN	RELERX+4~, RELERX+15, RELERX+17, RELERX+19, RELERX+23, RELERX+28
RESPVAL	GETMTYPE+3~, GETMTYPE+6*, GETMTYPE+9
REVLN	INIT+1~
RRERXIEN	VRR+1~, VRR+2*, VRR+3, VRR+4
RXIEN	VSR+1~, VSR+13*
S2017	INIT+1~, INIT+39*, INIT+40, S2017~, S2017+2, S2017+8
SDERXFLG	EN+1~, EN+7, INIT+20
SEQ	RELERX+4~, RELERX+5, RELERX+8, RELERX+11, RELERX+26, RELERX+27, RELERX+28, RELERX+35*, RELERX+36
STATIEN	ERXMTYPE+4~, ERXMTYPE+8*, ERXMTYPE+9
SUGRX	VSR+1~, VSR+4*, VSR+13
TMPARR	RELERX+4~
TMPARR(	RELERX+7, RELERX+8, RELERX+10, RELERX+11
>> VAHPER	GETHLDSTA+14, GETHLDSTA+21
>> VAHREA	GETHLDSTA+14, GETHLDSTA+22
>> VAHSTA	GETHLDSTA+14, GETHLDSTA+20
>> VALM("LINES"	HDR+17
>> VALMAR	INIT+21, INIT+22, INIT+25
>> VALMBCK	EXIT+4, REF+2, VO+4, VRR+4, VRE+4, VSR+2
>> VALMBG	INIT+9*
>> VALMCNT	INIT+26, INIT+48
>> VALMEVL	REF+1
VALMHDR	HDR+1!
VALMHDR(1	HDR+2*
VALMHDR(2	HDR+4*
VALMHDR(3	HDR+10, HDR+11
>> VALMSG	VO+4, VRR+4, VRE+4, VSR+3, VSR+4*
WDATE	S2017+1~, S2017+3*, S2017+5
X	S2017+1~, S2017+10*, RELERX+4~, VSR+1~
XE	INIT+1~, ERXRCVDT+4, ERXRCVDT+5, ERXRCVDT+6, ERXRCVDT+7, S2017+1~, S2017+5, S2017+6, S2017+7, S2017+12 , S2017+13*, S2017+14
>> XQORNOD(0	VSR+13*
XV	S2017+1~
XX	RELERX+4~, RELERX+34, VSR+1~, VSR+6, VSR+11*
Y	S2017+10, RELERX+4~, RELERX+39, VSR+1~

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOERSE1

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 19

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: