Routine: PRCHJR01

Package	Total	Call Graph
IFCAP	9	ERS410^PRC0G PHMSG^PRCHJMSG ($$ECMSRETN,$$XECMSIDS,LOGOMN,LOGORN)^PRCHJR03 KILLTRAN^PRCPUTRA REMOVE^PRCSC1 REMOVE^PRCSC3 TRANK^PRCSES TRANK^PRCSEZZ EN^PRCVTCA
Health Level Seven	4	($$ADDSEG,SET)^HLOAPI ($$ACK,$$SENDACK)^HLOAPI2 ($$GET,$$NEXTSEG,$$STARTMSG)^HLOPRS GETTS^HLOPRS2
VA FileMan	4	$$FIND1^DIC (FILE,WP)^DIE ^DIK $$GET1^DIQ
Kernel	2	($$DT,$$FMADD,$$NOW)^XLFDT $$UP^XLFSTR

Name	Comments	DBIA/ICR reference
PARSE	;This module contains logic to parse the incoming OMN^O07 HL7 message
EMAIL	;Send message to users attached to 2237 being returned/canceled
ORC(PRCHJSEG)	;Parse ORC segment
RQD(PRCHJSEG)	;Process RQD segment
RET2AO(DA)	;This module contains logic to remove the AO signature and change status to Pending Accountable Officer Sig.
RET2CP(DA)	;This module contains logic to remove the Control Point Official's signature, de-commit the funds and adjust due-ins as necessary.
CANCEL(DA)	;This module contains logic to cancel the 2237
BUILDACK	;This module contains logic to build the ORN^O08 application acknowledgment
VALIDATE()	;Validate the data and existence of the 2237 and return ; 1 if valid and 0 if there are errors
ADJDUEIN(PRCDA)	;Decrement due-ins
ERRTABLE	;Table of Error data

External References

Name	Field # of Occurrence
$$FIND1^DIC	PARSE+20, VALIDATE+17, VALIDATE+33
FILE^DIE	RET2AO+2, RET2AO+4, RET2AO+6, RET2AO+13, RET2CP+4, RET2CP+5, RET2CP+6, CANCEL+3
WP^DIE	RET2AO+8, RET2CP+8, CANCEL+9, CANCEL+16
^DIK	CANCEL+19
$$GET1^DIQ	PARSE+21, VALIDATE+21, VALIDATE+22, VALIDATE+30
$$ADDSEG^HLOAPI	BUILDACK+13, BUILDACK+15, BUILDACK+28
SET^HLOAPI	BUILDACK+8, BUILDACK+9, BUILDACK+10, BUILDACK+11, BUILDACK+12, BUILDACK+14, BUILDACK+20, BUILDACK+22, BUILDACK+23, BUILDACK+24 , BUILDACK+25, BUILDACK+26, BUILDACK+27
$$ACK^HLOAPI2	BUILDACK+6
$$SENDACK^HLOAPI2	BUILDACK+30
$$GET^HLOPRS	ORC+1, ORC+2, ORC+3, ORC+4, ORC+5, ORC+6, ORC+8, ORC+9, ORC+10, ORC+11 , ORC+12, ORC+13, ORC+14, ORC+15, RQD+1
$$NEXTSEG^HLOPRS	PARSE+9
$$STARTMSG^HLOPRS	PARSE+3
GETTS^HLOPRS2	ORC+7
ERS410^PRC0G	CANCEL+8
PHMSG^PRCHJMSG	EMAIL+8
$$ECMSRETN^PRCHJR03	PARSE+23, PARSE+26
$$XECMSIDS^PRCHJR03	RET2AO+11, CANCEL+4
LOGOMN^PRCHJR03	PARSE+14
LOGORN^PRCHJR03	BUILDACK+31
KILLTRAN^PRCPUTRA	ADJDUEIN+8
REMOVE^PRCSC1	RET2CP+10
REMOVE^PRCSC3	RET2CP+10
TRANK^PRCSES	RET2CP+2
TRANK^PRCSEZZ	CANCEL+6
EN^PRCVTCA	CANCEL+18
$$DT^XLFDT	PARSE+8
$$FMADD^XLFDT	PARSE+8
$$NOW^XLFDT	BUILDACK+31
$$UP^XLFSTR	PARSE+22, PARSE+25, CANCEL+15, VALIDATE+24, VALIDATE+27

