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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IVMPREC9

Package: Income Verification Match

Routine: IVMPREC9


Information

IVMPREC9 ;ALB/KCL,BRM,CKN,TDM,KUM,JAM - PROCESS INCOMING (Z05 EVENT TYPE) HL7 MESSAGES (CON'T) ;09-05-2017 10:03am

Source Information

Source file <IVMPREC9.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Income Verification Match 6 ($$DEMO,DELETE)^IVMLDEM5  UPLOAD^IVMLDEM6  DELENT^IVMLDEMU  DEMBULL^IVMPREC6  $$CNTRCONV^IVMPREC8  ($$IEN,$$PT)^IVMUFNC4  
VA FileMan 6 $$FIND1^DIC  FILE^DICN  (,UPDATE)^DIE  ^DIK  EN^DIQ1  ^DIR  
Registration 2 $$ADD^DGENDBS  ZIPIN^VAFADDR  
Health Level Seven 1 ($$FMDATE,$$FMNAME)^HLFNC  
List Manager 1 FULL^VALM1  

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

Package Total Caller Graph
Income Verification Match 3 IVMLDEM6  IVMPREC6  IVMPREC8  

Entry Points

Name Comments DBIA/ICR reference
ZCT ; - compare ZCT with DHCP ; IVM*2.0*192;JAM ; Tag ZCT moved from IVMPREC8
STORE ; - store HL7 fields that have a different value than DHCP fields in
; the IVM Patient (#301.5) file (#301.511) multiple for uploading
STORE2 ;
; - X as the record in the IVM Demo Upload Fields (#301.92) file
LOOK ; Find the current DHCP field value.
; Input: DR -- Field number of the field in file #2
; DFN -- Pointer to the patient in file #2
; Output: Y -- Internal value of field
AUTOEPC(DFN,UPDEPC) ;
; this functionality is copied from IVMLDEM6 and modified to allow
; an automated upload of patient communications information
; Input: DFN - as patient IEN
; UPDEPC - array contains flag for update/noupdate for all
; communication types.
; Output: IVMFLAG - 1 if communications fields updated
; 0 if communications fields not updated
AUTORINC(DFN) ;
; application to automatically upload Rated Incompetent data
; Input: DFN - Patient IEN
PHONE ; - ask user to delete phone # [Residence] from Patient (#2) file
; This tag is moved here from IVMLDEM6 due to routine size limit
AUTOAUP(DFN,UPDAUP,UPDAUPG) ;
; automated upload of misc information
; Input: DFN - patient IEN
; UPDAUP - array contains fields for auto-upload
; UPDAUPG - array contains field group flag for auto-upload
AUTOAUPM(DFN,IVM30192,IVMVALUE) ;
; Input: DFN - as patient IEN
; IVM30192 - as '0' node of the 301.92 entry
; IVMVALUE - as the value of the field

External References

Name Field # of Occurrence
$$ADD^DGENDBS AUTOAUPM+40
$$FIND1^DIC AUTOAUPM+20, AUTOAUPM+30
FILE^DICN STORE+11, STORE2+6, AUTOAUPM+26, AUTOAUPM+34
^DIE AUTOEPC+51
UPDATE^DIE AUTOEPC+39
^DIK AUTOAUPM+14
EN^DIQ1 LOOK+9
^DIR PHONE+14
$$FMDATE^HLFNC ZCT+47
$$FMNAME^HLFNC ZCT+24
$$DEMO^IVMLDEM5 AUTOAUP+37
DELETE^IVMLDEM5 AUTOAUP+38
UPLOAD^IVMLDEM6 AUTOEPC+30, AUTORINC+17, AUTOAUP+34
DELENT^IVMLDEMU AUTOEPC+43, AUTORINC+19, AUTOAUP+35
DEMBULL^IVMPREC6 STORE+17
$$CNTRCONV^IVMPREC8 ZCT+44
$$IEN^IVMUFNC4 STORE+5
$$PT^IVMUFNC4 PHONE+7
ZIPIN^VAFADDR ZCT+41
FULL^VALM1 PHONE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PHONE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PHONE+4
Function Call: WRITE
  • Prompt: !!,"Patient's Phone Number [Residence] has ",$S(Y:"",1:"not "),"been deleted."
  • Line Location: PHONE+15
Routine Call
  • DIC
  • Line Location:
    • AUTOAUPM+20
    • AUTOAUPM+30
Routine Call
  • DIE
  • Line Location:
    • AUTOEPC+51
Routine Call
  • DIE
  • Line Location:
    • AUTOEPC+39
Routine Call
  • DIR
  • Line Location:
    • PHONE+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(10.3 - [#10.3] FIND1^DIC
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( AUTOAUPM+9
^DIC(5 - [#5] ZCT+40
^DPT - [#2] PHONE+8, PHONE+15*, AUTOAUPM+14
^HL(771.3 - [#771.3] AUTOEPC+15, AUTORINC+7, AUTOAUP+9
^IVM(301.5 - [#301.5] STORE+9, STORE+23, STORE2+3, AUTOEPC+16, AUTOEPC+20, AUTOEPC+23, AUTORINC+8, AUTORINC+10, AUTORINC+13, AUTOAUP+10
, AUTOAUP+24, AUTOAUP+25
^IVM(301.9 - [#301.9] STORE+17
^IVM(301.92 - [#301.92] ZCT+50, AUTOEPC+19, AUTOEPC+28, AUTORINC+9, AUTORINC+15, AUTOAUP+16, AUTOAUP+29

Label References

Name Line Occurrences
AUTOAUPM AUTOAUP+33
STORE ZCT+45, ZCT+56
STORE2 STORE+4

Naked Globals

Name Field # of Occurrence
^(0 STORE+9*, STORE2+3*
^(1 ZCT+50

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AUPFARY( STORE+3, AUTOAUP+22, AUTOAUP+26
CNTR AUTOEPC+46~, AUTOEPC+47*, AUTOEPC+49*
>> CONFADCT( AUTOAUPM+38
CTYP AUTOEPC+9~, AUTOEPC+26*, AUTOEPC+27, AUTOEPC+41*, AUTOEPC+42
CTYPE AUTOEPC+46~, AUTOEPC+48*, AUTOEPC+49
DA LOOK+9*, AUTOEPC+46~, AUTOEPC+50*, AUTOEPC+51!, AUTOAUPM+7~, AUTOAUPM+14*, AUTOAUPM+26!, AUTOAUPM+34!
DA(1 STORE+8*, STORE+9, STORE+10, STORE+22, STORE+23*, STORE2+3, AUTOAUPM+13*, AUTOAUPM+25*, AUTOAUPM+33*
DA(2 STORE+22*, STORE2+3, STORE2+4
DATA AUTOAUPM+7~, AUTOAUPM+40
DATA( AUTOAUPM+20*, AUTOAUPM+22*, AUTOAUPM+25, AUTOAUPM+29*, AUTOAUPM+30*, AUTOAUPM+33, AUTOAUPM+39*
DATA(1 AUTOAUPM+37*
DD STORE+11!, STORE2+6!
DDINFO AUTOAUPM+7~, AUTOAUPM+9*, AUTOAUPM+10
DDMFLD AUTOAUPM+7~, AUTOAUPM+10*, AUTOAUPM+19, AUTOAUPM+28, AUTOAUPM+36, AUTOAUPM+40
DDMNOD AUTOAUPM+7~, AUTOAUPM+10*, AUTOAUPM+13, AUTOAUPM+14
DFLG AUTOEPC+9~, AUTOEPC+21*, AUTOEPC+41, AUTOEPC+42*, AUTOEPC+43
DFN LOOK+9, LOOK+11, AUTOEPC~, AUTOEPC+12, AUTOEPC+30, AUTOEPC+39, AUTOEPC+50, AUTORINC~, AUTORINC+17, PHONE+7
PHONE+8, PHONE+15, AUTOAUP~, AUTOAUP+7, AUTOAUP+33, AUTOAUP+34, AUTOAUPM~, AUTOAUPM+13, AUTOAUPM+14, AUTOAUPM+17
, AUTOAUPM+25, AUTOAUPM+33
DGENDA AUTOAUPM+7~, AUTOAUPM+40
DGENDA(1 AUTOAUPM+17*
DIC STORE+10*, STORE+12!, STORE2+4*, STORE2+7!, LOOK+9*, LOOK+12!, AUTOAUPM+25*, AUTOAUPM+26!, AUTOAUPM+33*, AUTOAUPM+34!
DIC("DR" STORE+7!, STORE2+5*
DIC(0 STORE+10*, STORE2+4*, AUTOAUPM+25*, AUTOAUPM+33*
DIE AUTOEPC+46~, AUTOEPC+50*, AUTOEPC+51!
DIK AUTOAUPM+7~, AUTOAUPM+13*
DINUM AUTOAUPM+25*, AUTOAUPM+26!, AUTOAUPM+33*, AUTOAUPM+34!
DIQ LOOK+9*, LOOK+12!
DIQ(0 LOOK+7*, LOOK+8
DIR PHONE+14!
DIR("?" PHONE+10*, PHONE+11*, PHONE+12*
DIR("A" PHONE+3*, PHONE+4*, PHONE+5*, PHONE+6*, PHONE+7*, PHONE+8*, PHONE+9*
DIR("B" PHONE+13*
DIR(0 PHONE+13*
DLAYGO STORE+10*, STORE+12!, STORE2+5*, STORE2+7!
DO STORE+11!, STORE2+6!, AUTOAUPM+26!, AUTOAUPM+34!
DR LOOK+11, LOOK+12!, AUTOEPC+46~, AUTOEPC+47*, AUTOEPC+49*, AUTOEPC+51!
>> EPCDEL AUTOEPC+45
>> EPCDEL( AUTOEPC+48, AUTOEPC+49
>> EPCFARY( AUTOEPC+41, AUTOEPC+42
>> FDA(2 AUTOEPC+39*
>> HLECH ZCT+31, ZCT+33
>> HLFS ZCT+10, ZCT+16, ZCT+19, ZCT+30
I LOOK+5~, AUTOEPC+49*
IVM LOOK+12!
IVM(2 LOOK+11
>> IVM3015 STORE+8, AUTOEPC+13, AUTORINC+5, AUTOAUP+8
IVM30192 AUTOAUP+6~, AUTOAUP+16*, AUTOAUP+33, AUTOAUPM~, AUTOAUPM+8
IVMADDR ZCT+1~, ZCT+30*, ZCT+31, ZCT+33
IVMADFLG ZCT+1~, ZCT+2*, ZCT+19, ZCT+31*, ZCT+45, STORE+17
IVMCFLD AUTOEPC+9~, AUTOEPC+28*, AUTOEPC+30, AUTOEPC+34, AUTOEPC+38, AUTOAUP+6~, AUTOAUP+29*, AUTOAUP+34
IVMCNTRY ZCT+1~, ZCT+33*, ZCT+35, ZCT+44
IVMCVAL AUTOEPC+9~, AUTOEPC+28*, AUTOEPC+30, AUTOEPC+35, AUTOAUP+6~, AUTOAUP+30*, AUTOAUP+33, AUTOAUP+34
IVMDA1 AUTOEPC+15*, AUTOEPC+16*, AUTOEPC+17, AUTOEPC+20, AUTOEPC+23, AUTOEPC+43, AUTORINC+3~, AUTORINC+7*, AUTORINC+8*, AUTORINC+10
, AUTORINC+13, AUTORINC+19, AUTOAUP+6~, AUTOAUP+9*, AUTOAUP+10*, AUTOAUP+24, AUTOAUP+25, AUTOAUP+35, AUTOAUP+37, AUTOAUP+38
IVMDA2 AUTOEPC+13*, AUTOEPC+14, AUTOEPC+16, AUTOEPC+20, AUTOEPC+23, AUTOEPC+43, AUTORINC+3~, AUTORINC+5*, AUTORINC+6, AUTORINC+8
, AUTORINC+10, AUTORINC+13, AUTORINC+19, AUTOAUP+6~, AUTOAUP+8*, AUTOAUP+10, AUTOAUP+24, AUTOAUP+25, AUTOAUP+35, AUTOAUP+37
, AUTOAUP+38
>> IVMDEMDA ZCT+50, STORE+3, STORE2+2
IVMDHCP ZCT+1~, ZCT+50*, ZCT+56, ZCT+59
IVMFLAG AUTOEPC+9~, AUTOEPC+10*, AUTOEPC+12, AUTOEPC+14, AUTOEPC+17, AUTOEPC+30*, AUTOEPC+52, AUTORINC+3~, AUTORINC+4*, AUTORINC+6
, AUTORINC+9, AUTORINC+11, AUTORINC+14, AUTORINC+17*, AUTORINC+20
IVMFLD ZCT+1~, ZCT+19*, ZCT+21*, ZCT+24*, ZCT+26*, ZCT+31*, ZCT+37*, ZCT+39*, ZCT+40*, ZCT+41*
ZCT+42*, ZCT+43*, ZCT+44*, ZCT+47*, ZCT+53*, ZCT+56, ZCT+59
>> IVMFLG STORE+4, STORE+20*
IVMFOR ZCT+1~, ZCT+6*, ZCT+30
IVMFORAD ZCT+1~, ZCT+35*, ZCT+39, ZCT+42, ZCT+43
IVMI AUTOEPC+9~, AUTOEPC+19*, AUTOEPC+20, AUTORINC+3~, AUTORINC+9*, AUTORINC+10, AUTOAUP+6~, AUTOAUP+12*, AUTOAUP+16, AUTOAUP+22
, AUTOAUP+24
IVMJ AUTOEPC+9~, AUTOEPC+20*, AUTOEPC+23, AUTOEPC+43, AUTORINC+3~, AUTORINC+10*, AUTORINC+11, AUTORINC+13, AUTORINC+19, AUTOAUP+6~
, AUTOAUP+24*, AUTOAUP+25, AUTOAUP+35
IVMNODE AUTOEPC+9~, AUTOEPC+23*, AUTOEPC+24, AUTOEPC+27, AUTOEPC+28, AUTOEPC+42, AUTORINC+3~, AUTORINC+13*, AUTORINC+14, AUTORINC+15
, AUTOAUP+6~, AUTOAUP+25*, AUTOAUP+26*, AUTOAUP+27*, AUTOAUP+28, AUTOAUP+29, AUTOAUP+30
IVMOUTTY LOOK+5~, LOOK+8*, LOOK+11
IVMPIECE ZCT+1~, ZCT+3*, ZCT+9, ZCT+16, ZCT+19, ZCT+30*, ZCT+31, ZCT+39, ZCT+40, ZCT+41
ZCT+42, ZCT+43, ZCT+44
IVMPTR AUTOEPC+9~
>> IVMRACE(2 AUTOAUPM+21
IVMRIFLD AUTORINC+3~, AUTORINC+15*, AUTORINC+17
IVMRIVAL AUTORINC+3~, AUTORINC+15*, AUTORINC+16*, AUTORINC+17
>> IVMSEG ZCT+10, ZCT+16, ZCT+19, ZCT+30
IVMVALUE AUTOAUPM~, AUTOAUPM+29
IVMXREF ZCT+3, ZCT+6, ZCT+24, ZCT+28, ZCT+47, ZCT+58, AUTOAUP+6~, AUTOAUP+16*, AUTOAUP+17, AUTOAUP+18
, AUTOAUP+19, AUTOAUP+27
MFIL AUTOAUPM+7~, AUTOAUPM+8*, AUTOAUPM+9
MFLD AUTOAUPM+7~, AUTOAUPM+8*, AUTOAUPM+9
MULFIL AUTOAUP+6~, AUTOAUPM+7~
MULTFLG AUTOAUP+6~, AUTOAUP+15*, AUTOAUP+17*, AUTOAUP+18*, AUTOAUP+19*, AUTOAUP+33, AUTOAUP+34
SITEFLD AUTOEPC+9~, AUTOEPC+38*, AUTOEPC+39
SUB AUTOAUPM+7~, AUTOAUPM+21*, AUTOAUPM+22, AUTOAUPM+38*, AUTOAUPM+39
UFLG AUTOAUP+6~, AUTOAUP+22*, AUTOAUP+32
UPDAUP AUTOAUP~
UPDAUP( STORE+3*, AUTOAUP+12
UPDAUPG AUTOAUP~
UPDAUPG( ZCT+59*, AUTOAUP+22
UPDEPC AUTOEPC~
UPDEPC( AUTOEPC+26, AUTOEPC+27
UPDT AUTOEPC+9~, AUTOEPC+21*, AUTOEPC+26, AUTOEPC+27*, AUTOEPC+30, AUTOEPC+34
VAL AUTOEPC+46~, AUTOEPC+47*
X ZCT+41*, STORE+5*, STORE+12!, STORE2+2*, STORE2+7!, AUTOAUPM+25*, AUTOAUPM+26!, AUTOAUPM+33*, AUTOAUPM+34!
Y ZCT+50, STORE+12!, STORE2+7!, LOOK+11*, AUTOEPC+9~, PHONE+15, AUTOAUP+6~
ZCTTYP ZCT+1~, ZCT+9*, ZCT+10, ZCT+59
>> ZEMADRUP( AUTOAUP+27
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All