Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PRCHJR01

Package: IFCAP

Routine: PRCHJR01


Information

PRCHJR01 ;OI&T/LKG - PROCESS 2237 RETURN OR CANCEL FROM ECMS ;7/15/13 16:48

;;5.1;IFCAP;**167,174**;Oct 20, 2000;Build 23

Source Information

Source file <PRCHJR01.m>

Call Graph

Call Graph

Call Graph Total: 19

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Health Level Seven 1 MESSAGE TYPE ACTIONS  

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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~

Marked Items

Name Field # of Occurrence
$T(ERRTABLE+PRCE BUILDACK+21
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All