FileNo	Call Tags
^PRCS(410 - [#410]	FIND1^DIC, GET1^DIQ, WP^DIE
^PRC(411 - [#411]	FIND1^DIC
^PRC(443 - [#443]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PRC(443 - [#443]	CANCEL+19
^PRCP(445 - [#445]	ADJDUEIN+3
^PRCS(410 - [#410]	RET2CP+2, CANCEL+5*, CANCEL+6, ADJDUEIN+2, ADJDUEIN+5, ADJDUEIN+6
^XTMP(	PARSE+8!, PARSE+20, PARSE+22, PARSE+25, PARSE+30, PARSE+32, PARSE+35, EMAIL+2, EMAIL+3, EMAIL+4 , EMAIL+5, EMAIL+6, EMAIL+7, ORC+1, ORC+2, ORC+3, ORC+4, ORC+5, ORC+6, ORC+7 , ORC+8, ORC+9, ORC+10, ORC+11, ORC+12, ORC+13, ORC+14, ORC+15, RQD+1*, RET2AO+7 , RET2AO+10, RET2CP+7, CANCEL+9, CANCEL+11, CANCEL+13, CANCEL+14, BUILDACK+9, BUILDACK+10, BUILDACK+11, BUILDACK+12 , VALIDATE+4, VALIDATE+5, VALIDATE+7, VALIDATE+9, VALIDATE+11, VALIDATE+13, VALIDATE+14, VALIDATE+15, VALIDATE+16, VALIDATE+17 , VALIDATE+27, VALIDATE+31, VALIDATE+32, VALIDATE+33, VALIDATE+35, VALIDATE+37, VALIDATE+39, VALIDATE+40, VALIDATE+41

Name	Line Occurrences
$$CANCEL	PARSE+28, PARSE+38
$$RET2AO	PARSE+31, PARSE+33, PARSE+36
$$RET2CP	PARSE+34, PARSE+37
$$VALIDATE	PARSE+16
ADJDUEIN	RET2CP+11
BUILDACK	PARSE+40
EMAIL	PARSE+18
ORC	PARSE+10
RQD	PARSE+11

Name	Field # of Occurrence
^(	CANCEL+6
^("MIDDLENAME"	EMAIL+5, CANCEL+14
^(0	ADJDUEIN+6
^(4	CANCEL+5*
^(6	CANCEL+5*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	RET2AO~, RET2AO+1, RET2CP~, RET2CP+1, RET2CP+2, RET2CP+3, RET2CP+10, RET2CP+11, CANCEL~, CANCEL+1 , CANCEL+4, CANCEL+5, CANCEL+6*, CANCEL+8, CANCEL+18, CANCEL+19
DA(1	CANCEL+6*, CANCEL+7!
DIK	CANCEL+19*!
>> HLMSGIEN	PARSE+3
I	CANCEL+1~, CANCEL+6*
N	CANCEL+1~, CANCEL+6*
PRC2237	PARSE+20~, VALIDATE+2~, VALIDATE+17, VALIDATE+18
PRCACTID	VALIDATE+30~*, VALIDATE+31, VALIDATE+32
PRCARR	BUILDACK+13, BUILDACK+15, BUILDACK+19~, BUILDACK+28
PRCDA	ADJDUEIN~, ADJDUEIN+2, ADJDUEIN+5, ADJDUEIN+6, ADJDUEIN+8
PRCDATA	RET2AO+1~, RET2AO+2!, RET2AO+4!, RET2AO+6!, RET2AO+9!, RET2AO+14!, RET2CP+1~, RET2CP+4!, RET2CP+5!, RET2CP+6! , RET2CP+9!, CANCEL+1~, CANCEL+3!, CANCEL+10!, CANCEL+16!
PRCDATA(1	RET2AO+7, RET2CP+7, CANCEL+9, CANCEL+11
PRCDATA(2	RET2AO+7, RET2CP+7, CANCEL+12*
PRCDATA(3	CANCEL+13, CANCEL+14, CANCEL+15*
PRCDATA(410	RET2AO+5, RET2CP+3, RET2CP+5, CANCEL+2
PRCDATA(443	RET2AO+2, RET2AO+3, RET2AO+12, RET2CP+6
PRCE	BUILDACK+19~, BUILDACK+20*
PRCERR	PARSE+20~, PARSE+21!, RET2AO+1~, RET2AO+2!, RET2AO+4!, RET2AO+6!, RET2AO+9!, RET2AO+13, RET2AO+14!, RET2CP+1~ , RET2CP+4!, RET2CP+5!, RET2CP+6!, RET2CP+9!, CANCEL+1~, CANCEL+3!, CANCEL+10!, CANCEL+16!, BUILDACK+1~, BUILDACK+6 , BUILDACK+13, BUILDACK+15, BUILDACK+19~, BUILDACK+28, BUILDACK+29!, BUILDACK+30, VALIDATE+20!, VALIDATE+21!, VALIDATE+23!, VALIDATE+30! , VALIDATE+33!
PRCERROR	RET2AO+1~, RET2AO+2, RET2AO+4, RET2AO+6, RET2AO+9, RET2AO+11, RET2AO+13, RET2AO+15, RET2CP+1~, RET2CP+4* , RET2CP+5, RET2CP+6, RET2CP+9, RET2CP+12, CANCEL+1~, CANCEL+3, CANCEL+4, CANCEL+10, CANCEL+16, CANCEL+20
PRCHDA	RET2CP+1~*, RET2CP+10, RET2CP+11
PRCHJACK	BUILDACK+1~, BUILDACK+6, BUILDACK+13, BUILDACK+15, BUILDACK+28, BUILDACK+30
PRCHJCPR	RET2CP+1~, RET2CP+6*
PRCHJCTR	PARSE+1~, PARSE+24, PARSE+27, PARSE+29, PARSE+31, PARSE+33, PARSE+34, PARSE+36, PARSE+37, PARSE+38* , BUILDACK+30, VALIDATE+3, VALIDATE+4, VALIDATE+6, VALIDATE+8, VALIDATE+10, VALIDATE+12, VALIDATE+14, VALIDATE+16, VALIDATE+18 , VALIDATE+25, VALIDATE+26, VALIDATE+28, VALIDATE+29, VALIDATE+32, VALIDATE+34, VALIDATE+36, VALIDATE+38, VALIDATE+39, VALIDATE+41 , VALIDATE+42
PRCHJDA	RET2AO+1~, RET2AO+2, RET2AO+3, RET2AO+5, RET2AO+8, RET2AO+11, RET2AO+12, RET2CP+1~, RET2CP+3, RET2CP+5 , RET2CP+6, RET2CP+8, CANCEL+1~*, CANCEL+2, CANCEL+9, CANCEL+16
PRCHJERR	PARSE+1~, BUILDACK+2, BUILDACK+7, BUILDACK+16, VALIDATE+3!
PRCHJERR(	PARSE+24, PARSE+27, PARSE+29, PARSE+31, PARSE+33, PARSE+34, PARSE+36, PARSE+37, PARSE+38, BUILDACK+18 , BUILDACK+20, BUILDACK+30, VALIDATE+4, VALIDATE+6, VALIDATE+8, VALIDATE+10, VALIDATE+12, VALIDATE+14, VALIDATE+16, VALIDATE+18 , VALIDATE+26, VALIDATE+29, VALIDATE+32, VALIDATE+34, VALIDATE+36, VALIDATE+38, VALIDATE+39, VALIDATE+41
PRCHJHDR	PARSE+1~, PARSE+3
PRCHJHDR("APP	ACK TYPE" , PARSE+40
PRCHJHDR("DT/	TM OF MESSAGE" , PARSE+7
PRCHJHDR("EVENT"	PARSE+5
PRCHJHDR("MES	SAGE CONTROL ID" , PARSE+7, SAGE TYPE" , PARSE+5
PRCHJHDR("REC	EIVING FACILITY" , PARSE+6
PRCHJIMF	ADJDUEIN+1~, ADJDUEIN+6*, ADJDUEIN+7, ADJDUEIN+8
PRCHJIND	PARSE+1~, PARSE+8*, PARSE+20, PARSE+22, PARSE+25, PARSE+30, PARSE+32, PARSE+35, EMAIL+2, EMAIL+3 , EMAIL+4, EMAIL+5, EMAIL+6, EMAIL+7, ORC+1, ORC+2, ORC+3, ORC+4, ORC+5, ORC+6 , ORC+7, ORC+8, ORC+9, ORC+10, ORC+11, ORC+12, ORC+13, ORC+14, ORC+15, RQD+1 , RET2AO+7, RET2AO+10, RET2CP+7, CANCEL+9, CANCEL+11, CANCEL+13, CANCEL+14, BUILDACK+9, BUILDACK+10, BUILDACK+11 , BUILDACK+12, VALIDATE+4, VALIDATE+5, VALIDATE+7, VALIDATE+9, VALIDATE+11, VALIDATE+13, VALIDATE+14, VALIDATE+15, VALIDATE+16 , VALIDATE+17, VALIDATE+27, VALIDATE+31, VALIDATE+32, VALIDATE+33, VALIDATE+35, VALIDATE+37, VALIDATE+39, VALIDATE+40, VALIDATE+41
PRCHJINV	ADJDUEIN+1~, ADJDUEIN+2*, ADJDUEIN+3, ADJDUEIN+8
PRCHJITM	ADJDUEIN+1~, ADJDUEIN+4, ADJDUEIN+5, ADJDUEIN+6
PRCHJM1	EMAIL+1~, EMAIL+8
PRCHJM1(1	EMAIL+2*
PRCHJM1(2	EMAIL+3*
PRCHJM1(3	EMAIL+4*
PRCHJM1(4	EMAIL+5*
PRCHJM1(5	EMAIL+6*
PRCHJM1(6	EMAIL+6*
PRCHJM2	EMAIL+1~, EMAIL+8
PRCHJM2(1	EMAIL+7*
PRCHJM2(2	EMAIL+7*
PRCHJMDT	PARSE+1~, PARSE+7*
PRCHJMID	PARSE+1~, PARSE+7*, PARSE+8
PRCHJMSG	PARSE+1~, PARSE+3, PARSE+9, BUILDACK+6
PRCHJMSG("BATCH"	PARSE+4
PRCHJNOW	PARSE+1~, BUILDACK+31*
PRCHJPAR	BUILDACK+1~, BUILDACK+6
PRCHJPAR("ACC	EPT ACK TYPE" , BUILDACK+3*
PRCHJPAR("ACK	CODE" , BUILDACK+2*
PRCHJPAR("ENC	ODING CHARACTERS" , BUILDACK+4*
PRCHJPAR("EVENT"	BUILDACK+3*
PRCHJPAR("FIE	LD SEPARATOR" , BUILDACK+4*
PRCHJPAR("MES	SAGE STRUCTURE CODE" , BUILDACK+5, SAGE TYPE" , BUILDACK+3
PRCHJPAR("VERSION"	BUILDACK+5*
PRCHJQTY	ADJDUEIN+1~, ADJDUEIN+6*, ADJDUEIN+7
PRCHJSEG	PARSE+1~, PARSE+9, PARSE+10, PARSE+11, ORC~, ORC+1, ORC+2, ORC+3, ORC+4, ORC+5 , ORC+6, ORC+7, ORC+8, ORC+9, ORC+10, ORC+11, ORC+12, ORC+13, ORC+14, ORC+15 , RQD~, RQD+1
PRCHJSEG("SEG	MENT TYPE" , PARSE+10, PARSE+11
PRCHJSTN	PARSE+1~, PARSE+6*
PRCHJTD	PARSE+1~, PARSE+8*
PRCHJVAL	PARSE+1~, ORC+7
PRCHPCR	RET2AO+1~*
PRCI	BUILDACK+17~, BUILDACK+18, BUILDACK+20
PRCIEN	PARSE+20~, PARSE+21, PARSE+23, PARSE+26, PARSE+28, PARSE+31, PARSE+33, PARSE+34, PARSE+36, PARSE+37 , PARSE+38, VALIDATE+2~, VALIDATE+17, VALIDATE+18, VALIDATE+19, VALIDATE+21, VALIDATE+22, VALIDATE+30
PRCSEG	BUILDACK+8, BUILDACK+9, BUILDACK+10, BUILDACK+11, BUILDACK+12, BUILDACK+13, BUILDACK+14!, BUILDACK+15, BUILDACK+19~, BUILDACK+20 , BUILDACK+22, BUILDACK+23, BUILDACK+24, BUILDACK+25, BUILDACK+26, BUILDACK+27, BUILDACK+28
PRCSIEN	VALIDATE+2~, VALIDATE+33*, VALIDATE+34
PRCSTAT	PARSE+20~, PARSE+21, PARSE+22, PARSE+25, VALIDATE+2~, VALIDATE+21, VALIDATE+22*, VALIDATE+24, VALIDATE+26, VALIDATE+27 , VALIDATE+29
PRCSTN	VALIDATE+2~, VALIDATE+33*, VALIDATE+34
PRCVALID	PARSE+1~, PARSE+16*, PARSE+18, PARSE+19
PRCX	PARSE+1~, PARSE+23~, PARSE+24, PARSE+26~, PARSE+27, PARSE+28, PARSE+29, PARSE+31, PARSE+33, PARSE+34 , PARSE+36, PARSE+37, PARSE+38, BUILDACK+13, BUILDACK+15, BUILDACK+19~, BUILDACK+20, BUILDACK+27, BUILDACK+28*
PRCY	BUILDACK+19~, BUILDACK+21*, BUILDACK+22, BUILDACK+23, BUILDACK+24, BUILDACK+25, BUILDACK+26
U	CANCEL+5, BUILDACK+20, BUILDACK+22, BUILDACK+23, BUILDACK+24, BUILDACK+25, BUILDACK+26, BUILDACK+27, ADJDUEIN+2, ADJDUEIN+6
X	RET2CP+1~, RET2CP+2, CANCEL+1~, CANCEL+6
Y	CANCEL+1~

Customize PDF page

Package: IFCAP

Routine: PRCHJR01

Information

Source Information

Call Graph

Call Graph Total: 19

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items