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 |  Used in HL7 Interface |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: RGADTP

Package: Clinical Information Resource Network

Routine: RGADTP


Information

RGADTP ;BIR/DLR-ADT PROCESSOR TO RETRIGGER A08 or A04 MESSAGES WITH AL/AL (COMMIT/APPLICATION) ACKNOWLEDGEMENTS ; 8/14/18 4:10pm

Source Information

Source file <RGADTP.m>

Call Graph

Call Graph

Call Graph Total: 21

Package Total Call Graph
Registration 6 $$CHK^VAFCDODA  (BLDEVN,BLDPID)^VAFCQRY  ($$DODD,$$DODF,$$DODOPT,$$LABE,$$NAMEERR,$$NAMEOBX,$$PHARA,$$PV2,$$RADE,$$SECLOG,$$SIG)^VAFCSB  EN1^VAFHLZEL  $$EN1^VAFHLZPD  $$SITE^VASITE  
Kernel 5 ^%ZTLOAD  $$FMADD^XLFDT  $$FMNAME^XLFNAME  $$PATCH^XPDUTL  $$LKUP^XUAF4  
Clinical Information Resource Network 4 PIDP^RGADTP1  PROCIN^RGADTP2  (EXC,START,STOP)^RGHLLOG  ($$ELIG,$$EMP,$$FREE,$$POS,$$SENSTIVE,$$TYPE,$$VETERAN,$$YESNO)^RGRSPARS  
Health Level Seven 4 $$MSG^HLCSUTL  ($$FMDATE,$$HLDATE)^HLFNC  GENACK^HLMA1  LINK^HLUTIL3  
Master Patient Index VistA 1 $$MPILINK^MPIFAPI  
VA FileMan 1 $$GET1^DID  

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: 12

