Routine: PSOERX1F

Information

PSOERX1F ;ALB/MR - Accept/Un-Accept eRx function ; 8/18/2020 5:14pm

Package	Total	Call Graph
Outpatient Pharmacy	9	TXT2ARY^PSOERXD1 POST^PSOERXO1 ($$CHKERX,MSGDIR,UPDSTAT)^PSOERXU1 ($$GETREQ,RRDELTA)^PSOERXU2 PREFRES^PSOERXU3 $$LSIG^PSOERXU6 ($$DONOTFIL,$$ERXSIG,$$VALPTADD,PRDRVAL)^PSOERXUT EN^PSOHLSN EN^PSOHLSNC
VA FileMan	6	^DIC FILE^DICN (,FILE,WP)^DIE (EN1,IX)^DIK ($$GET1,GETS)^DIQ ^DIR
List Manager	2	EN^VALM (FULL,PAUSE)^VALM1

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 5

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSO ERX ACCEPT ERX PSO ERX JUMP TO ERX PSO ERX UN-ACCEPT PSOERXA5
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
SETUP	;
ADD(QUIET)	;Add CHCS message to Outpatient Pending Orders file
UNACC	; Un-Accept eRx from Pending Queue back into the Holding Queue
JUMP2ERX	; Jump to the eRx Holding Queue for the specific order after Un-Accepting eRx
ORDNUM()	; Returns the correct IEN for the ORDER file (#100) for the Rx
UNACCBEF(ERXIEN)	; Determines if the eRx has been Un-Accepted Before ; Input: (r)ERXIEN - Pointer to ERX HOLDING QUEUE (#52.49)

External References

Name	Field # of Occurrence
^DIC	SETUP+78, UNACC+14
FILE^DICN	ADD+15
^DIE	ADD+23, ADD+57
FILE^DIE	ADD+25
WP^DIE	ADD+39, ADD+72
EN1^DIK	ADD+26
IX^DIK	ADD+53
$$GET1^DIQ	SETUP+4, SETUP+9, SETUP+20, SETUP+40, SETUP+51, SETUP+56, SETUP+73, SETUP+74, SETUP+77, SETUP+92 , ADD+2, ADD+8, ADD+9, ADD+65, ADD+67, ADD+76, UNACC+4, UNACC+5, UNACC+38, ORDNUM+1 , ORDNUM+2, ORDNUM+3, UNACCBEF+6
GETS^DIQ	SETUP+14
^DIR	SETUP+12, SETUP+104, ADD+51, ADD+82, ADD+83, UNACC+21, UNACC+26
TXT2ARY^PSOERXD1	SETUP+61, SETUP+64
POST^PSOERXO1	ADD+80
$$CHKERX^PSOERXU1	UNACC+6, JUMP2ERX+6
MSGDIR^PSOERXU1	SETUP+24, SETUP+30, SETUP+36, SETUP+39, SETUP+42
UPDSTAT^PSOERXU1	SETUP+26, ADD+17, ADD+18, ADD+60, ADD+61, ADD+64, ADD+66, ADD+67, UNACC+30
$$GETREQ^PSOERXU2	SETUP+19, ADD+18, ADD+67
RRDELTA^PSOERXU2	SETUP+22
PREFRES^PSOERXU3	SETUP+21
$$LSIG^PSOERXU6	SETUP+61, SETUP+64
$$DONOTFIL^PSOERXUT	SETUP+8
$$ERXSIG^PSOERXUT	ADD+71
$$VALPTADD^PSOERXUT	SETUP+40
PRDRVAL^PSOERXUT	SETUP+38
EN^PSOHLSN	UNACC+40
EN^PSOHLSNC	ADD+41
EN^VALM	JUMP2ERX+10
FULL^VALM1	SETUP+7, ADD+42, UNACC+8, JUMP2ERX+2
PAUSE^VALM1	UNACC+43

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Cannot accept a prescription with a status of 'Rejected', 'Removed',",!,"or 'Processed",! Line Location: SETUP+11
Function Call: WRITE	Prompt: !!,"Current Clinic assigned to the eRx: ",$$GET1^DIQ(52.49,PSOIEN,20.6),! Line Location: SETUP+74
Function Call: WRITE	Prompt: !,PSOEXMS Line Location: SETUP+104
Function Call: WRITE	Prompt: !!,"External order, unable to successfully transmit to CPRS." Line Location: ADD+50
Function Call: WRITE	Prompt: !!,"eRx #"_PSOHY("CHNUM")_" sent to PENDING ORDERS Queue." Line Location: ADD+75
Function Call: WRITE	Prompt: !,$P(PSSRET(0),U,2) Line Location: ADD+82
Function Call: WRITE	Prompt: !,PSSRET("errorMessage") Line Location: ADD+83
Function Call: WRITE	Prompt: $C(7) Line Location: UNACC+3
Function Call: WRITE	Prompt: $C(7) Line Location: UNACC+4
Function Call: WRITE	Prompt: $C(7) Line Location: UNACC+5
Function Call: WRITE	Prompt: $C(7) Line Location: UNACC+6
Function Call: WRITE	Prompt: $C(7) Line Location: UNACC+7
Function Call: WRITE	Prompt: ! Line Location: UNACC+10
Function Call: WRITE	Prompt: !,"HOLD Reason is required",!,$C(7) Line Location: UNACC+16
Function Call: WRITE	Prompt: ! Line Location: UNACC+24
Function Call: WRITE	Prompt: ?40,"Please wait..." Line Location: UNACC+27
Function Call: WRITE	Prompt: !!,"eRx successfully un-accepted and placed back on the eRx Holding Queue." Line Location: UNACC+42
Function Call: WRITE	Prompt: $C(7) Line Location: JUMP2ERX+4
Function Call: WRITE	Prompt: $C(7) Line Location: JUMP2ERX+5
Function Call: WRITE	Prompt: $C(7) Line Location: JUMP2ERX+6
Routine Call	DIC Line Location: SETUP+78 UNACC+14
Routine Call	DIE Line Location: ADD+23 ADD+57
Routine Call	DIE Line Location: ADD+25
Routine Call	DIE Line Location: ADD+39 ADD+72
Routine Call	DIR Line Location: SETUP+12 SETUP+104 ADD+51 ADD+82 ADD+83 UNACC+21 UNACC+26
Routine Call	VALM Line Location: JUMP2ERX+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SC - [#44]	GET1^DIQ
^PSDRUG - [#50]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ
^PS(52.41 - [#52.41]	Classic Fileman Calls, GET1^DIQ, WP^DIE
^PS(52.45 - [#52.45]	Classic Fileman Calls, GET1^DIQ
^PS(52.49 - [#52.49]	Classic Fileman Calls, GET1^DIQ
52.4919	GET1^DIQ
^PS(59 - [#59]	GET1^DIQ
^PS(59.7 - [#59.7]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.41 - [#52.41]	ADD+20, ADD+21, ADD+22, ADD+27, ADD+28, ADD+29, ADD+30, ADD+31, ADD+33, ADD+36 , ADD+37, ADD+38, ADD+44, ADD+46!, ADD+47!, ADD+48, ADD+56, UNACC+3, UNACC+34, UNACC+35! , UNACC+36!, UNACC+37, UNACC+39
^PS(52.45 - [#52.45]	ADD+55
^PS(52.49 - [#52.49]	SETUP+67, SETUP+68, SETUP+69, SETUP+97, SETUP+98, ADD+65, UNACC+32*, UNACCBEF+5
^SC - [#44]	ADD+6
^TMP("PSOERXPO"	JUMP2ERX+8!*, JUMP2ERX+11
^TMP("XQORS"	JUMP2ERX+8, JUMP2ERX+11!*

Label References

Name	Line Occurrences
$$ORDNUM	JUMP2ERX+5
$$UNACCBEF	ADD+78
ADD	SETUP+27, SETUP+29, SETUP+103
JUMP2ERX	UNACC+45

Naked Globals

Name	Field # of Occurrence
^("EXT"	ADD+22*
^("INI"	ADD+46
^(0	ADD+20, ADD+21, ADD+47, UNACC+37

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CSERRMSG	SETUP+3~, SETUP+38, SETUP+39, SETUP+42
CSERRMSG(1	SETUP+41*
DA	ADD+23!, ADD+26~, ADD+53, ADD+57!, UNACC+1~
DD	ADD+11!, ADD+15!
DELTAS	SETUP+3~, SETUP+22
DELTAS(	SETUP+23, SETUP+25, SETUP+27
DFN	SETUP+90*, SETUP+105!
DIC	SETUP+3~, SETUP+75!, ADD+11!, ADD+15!, UNACC+1~, UNACC+10!, UNACC+11*
DIC("A"	SETUP+76, UNACC+10
DIC("B"	SETUP+77, UNACC+11
DIC("DR"	ADD+13, ADD+14
DIC("S"	SETUP+75, UNACC+12
DIC(0	SETUP+75, ADD+11, UNACC+11*
DIE	ADD+23!, ADD+57!, UNACC+1~
DIK	ADD+26~, ADD+53
DIK(1	ADD+26*
DIR	SETUP+2~, SETUP+104!, ADD+82!, ADD+83!, UNACC+1~, UNACC+20!, UNACC+21!, UNACC+24!, UNACC+43!
DIR("A"	UNACC+20, UNACC+24, UNACC+25*
DIR("B"	UNACC+25*
DIR(0	SETUP+12, SETUP+104, ADD+51, ADD+82, ADD+83, UNACC+20, UNACC+25*
>> DIRUT	UNACC+26
DMVAL	SETUP+2~, SETUP+34*
DO	ADD+11!, ADD+15!
DR	ADD+23!, ADD+57!, UNACC+1~
DT	ADD+27
DTOUT	SETUP+78, UNACC+1~, UNACC+15
DUOUT	SETUP+78, UNACC+1~, UNACC+15, UNACC+26
DUZ	SETUP+86
EFFDT	SETUP+1~, SETUP+50, SETUP+53, SETUP+54*, SETUP+87
ERXIEN	UNACC+1~, UNACC+6, UNACC+7, UNACC+30, UNACC+32, JUMP2ERX+1~, JUMP2ERX+6, UNACCBEF~, UNACCBEF+5, UNACCBEF+6
ERXMSG	SETUP+3~
ERXNUM	SETUP+1~, SETUP+48*, SETUP+84
ERXSTA	SETUP+30, ADD+1~, ADD+55
F	SETUP+1~, SETUP+5*, SETUP+14, SETUP+16, SETUP+17, SETUP+30, SETUP+32, SETUP+33, SETUP+34, SETUP+40 , SETUP+44, SETUP+45, SETUP+46, SETUP+47, SETUP+48, SETUP+49, SETUP+50, SETUP+51, SETUP+55, SETUP+57 , SETUP+58, SETUP+59, SETUP+63
FDA	ADD+25!
FDA(	ADD+25*
HOLDCOMM	UNACC+1~, UNACC+22*, UNACC+30, UNACC+38
I	SETUP+3~
IARY	ADD+1~
ILOOP	ADD+1~
LOC	SETUP+1~, SETUP+51, SETUP+79, SETUP+84
MBMSITE	SETUP+1~, SETUP+4, SETUP+7, SETUP+73, ADD+1~, ADD+2, ADD+76
MTYPE	SETUP+3~, SETUP+16*, SETUP+18, SETUP+31, ADD+17, ADD+60, ADD+61, ADD+63, ADD+78
OC	SETUP+1~
>> ORD	UNACC+3, UNACC+4, UNACC+5, UNACC+34, UNACC+35, UNACC+36, UNACC+37, UNACC+39, ORDNUM+2
ORDERTYP	SETUP+2~, SETUP+83*, SETUP+90
ORDNUM	ADD+1~, ADD+56, ADD+57, UNACC+1~, UNACC+5, UNACC+6, JUMP2ERX+1~, JUMP2ERX+5*, JUMP2ERX+6
ORXIEN	SETUP+3~
PATIEN	SETUP+1~, SETUP+45*, SETUP+90
PATINST	SETUP+2~, SETUP+59*, SETUP+61, ADD+25
PCNT	SETUP+2~, SETUP+65, SETUP+66
PINARY	SETUP+3~, SETUP+61
PINARY(	SETUP+100, SETUP+101
PINARY(0	ADD+39
PLOOP	SETUP+2~, SETUP+65*, SETUP+66
PMVAL	SETUP+2~, SETUP+32*
POERR	UNACC+1~
POERR("COMM"	UNACC+38*, UNACC+39, UNACC+40
POERR("PLACER"	UNACC+37*, UNACC+40
POERR("STAT"	UNACC+37*, UNACC+40
POORD	SETUP+2~, SETUP+44*
PRMVAL	SETUP+2~, SETUP+33*
PROVIEN	SETUP+1~, SETUP+46*, SETUP+87
PRVARY	SETUP+1~, SETUP+64
PRVARY(	SETUP+65, SETUP+66
PRVCOMM	SETUP+1~, SETUP+63*, SETUP+64
>> PSOCLNC	SETUP+73, SETUP+77
PSOCPEND	ADD+1~, ADD+19*, ADD+20, ADD+21, ADD+22, ADD+23, ADD+25, ADD+26, ADD+27, ADD+28 , ADD+29, ADD+30, ADD+31, ADD+33, ADD+36, ADD+37, ADD+38, ADD+39, ADD+41, ADD+44 , ADD+46, ADD+47, ADD+48, ADD+53, ADD+56, ADD+57, ADD+72
PSODAT	SETUP+1~, SETUP+21
PSODAT(	SETUP+16, SETUP+17, SETUP+30, SETUP+32, SETUP+33, SETUP+34, SETUP+40, SETUP+44, SETUP+45, SETUP+46 , SETUP+47, SETUP+48, SETUP+49, SETUP+50, SETUP+51, SETUP+55, SETUP+57, SETUP+58, SETUP+59, SETUP+63
PSOEXCNT	SETUP+2~, SETUP+15, SETUP+21, SETUP+30, SETUP+32, SETUP+33, SETUP+34, SETUP+44, SETUP+45, SETUP+46 , SETUP+47, SETUP+48, SETUP+49, SETUP+56, SETUP+58, SETUP+67, ADD+4, ADD+10, ADD+16, ADD+17 , ADD+44, ADD+49*
PSOEXMS	SETUP+2~, SETUP+21, SETUP+24, SETUP+30, SETUP+36, SETUP+104, ADD+18
PSOEXMS(	SETUP+30, SETUP+32, SETUP+33, SETUP+34, SETUP+44, SETUP+45, SETUP+46, SETUP+47, SETUP+48, SETUP+49 , SETUP+56, SETUP+58, SETUP+67, ADD+4, ADD+10, ADD+16, ADD+17, ADD+44, ADD+49
PSOEXMS(0	SETUP+23, SETUP+25, SETUP+36
PSOHINI	ADD+1~, ADD+5*
PSOHINLO	ADD+1~, ADD+5, ADD+6, ADD+9*, ADD+10, ADD+31
PSOHOLD	UNACC+1~, UNACC+13, UNACC+14, UNACC+17, UNACC+30, UNACC+38
PSOHQ	ADD+1~, ADD+28, ADD+30, ADD+34*, ADD+35, ADD+36, ADD+37, ADD+38
PSOHQT	ADD+1~, ADD+27, ADD+28, ADD+29, ADD+30, ADD+33, ADD+34, ADD+35, ADD+36, ADD+37 , ADD+38
PSOHY	SETUP+1~, SETUP+21
PSOHY("CHNUM"	SETUP+84*, ADD+11, ADD+22, ADD+75
PSOHY("DAYS"	SETUP+95*, ADD+14
PSOHY("DRUG"	SETUP+88*, ADD+3, ADD+13
PSOHY("EDT"	SETUP+92*, ADD+20
PSOHY("ENTER"	SETUP+86*, ADD+13
PSOHY("EXAPP"	SETUP+94*, ADD+22
PSOHY("ITEM"	SETUP+88*, ADD+13
PSOHY("LOC"	SETUP+84*, ADD+6, ADD+20, ADD+76
PSOHY("OCC"	SETUP+90*, ADD+20
PSOHY("PAT"	SETUP+90*, ADD+20
PSOHY("PICK"	SETUP+85, ADD+12, ADD+21
PSOHY("PRCOM"	SETUP+66*, ADD+27, ADD+28
PSOHY("PREVORD"	ADD+14
PSOHY("PRIOR"	SETUP+92*, ADD+21
PSOHY("PROV"	SETUP+87*, ADD+13
PSOHY("QTSUB"	SETUP+69*, ADD+33, ADD+34, ADD+35, ADD+36, ADD+37, ADD+38
PSOHY("QTY"	SETUP+89*, ADD+14
PSOHY("REF"	SETUP+89*, ADD+14
PSOHY("SDT"	SETUP+87*, ADD+13
PSOHY("SIG"	SETUP+99, SETUP+101, ADD+29, ADD+30
PSOIEN	SETUP+6, SETUP+8, SETUP+9, SETUP+13, SETUP+19, SETUP+21, SETUP+22, SETUP+26, SETUP+38, SETUP+40 , SETUP+67, SETUP+68, SETUP+69, SETUP+73, SETUP+74, SETUP+92, SETUP+97, SETUP+98, ADD+8, ADD+9 , ADD+17, ADD+18, ADD+57, ADD+60, ADD+61, ADD+64, ADD+65, ADD+67, ADD+71, ADD+78 , ADD+80, UNACC+1~, UNACC+6, JUMP2ERX+1~, JUMP2ERX+6
PSOIENS	SETUP+1~, SETUP+13*, SETUP+14, SETUP+16, SETUP+17, SETUP+30, SETUP+32, SETUP+33, SETUP+34, SETUP+40 , SETUP+44, SETUP+45, SETUP+46, SETUP+47, SETUP+48, SETUP+49, SETUP+50, SETUP+51, SETUP+55, SETUP+57 , SETUP+58, SETUP+59, SETUP+63
>> PSOJUMP	JUMP2ERX+4, JUMP2ERX+9, JUMP2ERX+12
PSOQUIT	SETUP+3~, SETUP+72, SETUP+73, SETUP+78, UNACC+1~, UNACC+13, UNACC+14, UNACC+15, UNACC+18
>> PSOSITE	SETUP+51
PSSRET	ADD+1~, ADD+80
PSSRET("errorMessage"	ADD+83
PSSRET(0	ADD+82
QTCNT	SETUP+2~, SETUP+68, SETUP+69
QTLOOP	SETUP+2~, SETUP+68*, SETUP+69
QUIET	ADD~, ADD+49, ADD+50, ADD+51, ADD+74, ADD+86!
REQIEN	SETUP+3~, SETUP+19, SETUP+20, SETUP+22, ADD+18, ADD+67*
RESTYPE	SETUP+3~, SETUP+17, SETUP+18, SETUP+23, SETUP+25, SETUP+31, ADD+8, ADD+78
>> RTHID	ADD+65*
>> RTHIEN	ADD+65*, ADD+66
RXIEN	SETUP+3~, SETUP+20*
>> RXN	ORDNUM+1, ORDNUM+3
RXSTAT	SETUP+2~, SETUP+9*, SETUP+10
SCNT	SETUP+2~, SETUP+97, SETUP+99, SETUP+101*
SIGDAT	SETUP+2~, SETUP+98*, SETUP+99
SLOOP	SETUP+2~, SETUP+97*, SETUP+98
SLOOP2	SETUP+3~, SETUP+100*, SETUP+101
STSHST	UNACCBEF+3~, UNACCBEF+5*, UNACCBEF+6
U	ADD+56, ADD+82
UNACCBEF	UNACCBEF+3~, UNACCBEF+4, UNACCBEF+5, UNACCBEF+6, UNACCBEF+7
UNEXINS	ADD+71~
UNEXINS(1	ADD+71*, ADD+72
UNEXPI	SETUP+3~
VADAYS	SETUP+3~, SETUP+55*, SETUP+95
VADRUG	SETUP+1~, SETUP+47*, SETUP+56, SETUP+88
VALMBCK	SETUP+7, UNACC+2, UNACC+45!, JUMP2ERX+3*
>> VALMKEY	ORDNUM+1, ORDNUM+2, ORDNUM+3
>> VALMSG	UNACC+3, UNACC+4, UNACC+5, UNACC+6, UNACC+7, JUMP2ERX+4, JUMP2ERX+5, JUMP2ERX+6
VAOI	SETUP+1~, SETUP+56*, SETUP+88
VAPRIOR	SETUP+1~, SETUP+81*, SETUP+92
VAREF	SETUP+1~, SETUP+57*, SETUP+89
VAROUT	SETUP+1~, SETUP+58*, SETUP+85
VQTY	SETUP+1~, SETUP+49*, SETUP+89
WRITDT	SETUP+3~, SETUP+50*, SETUP+54
X	ADD+11*, UNACC+1~, UNACC+16
>> XQY0	ORDNUM+1, ORDNUM+2, ORDNUM+3
Y	SETUP+78, SETUP+79, ADD+15, ADD+19, UNACC+1~, UNACC+17, UNACC+21, UNACC+22, UNACC+26

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOERX1F

Information

Source Information

Call Graph

Call Graph Total: 17

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: