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

Package: Income Verification Match

Routine: IVMPREC6


Information

IVMPREC6 ;ALB/KCL,BRM,CKN,TDM,PWC,LBD,KUM,JAM - PROCESS INCOMING (Z05 EVENT TYPE) HL7 MESSAGES ;09-02-2019 8:06AM

Source Information

Source file <IVMPREC6.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Income Verification Match 6 $$LOG^IVMPLOG  ACK^IVMPREC  (PID,RF1,ZAV,ZEM,ZGD,ZPD,ZTA)^IVMPREC8  (AUTOAUP,ZCT)^IVMPREC9  ($$CLEARF,EN)^IVMPRECA  $$PT^IVMUFNC4  
Health Level Seven 1 $$FMDATE^HLFNC  
VA FileMan 1 (,UPDATE)^DIE  

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

Package Total Caller Graph
Income Verification Match 8 IVMCMC  IVMLDEM6  IVMPREC3  IVMPREC8  IVMPREC9  IVMPRECA  IVMPRECZ  IVMPTRN8  
Enrollment Application System 1 EASPREC6  
Registration 1 DGENUPL  

Entry Points

Name Comments DBIA/ICR reference
EN ; - entry point to process HL7 patient demographic message
ENQ ; - cleanup variables
NEXT ; - get the next HL7 segment in the message from HL7 Transmission (#772) file
COMPARE(IVMSEG) ; - compare incoming HL7 segment/fields with DHCP fields
DEMBULL ; - build mail message for transmission to IVM mail group notifying
; them that patients with updated demographic data has been received
; from the IVM Center and may now be uploaded into DHCP.
INACTIVE(IVMDEMDA) ;Check if field is inactive in Demographic Upload
; Input -- IVMDEMDA IVM Demographic Upload Fields IEN
; Output -- 1=Yes and 0=No
RF1CHK(IVMRTN,IVMDA) ;does an RF1 segment exist in this message?
CKAUTO() ;
; Chect if message qualifies for an auto upload.
BLDPID(PIDTMP,IVMPID) ;Build IVMPID subscripted by sequence number
ADDRCHNG(DFN) ;Store Address Change Date/time, Source and site if necessary
EPCFLDS(EPCFARY,EPCDEL) ;
AUPBLD(AUPFARY,UPDAUPG) ; Set up array containing fields for auto upload.
AUPLST ; P1;P2
; P1 = Group Name (treat all entries as this group if present)
; P2 = .01 field(s) from 301.92 separated by '^'

External References

Name Field # of Occurrence
^DIE ADDRCHNG+7
UPDATE^DIE ADDRCHNG+9, ADDRCHNG+12
$$FMDATE^HLFNC EN+158, EN+160
$$LOG^IVMPLOG EN+58
ACK^IVMPREC EN+42, EN+61, EN+69, EN+78, EN+81, EN+92, EN+103, EN+121, EN+135
PID^IVMPREC8 COMPARE+18
RF1^IVMPREC8 COMPARE+28
ZAV^IVMPREC8 COMPARE+22
ZEM^IVMPREC8 COMPARE+27
ZGD^IVMPREC8 COMPARE+24
ZPD^IVMPREC8 COMPARE+19
ZTA^IVMPREC8 COMPARE+20
AUTOAUP^IVMPREC9 EN+164
ZCT^IVMPREC9 COMPARE+26
$$CLEARF^IVMPRECA EN+71, EN+93, EN+97, EN+107, EN+109, EN+150, EN+151
EN^IVMPRECA EN+35
$$PT^IVMUFNC4 DEMBULL+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] CKAUTO+6
^IVM(301.5 - [#301.5] EN+57
^IVM(301.92 - [#301.92] COMPARE+13, COMPARE+14, INACTIVE+3, CKAUTO+3, EPCFLDS+4, EPCFLDS+5, EPCFLDS+6, EPCFLDS+8, AUPBLD+8
^TMP($J EN+27, NEXT+2, RF1CHK+2, ADDRCHNG+3, ADDRCHNG+4, ADDRCHNG+5, ADDRCHNG+13!

Label References

Name Line Occurrences
$$CKAUTO DEMBULL+5
$$INACTIVE COMPARE+15
$$RF1CHK EN+148, EN+154
AUPBLD EN+39
COMPARE EN+65, EN+74, EN+86, EN+94, EN+98, EN+110, EN+125, EN+131, EN+136, EN+139
EN+153
EPCFLDS EN+38
NEXT EN+41, EN+44, EN+68, EN+77, EN+90, EN+96, EN+119, EN+127, EN+133, EN+138
EN+149

Naked Globals

Name Field # of Occurrence
^( EN+27, NEXT+2, RF1CHK+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDRESS ENQ+1!
ADDRESS("CA" EN+157, EN+159
AUPDA AUPBLD+3~, AUPBLD+8*, AUPBLD+9
AUPFARY EN+39, AUPBLD~
AUPFARY( AUPBLD+9*
AUPFLST AUPBLD+3~, AUPBLD+5*, AUPBLD+6, AUPBLD+7
AUPGRP AUPBLD+3~, AUPBLD+5*, AUPBLD+9, AUPBLD+10
AUPPCE AUPBLD+3~, AUPBLD+6*, AUPBLD+7
AUPSGSQ AUPBLD+3~, AUPBLD+7*, AUPBLD+8
AUPSTR AUPBLD+3~, AUPBLD+4*, AUPBLD+5
AUTO CKAUTO+2~, CKAUTO+3*, CKAUTO+5*, CKAUTO+7*, CKAUTO+9
C BLDPID+1~, BLDPID+3*, BLDPID+4, BLDPID+8, BLDPID+10, BLDPID+11
COMP EN+2~
DA ENQ+1!, ADDRCHNG+6*, ADDRCHNG+7!
DFN EN+50*, EN+57, EN+58, EN+164, ENQ+1!, DEMBULL+7, CKAUTO+6, ADDRCHNG~, ADDRCHNG+6, ADDRCHNG+9
, ADDRCHNG+12
DGENUPLD EN+2~, EN+20*, EN+58*, ENQ+1!
DGRUGA08 EN+2~
DIE ADDRCHNG+6*, ADDRCHNG+7!
DOD CKAUTO+2~, CKAUTO+6*, CKAUTO+7
DODSEG EN+2~, EN+65, EN+86, EN+94, EN+98, EN+125, EN+131, EN+136, EN+139, ENQ+1!
, EPCFLDS+3
DR ENQ+1!, ADDRCHNG+6*, ADDRCHNG+7!
DT EN+58
EPCDEL EN+38, ENQ+1!, EPCFLDS~
EPCDEL("CPH" EPCFLDS+10*
EPCDEL("EAD" EPCFLDS+11*
EPCDEL("PNO" EPCFLDS+9*
EPCFARY EN+38, ENQ+1!, EPCFLDS~
EPCFARY("CPH" EPCFLDS+5*
EPCFARY("EAD" EPCFLDS+6*
EPCFARY("PHH" EPCFLDS+8*
EPCFARY("PNO" EPCFLDS+4*
>> FDA(2 ADDRCHNG+9*, ADDRCHNG+12*
GUARSEG EN+2~, EN+65, EN+86, EN+94, EN+98, EN+125, EN+131, EN+136, EN+139, ENQ+1!
, EPCFLDS+3
>> HLECH EN+109, EN+151
HLERR EN+28!, EN+35, EN+42*, EN+60*, EN+65, EN+69*, EN+78*, EN+81*, EN+92*, EN+103*
EN+121*, EN+135*
>> HLFS EN+32, EN+71, EN+83, EN+93, EN+97, EN+107, EN+109, EN+150, EN+151, EN+152
, COMPARE+7, COMPARE+10
>> HLMID EN+32*
>> HLQ EN+83
>> I EN+44*, EN+148*, AUPBLD+4*
>> IVM3015 EN+57*, EN+58*, EN+59
IVMADDR ENQ+1!
IVMADFLG EN+25*, ENQ+1!
IVMALADT EN+4~
IVMALADT( EN+11*
IVMALADT("VACAA" EN+15*
IVMALADT("VACAC" EN+16*
IVMALADT("VACAE" EN+14*
IVMALADT("VACAM" EN+17*
IVMALADT("VACAO" EN+18*
IVMCAFG EN+2~, EN+156*
IVMCAVL EN+2~, EN+156*, EN+163*
IVMCEDT EN+2~, EN+156*, EN+159*, EN+160*
IVMCMAST EN+2~
>> IVMCNTR EN+170, DEMBULL+18*, DEMBULL+19
IVMCSDT EN+2~, EN+156*, EN+157*, EN+158*, EN+161
IVMDA EN+27*, EN+68*, EN+133*, EN+140*, EN+148, EN+154, ENQ+1!, NEXT+2*, RF1CHK~, RF1CHK+2
IVMDEMDA COMPARE+14*, COMPARE+15, INACTIVE~, INACTIVE+3, CKAUTO+4
IVMDFN EN+50, ENQ+1!
IVMDHCP ENQ+1!
IVMFIELD ADDRCHNG+2~, ADDRCHNG+4*, ADDRCHNG+5, ADDRCHNG+6, ADDRCHNG+9, ADDRCHNG+12
IVMFLAG ENQ+1!
IVMFLD ENQ+1!, CKAUTO+5, CKAUTO+7
>> IVMFLG EN+25*, EN+165*
IVMI CKAUTO+2~, CKAUTO+3*, CKAUTO+4
IVMPHDFG EN+5~*, ENQ+1!
IVMPID ENQ+1!, BLDPID~
IVMPID( BLDPID+5*, BLDPID+6*, BLDPID+9*, BLDPID+12*, BLDPID+13*
IVMPIECE ENQ+1!
IVMPMAST EN+2~, EN+6*, ENQ+1!
>> IVMPTID DEMBULL+7*, DEMBULL+8, DEMBULL+19
IVMRACE ENQ+1!
IVMRTN EN+27, EN+148, EN+154, NEXT+2, RF1CHK~, RF1CHK+2
IVMSEG EN+27*, EN+32, EN+41, EN+44, EN+64*, EN+65, EN+68, EN+71*, EN+74, EN+77
EN+80, EN+83*, EN+86, EN+91, EN+93*, EN+94, EN+96, EN+97*, EN+98, EN+102
EN+107*, EN+109*, EN+110, EN+120, EN+125, EN+127, EN+131, EN+134, EN+136, EN+138
EN+139, EN+150*, EN+151*, EN+152, EN+153, ENQ+1!, NEXT+2*, COMPARE~, COMPARE+7, COMPARE+10*
IVMSTART ENQ+1!, COMPARE+7*, COMPARE+18, COMPARE+19, COMPARE+20, COMPARE+22, COMPARE+24, COMPARE+26, COMPARE+27, COMPARE+28
IVMTEXT EN+170!
IVMTEXT( DEMBULL+19*
IVMTEXT(1 DEMBULL+9*
IVMTEXT(10 DEMBULL+17*
IVMTEXT(2 DEMBULL+10*
IVMTEXT(3 DEMBULL+11*
IVMTEXT(4 DEMBULL+12*
IVMTEXT(5 DEMBULL+13*
IVMTEXT(7 DEMBULL+14*
IVMTEXT(8 DEMBULL+15*
IVMTEXT(9 DEMBULL+16*
IVMTSTPT EN+29*, ENQ+1!
IVMVALUE ADDRCHNG+2~, ADDRCHNG+5*, ADDRCHNG+9, ADDRCHNG+12
IVMXREF ENQ+1!, COMPARE+7*, COMPARE+13*, COMPARE+14, COMPARE+18, COMPARE+19, COMPARE+20, COMPARE+22, COMPARE+24, COMPARE+26
, COMPARE+27, COMPARE+28
L BLDPID+1~, BLDPID+3*
>> MSGID EN+32*
>> MULTDONE EN+95*, EN+96*, EN+126*, EN+127*, EN+137*, EN+138*
MULTIDONE EN+4~
N BLDPID+1~, BLDPID+2*, BLDPID+3*
PIDSTR ENQ+1!
PIDTMP BLDPID~
PIDTMP( BLDPID+3
>> QFLG EN+148*, EN+152*, EN+154*
RF1 RF1CHK+1~, RF1CHK+2*, RF1CHK+3
STR BLDPID+1~, BLDPID+2*, BLDPID+5, BLDPID+6, BLDPID+7*, BLDPID+9*, BLDPID+10*, BLDPID+12, BLDPID+13
TELECOM ENQ+1!
TEXT BLDPID+1~, BLDPID+3*
U INACTIVE+3, CKAUTO+6
UPDAUP EN+164, ENQ+1!
UPDAUPG EN+39, EN+164, AUPBLD~
UPDAUPG( AUPBLD+10*
UPDEPC ENQ+1!
UPDEPC("CPH" EN+147*
UPDEPC("EAD" EN+147*
UPDEPC("PHH" EN+147*
UPDEPC("PNO" EN+147*
UPDEPC("SAD" EN+147*
VAFCA08 EN+2~, EN+23*
X1 BLDPID+1~, BLDPID+2*, BLDPID+5, BLDPID+6, BLDPID+7*, BLDPID+9, BLDPID+12, BLDPID+13
X2 BLDPID+1~, BLDPID+2*, BLDPID+5*, BLDPID+7*, BLDPID+9*, BLDPID+12*
XIVMA EN+4~, EN+11*
XMSUB EN+170!, DEMBULL+8*
>> XREP EN+95*, EN+126*, EN+137*
ZEMADRUP EN+28!

Marked Items

Name Field # of Occurrence
$T(AUPLST+I AUPBLD+4
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