Package Total Caller Graph
Clinical Information Resource Network 10 RG ADT-A01 2.4 CLIENT  RG ADT-A01 2.4 SERVER  RG ADT-A03 2.4 CLIENT  RG ADT-A03 2.4 SERVER  RG ADT-A04 2.4 CLIENT  RG ADT-A04 2.4 SERVER  RG ADT-A04 TRIGGER  RG ADT-A08 2.4 CLIENT  
RG ADT-A08 2.4 SERVER  RG ADT-A08 TRIGGER  
Kernel 1 ^ORD(101  
Master Patient Index VistA 1 MPIF ADT-A31 CLIENT  

Entry Points

Name Comments DBIA/ICR reference
ZSP ;;
EVN ;;
ROUTE ;
MSH ;
EVNP ;
ZFF ;;
MSA ;process the MSA segment
GENACK ;
PV2B() ;builder of PV2 segment ;**47
PID ;;
PD1 ;SET PD1 SEQ 3 TO BE PREFERRED FACILITY INSTEAD OF CMOR PATCH **45
INIT ;
PICK ;check routine for segment entry point
OLD() ; Return OBX segment to flag a record as "old"
PV1 ;;
PV2 ;processor of PV2 segment ;**47
RADE() ;BUILD OBX FOR LAST RADIOLOGY TEST DATE
RESP ;
OBX ;;
IN ;Process in the ADT A04/A08 (routing logic)
ZPD ;;
QUIT
LABE() ;BUILD OBX FOR LAST LAB TEST DATE
PROC ;processing entry point
PROCIN ;
ZEL ;;
ZEM ;;
ZCT ;;
RSP ;
PHARA() ;build obx to show active prescriptions

External References

Name Field # of Occurrence
^%ZTLOAD PROC+9
$$GET1^DID GENACK+10
$$MSG^HLCSUTL MSA+3
$$FMDATE^HLFNC EVN+4, OBX+4, OBX+17
$$HLDATE^HLFNC GENACK+6
GENACK^HLMA1 GENACK+14
LINK^HLUTIL3 GENACK+13
$$MPILINK^MPIFAPI ROUTE+3
PIDP^RGADTP1 MSA+10, PID+12
PROCIN^RGADTP2 PROCIN+1
EXC^RGHLLOG ROUTE+7, MSA+15
START^RGHLLOG ROUTE+6, MSA+14
STOP^RGHLLOG MSA+16
$$ELIG^RGRSPARS ZEL+10
$$EMP^RGRSPARS ZEM+2
$$FREE^RGRSPARS OBX+3, OBX+4, OBX+5, OBX+12, OBX+16, OBX+18, OBX+19, ZSP+2, ZEL+10, ZEL+11
, ZCT+2
$$POS^RGRSPARS ZSP+2
$$SENSTIVE^RGRSPARS OBX+4
$$TYPE^RGRSPARS ZEL+11
$$VETERAN^RGRSPARS ZEL+11
$$YESNO^RGRSPARS ZSP+2
$$CHK^VAFCDODA GENACK+10
BLDEVN^VAFCQRY EVNP+2
BLDPID^VAFCQRY PID+5
$$DODD^VAFCSB IN+23
$$DODF^VAFCSB IN+21
$$DODOPT^VAFCSB IN+24
$$LABE^VAFCSB LABE+6
$$NAMEERR^VAFCSB GENACK+7
$$NAMEOBX^VAFCSB IN+20
$$PHARA^VAFCSB PHARA+6
$$PV2^VAFCSB PV2B+5
$$RADE^VAFCSB RADE+6
$$SECLOG^VAFCSB IN+27
$$SIG^VAFCSB IN+19
EN1^VAFHLZEL ZEL+4
$$EN1^VAFHLZPD ZPD+1
$$SITE^VASITE PROC+8, IN+4, IN+5
$$FMADD^XLFDT ROUTE+11
$$FMNAME^XLFNAME EVN+5, OBX+21
$$PATCH^XPDUTL PHARA+3, LABE+3, RADE+3
$$LKUP^XUAF4 GENACK+12

Used in HL7 Interface

HL7 Protocol Name Call Tags
MPIF ADT-A31 CLIENT INIT
RG ADT-A01 2.4 SERVER RESP
RG ADT-A01 2.4 CLIENT INIT
RG ADT-A03 2.4 SERVER RESP
RG ADT-A03 2.4 CLIENT INIT
RG ADT-A04 2.4 SERVER RESP
RG ADT-A04 2.4 CLIENT INIT
RG ADT-A08 2.4 SERVER RESP
RG ADT-A08 2.4 CLIENT INIT

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(43 - [#43] GET1^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" PV2B+3, PHARA+4, LABE+4, RADE+4
^DPT - [#2] ROUTE+10
^XTMP("MPIF OLD RECORDS" MSA+17!, OLD+2
^XTMP("RG" ROUTE+11*, ROUTE+12*, MSA+18!

Label References

Name Line Occurrences
$$LABE IN+16
$$OLD IN+18
$$PHARA IN+17
$$PV2B IN+34
$$RADE IN+15
@( PICK+1
EVNP PID+4
GENACK INIT+5
IN INIT+3, PROC+5, RESP+2
MSH MSA+9
PICK IN+9
PROCIN INIT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY INIT+1~, PROC+1~, RESP+1~, MSA+1~, MSA+10, PID+12, PROCIN+1
ARRAY( PD1+5*, OBX+10*, OBX+12*, OBX+16*, OBX+18*, OBX+21*, OBX+22*, ZPD+2*, ZSP+2*, ZEL+10*
, ZEL+11*, ZCT+2*, ZEM+2*, GENACK+2
ARRAY("CMOR" PD1+5*
ARRAY("DFN" MSA+11, GENACK+2, GENACK+7
ARRAY("DLT" EVN+4*
ARRAY("DODEnteredBy" OBX+21*
ARRAY("DODLastEditedBy" OBX+22*
ARRAY("DODLastUpdated" OBX+18*
ARRAY("DODSource" OBX+16*
ARRAY("EVNAME" EVN+5*
ARRAY("EVR" EVN+4*
ARRAY("FLD" ZFF+2*
ARRAY("ICN" PROC+6, PID+7*, GENACK+2
ARRAY("SENDIN G SITE" , EVN+5*
ARRAY("SENSIT IVITY DATE" , OBX+4*, IVITY USER" , OBX+5*
ARRAY("SENSITIVITY" OBX+4*
ARRAY("TKOVRDOD" OBX+26*
ARRAY(1901 ZEL+11*
ARRAY(391 ZEL+11*
CNT IN+33*, MSA+1~, MSA+4*, MSA+6*, MSA+8*, EVN+1~, EVNP+2*, EVNP+3*, EVNP+4*, PID+1~
, PID+8*, PID+9*, PID+10*, ZEL+6~*, ZEL+7*, ZEL+8
COMP IN+1~, IN+2*, IN+4, IN+5, OBX+1~*, OBX+4, OBX+10, OBX+21, OBX+22
DA INIT+1~
DFN IN+1~, IN+19, IN+20, IN+21, IN+23, IN+24, IN+27, ROUTE+6, ROUTE+7, ROUTE+10
, ROUTE+11, ROUTE+12, RESP+1~, MSA+1~, MSA+11*, MSA+15, MSA+17, MSA+18, EVNP+2, PID+3*
, PID+5, ZPD+1, ZEL+3, ZEL+4, PROCIN+1, OLD+2
DIC INIT+1~, PROC+1~, IN+1~, RESP+1~
DIE INIT+1~
DLAYGO INIT+1~
DODD IN+1~, IN+23*
DODDISDT IN+1~
DODF IN+1~, IN+21*
DODIMPF GENACK+6, GENACK+15!
DODLEB OBX+15~, OBX+19*, OBX+20, OBX+21, OBX+22
DODLUPD OBX+15~, OBX+17*, OBX+18
DODNP IN+1~
DODOPT IN+1~, IN+24*
DR INIT+1~
DT ROUTE+11
EN IN+1~, IN+11*, IN+15*, IN+16*, IN+17*, IN+18*, IN+19*, IN+20*, IN+21*, IN+23*
, IN+24*, IN+27*, IN+29*, IN+33, IN+34*
ENT IN+1~, IN+2*, IN+11*, IN+13, IN+29, IN+30, IN+32, IN+33, IN+34, MSA+2*
, MSH+2*, EVN+2*, PID+3, PID+9, PID+10, PID+11*, PV1+1*, OBX+2*, ZPD+1*, ZSP+1*
, ZEL+3*, ZEL+7, ZEL+8*, ZCT+1*, ZEM+1*, ZFF+1*
ERR EVN+1~, EVNP+2
ERRSEG GENACK+1~, GENACK+7*, GENACK+11
EVN IN+1~, RESP+1~, EVN+1*, EVNP+2, EVNP+3, EVNP+4
EVN( EVNP+2, EVNP+3, EVNP+4
EVN(1 EVN+2*
EVNX EVNP+1~, EVNP+2*, EVNP+3, EVNP+4
EXIT MSA+1~, MSA+3*, MSA+4, MSA+10*
>> HL MSA+10, EVNP+2, PID+5, PID+12, PROCIN+1, GENACK+14
>> HL("ECH" IN+2, IN+6, MSH+3, EVN+5, PID+3, OBX+1
>> HL("EID" GENACK+14
>> HL("EIDS" GENACK+14
>> HL("ETN" PROC+2, ROUTE+2, ROUTE+4, ROUTE+11, ROUTE+12, MSA+18, EVNP+2, GENACK+5
>> HL("FS" MSA+3, MSH+4, EVN+4, EVN+5, PID+3, PID+7, PD1+5, OBX+3, OBX+4, OBX+5
, OBX+10, OBX+12, OBX+14, OBX+16, OBX+17, OBX+19, OBX+26, ZPD+2, ZSP+2, ZEL+10
, ZEL+11, ZCT+2, ZEM+2, ZFF+2, GENACK+10, OLD+2
>> HL("MID" PROC+3, PROC+4, GENACK+10
>> HL("Q" OBX+20, ZPD+2
>> HL("SAF" IN+4, IN+5
>> HL("SFN" OBX+10
HLA PROC+1~, GENACK+15!
HLA("HLA" GENACK+10*, GENACK+11*
HLA("HLS" IN+15*, IN+16*, IN+17*, IN+18*, IN+19*, IN+20*, IN+21*, IN+23*, IN+24*, IN+27*
, IN+29*, IN+33*, IN+34*
HLCOMP MSA+1~, PID+3~*, PID+7
>> HLL("LINKS" ROUTE+4*, GENACK+13*
>> HLMTIEN ROUTE+6, MSA+14
>> HLMTIENS GENACK+14
>> HLNEXT IN+7
>> HLNODE IN+7
>> HLNODE( IN+8
>> HLQUIT IN+7
>> HLRESLTA GENACK+14
ICN PROC+1~, PROC+6*, PROC+7, PROC+8
IEN GENACK+1~, GENACK+13*
LAB IN+1~, IN+16*
MPI ROUTE+3~*, ROUTE+4, ROUTE+5
MSG IN+1~, IN+7*, RESP+1~, MSA+2, MSA+3, MSH+2, MSH+4, EVN+2, EVN+4, EVN+5
, PID+3, PID+12, PD1+5, PV1+1, OBX+2, OBX+3, OBX+4, OBX+5, OBX+10, OBX+12
, OBX+14, OBX+16, OBX+17, OBX+19, OBX+26, ZPD+2, ZSP+1, ZSP+2, ZEL+3, ZEL+10
, ZEL+11, ZCT+1, ZCT+2, ZEM+1, ZEM+2, ZFF+1, ZFF+2
MSG( IN+8*
MSH INIT+1~, RESP+1~, MSH+1*
NAMECOMP IN+1~, IN+20*
OBXDONE IN+1~, IN+11*, IN+14, IN+28*
OLD IN+1~, IN+18*
PD1 PD1+1~
PHARM IN+1~, IN+17*
PID IN+1~, RESP+1~, PID+5
PID( PID+8, PID+9, PID+10
PID(1 PID+7
PIDX PID+1~, PID+8*, PID+9, PID+10
PV1 PROC+1~, IN+1~, RESP+1~
RAD IN+1~, IN+15*
REP INIT+1~, PROC+1~, IN+2*
RET PV2B+1~*, PV2B+2, PV2B+3, PHARA+1~*, PHARA+2, PHARA+3, PHARA+4, LABE+1~*, LABE+2, LABE+3
, LABE+4, RADE+1~*, RADE+2, RADE+3, RADE+4
RETURN MSA+1~
RETURN(1 MSA+4, MSA+5, MSA+6, MSA+7, MSA+8, MSA+9, MSA+10
RG IN+1~, RESP+1~, GENACK+1~, GENACK+13
RG( GENACK+13
RG(0 GENACK+13
RGAA MSA+1~, MSA+3*
RGADT PROC+1~, PROC+3*, PROC+4*
RGC IN+1~, IN+6*, RESP+1~, MSH+3*, MSH+4, PD1+5, OBX+3, OBX+5, OBX+10, OBX+12
, OBX+14, OBX+16, OBX+26
RGCNT GENACK+1~, GENACK+10*, GENACK+11*
RGCODE MSA+1~, MSA+3*, MSA+13
RGER INIT+1~, INIT+2*, RESP+1~, PROCIN+1, GENACK+2*, GENACK+6*, GENACK+10
RGERR ROUTE+1~, ROUTE+7*, ROUTE+10, MSA+1~, MSA+3*, MSA+15
RGEVNT INIT+1~, PROC+1~, PROC+2*, ROUTE+2*, RESP+1~, MSA+1~, MSH+4*
RGI IN+1~, IN+7*, RESP+1~, EVN+1
RGJ IN+1~, IN+8*, RESP+1~
RGLOCAL INIT+1~, PROC+1~, IN+4*, IN+5*, IN+34, RESP+1~, MSA+2, MSH+2, MSH+3, PV2B+2
, PHARA+2, LABE+2, RADE+2, EVN+2, EVN+3, PID+2, PID+12, PD1+2, PD1+5, PV1+1
, OBX+2, OBX+3, OBX+10, OBX+12, OBX+14, OBX+26, ZPD+1, ZPD+2, ZSP+1, ZSP+2
, ZEL+1, ZEL+9, ZCT+1, ZCT+2, ZEM+1, ZEM+2, ZFF+1, ZFF+2, PROCIN+1
RGLOG ROUTE+6~
RGMSG MSA+1~, MSA+3*!, MSA+6, MSA+7*, MSA+8!, MSA+10
RGMSG( MSA+6*
RGMTXT ROUTE+6~*, ROUTE+7
RGSITE INIT+1~, PROC+1~, RESP+1~, MSH+4*, GENACK+5, GENACK+12*, GENACK+13
RGX MSA+1~, MSA+4*, MSA+5, MSA+6, MSA+7, MSA+8
RGY MSA+1~, MSA+7*, MSA+9, MSA+10
SECLVL IN+1~, IN+27*
SG IN+1~, IN+7*, IN+9, RESP+1~, PICK+1
SIG IN+1~, IN+19*
SITE IN+1~, RESP+1~
SSNV OBX+1~, OBX+10*
SUBCOMP OBX+1~*, OBX+22
THLA IN+1~
THLA("HLS" IN+11, IN+13, IN+29, IN+30, IN+32, IN+33, IN+34, MSA+2*, MSH+2*, EVN+2*
, EVNP+3*, EVNP+4*, PID+3*, PID+9*, PID+10*, PV1+1*, OBX+2*, ZPD+1*, ZSP+1*, ZEL+3*
, ZEL+7*, ZEL+8*, ZCT+1*, ZEM+1*, ZFF+1*
TMP IN+1~, IN+34*
U ROUTE+4, ROUTE+5
VAFZEL ZEL+4~
VAFZEL( ZEL+6, ZEL+7, ZEL+8
X PV2B+3~*, PHARA+4~*, LABE+4~*, RADE+4~*
ZELX ZEL+6~*, ZEL+7, ZEL+8
ZTDESC PROC+9*, PROC+10!
ZTDTH PROC+9*, PROC+10!
ZTIO PROC+9*, PROC+10!
ZTRTN PROC+9*, PROC+10!
ZTSAVE PROC+10!
ZTSAVE("DFN" PROC+9*
ZTSAVE("HLA(""HLS""," PROC+9*
ZTSAVE("RGEVNT" PROC+9*

Marked Items

Name Field # of Occurrence
$T(@SG PICK+1, PICK+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in HL7 Interface |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All