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 ;2/18/22 10:22

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,PRON,PROND,SEXOR,SEXORD)^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

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

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

External References

Name Field # of Occurrence
^%ZTLOAD PROC+9
$$GET1^DID GENACK+10
$$MSG^HLCSUTL MSA+3
$$FMDATE^HLFNC EVN+4, OBX+11, OBX+27, OBX+43
$$HLDATE^HLFNC GENACK+6
GENACK^HLMA1 GENACK+15
LINK^HLUTIL3 GENACK+14
$$MPILINK^MPIFAPI ROUTE+3
PIDP^RGADTP1 MSA+10, PID+12
PROCIN^RGADTP2 PROCIN+1
EXC^RGHLLOG ROUTE+8, MSA+15
START^RGHLLOG ROUTE+7, MSA+14
STOP^RGHLLOG MSA+16
$$ELIG^RGRSPARS ZEL+10
$$EMP^RGRSPARS ZEM+2
$$FREE^RGRSPARS OBX+10, OBX+11, OBX+12, OBX+21, OBX+26, OBX+28, OBX+29, OBX+43, OBX+49, ZSP+2
, ZEL+10, ZEL+11, ZCT+2
$$POS^RGRSPARS ZSP+2
$$SENSTIVE^RGRSPARS OBX+11
$$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+24
$$DODF^VAFCSB IN+22
$$DODOPT^VAFCSB IN+25
$$LABE^VAFCSB LABE+6
$$NAMEERR^VAFCSB GENACK+7
$$NAMEOBX^VAFCSB IN+21
$$PHARA^VAFCSB PHARA+6
$$PV2^VAFCSB PV2B+5
$$RADE^VAFCSB RADE+6
$$SECLOG^VAFCSB IN+28
$$SIG^VAFCSB IN+20
PRON^VAFCSB IN+35
PROND^VAFCSB IN+36
SEXOR^VAFCSB IN+29
SEXORD^VAFCSB IN+30
EN1^VAFHLZEL ZEL+4
$$EN1^VAFHLZPD ZPD+1
$$SITE^VASITE PROC+8, IN+4, IN+5, ROUTE+5, GENACK+14
$$FMADD^XLFDT ROUTE+12
$$FMNAME^XLFNAME EVN+5, OBX+31
$$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+11
^XTMP("MPIF OLD RECORDS" MSA+17!, OLD+2
^XTMP("RG" ROUTE+12*, ROUTE+13*, MSA+18!

Label References

Name Line Occurrences
$$LABE IN+17
$$OLD IN+19
$$PHARA IN+18
$$PV2B IN+47
$$RADE IN+16
@( 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+18*, OBX+21*, OBX+26*, OBX+28*, OBX+31*, OBX+32*, 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+31*
ARRAY("DODLastEditedBy" OBX+32*
ARRAY("DODLastUpdated" OBX+28*
ARRAY("DODSource" OBX+26*
ARRAY("EVNAME" EVN+5*
ARRAY("EVR" EVN+4*
ARRAY("FLD" ZFF+2*
ARRAY("ICN" PROC+6, PID+7*, GENACK+2
ARRAY("Pronoun" OBX+49*
ARRAY("PronounDes" OBX+51*, OBX+52*
ARRAY("SENDIN G SITE" , EVN+5*
ARRAY("SENSIT IVITY DATE" , OBX+11*, IVITY USER" , OBX+12*
ARRAY("SENSITIVITY" OBX+11*
ARRAY("SexOr" OBX+43*
ARRAY("SexOrDes" OBX+45*, OBX+46*
ARRAY("TKOVRDOD" OBX+38*
ARRAY(1901 ZEL+11*
ARRAY(391 ZEL+11*
CNT IN+29~*, IN+31~, IN+32*, IN+33, IN+34, IN+35~*, IN+37~, IN+38*, IN+39, IN+40
, IN+46*, MSA+1~, MSA+4*, MSA+6*, MSA+8*, EVN+1~, EVNP+2*, EVNP+3*, EVNP+4*, PID+1~
, PID+8*, PID+9*, PID+10*, OBX+6~*, ZEL+6~*, ZEL+7*, ZEL+8
COMP IN+1~, IN+2*, IN+4, IN+5, OBX+1~, OBX+2*, OBX+10, OBX+11, OBX+12, OBX+18
, OBX+21, OBX+24, OBX+26, OBX+31, OBX+32, OBX+38, OBX+42, OBX+43, OBX+44, OBX+45
, OBX+46, OBX+49, OBX+50, OBX+51, OBX+52
DA INIT+1~
DFN IN+1~, IN+20, IN+21, IN+22, IN+24, IN+25, IN+28, IN+29, IN+30, IN+35
, IN+36, ROUTE+7, ROUTE+8, ROUTE+11, ROUTE+12, ROUTE+13, 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+24*
DODDISDT IN+1~
DODF IN+1~, IN+22*
DODIMPF GENACK+6, GENACK+16!
DODLEB OBX+25~, OBX+29*, OBX+30, OBX+31, OBX+32
DODLUPD OBX+25~, OBX+27*, OBX+28
DODNP IN+1~
DODOPT IN+1~, IN+25*
DR INIT+1~
DT ROUTE+12
EN IN+1~, IN+12*, IN+16*, IN+17*, IN+18*, IN+19*, IN+20*, IN+21*, IN+22*, IN+24*
, IN+25*, IN+28*, IN+29*, IN+30*, IN+33, IN+34, IN+35*, IN+36*, IN+39, IN+40
, IN+42*, IN+46, IN+47*
ENT IN+1~, IN+2*, IN+12*, IN+14, IN+42, IN+43, IN+45, IN+46, IN+47, MSA+2*
, MSH+2*, EVN+2*, PID+3, PID+9, PID+10, PID+11*, PV1+1*, OBX+5, OBX+6, OBX+7*
, 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+15
>> HL("ECH" IN+2, IN+6, MSH+3, EVN+5, PID+3, OBX+2
>> HL("EID" GENACK+15
>> HL("EIDS" GENACK+15
>> HL("ETN" PROC+2, ROUTE+2, ROUTE+5, ROUTE+12, ROUTE+13, MSA+18, EVNP+2, GENACK+5
>> HL("FS" MSA+3, MSH+4, EVN+4, EVN+5, PID+3, PID+7, PD1+5, OBX+10, OBX+11, OBX+12
, OBX+18, OBX+21, OBX+24, OBX+26, OBX+27, OBX+29, OBX+38, OBX+42, OBX+43, OBX+44
, OBX+45, OBX+46, OBX+49, OBX+50, OBX+51, OBX+52, 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+30, OBX+45, OBX+51, ZPD+2
>> HL("SAF" IN+4, IN+5
>> HL("SFN" OBX+18
HLA PROC+1~, GENACK+16!
HLA("HLA" GENACK+10*, GENACK+11*
HLA("HLS" IN+16*, IN+17*, IN+18*, IN+19*, IN+20*, IN+21*, IN+22*, IN+24*, IN+25*, IN+28*
, IN+29*, IN+33*, IN+34*, IN+35*, IN+39*, IN+40*, IN+42*, IN+46*, IN+47*
HLCOMP MSA+1~, PID+3~*, PID+7
>> HLL("LINKS" ROUTE+5*, GENACK+14*
>> HLMTIEN ROUTE+7, MSA+14
>> HLMTIENS GENACK+15
>> HLNEXT IN+7
>> HLNODE IN+7
>> HLNODE( IN+8
>> HLQUIT IN+7
>> HLRESLTA GENACK+15
ICN PROC+1~, PROC+6*, PROC+7, PROC+8
IEN GENACK+1~, GENACK+14*
LAB IN+1~, IN+17*
LVL IN+31~, IN+32*, IN+34*, IN+37~, IN+38*, IN+40*
MPI ROUTE+3~*, ROUTE+5, ROUTE+6
MSG IN+1~, IN+7*, IN+10!, 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+5, OBX+10, OBX+11, OBX+12, OBX+18
, OBX+21, OBX+24, OBX+26, OBX+27, OBX+29, OBX+38, OBX+42, OBX+43, OBX+44, OBX+45
, OBX+49, OBX+50, OBX+51, 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*, OBX+6, OBX+46, OBX+52
MSGX OBX+6~*, OBX+46~*, OBX+52~*
MSH INIT+1~, RESP+1~, MSH+1*
NAMECOMP IN+1~, IN+21*
OBXDONE IN+1~, IN+12*, IN+15, IN+41*
OLD IN+1~, IN+19*
PD1 PD1+1~
PHARM IN+1~, IN+18*
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
PRON IN+1~, IN+35
PRON( IN+35
PRON(0 IN+35
PROND IN+1~, IN+36
PROND( IN+38, IN+39, IN+40
PROND(0 IN+36
PV1 PROC+1~, IN+1~, RESP+1~
RAD IN+1~, IN+16*
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+14
RG( GENACK+14
RG(0 GENACK+14
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
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+8*, ROUTE+11, 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+47, 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+4, OBX+9, 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+7~
RGMSG MSA+1~, MSA+3*!, MSA+6, MSA+7*, MSA+8!, MSA+10
RGMSG( MSA+6*
RGMTXT ROUTE+7~*, ROUTE+8
RGSITE INIT+1~, PROC+1~, RESP+1~, MSH+4*, GENACK+5, GENACK+12*, GENACK+14
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+28*
SEXOR IN+1~, IN+29
SEXOR( IN+29
SEXOR(0 IN+29
SEXORD IN+1~, IN+30
SEXORD( IN+32, IN+33, IN+34
SEXORD(0 IN+30
SG IN+1~, IN+7*, IN+9, RESP+1~, PICK+1
SIG IN+1~, IN+20*
SITE IN+1~, RESP+1~
SSNV OBX+18~*
SUBCOMP OBX+1~, OBX+2*, OBX+32
THLA IN+1~
THLA("HLS" IN+12, IN+14, IN+42, IN+43, IN+45, IN+46, IN+47, MSA+2*, MSH+2*, EVN+2*
, EVNP+3*, EVNP+4*, PID+3*, PID+9*, PID+10*, PV1+1*, OBX+5*, OBX+6*, ZPD+1*, ZSP+1*
, ZEL+3*, ZEL+7*, ZEL+8*, ZCT+1*, ZEM+1*, ZFF+1*
TMP IN+1~, IN+47*
U ROUTE+5, ROUTE+6
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