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,KUM - 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: 18

Package Total Call Graph
Income Verification Match 7 ($$DEMO,DELETE)^IVMLDEM5  UPLOAD^IVMLDEM6  DELENT^IVMLDEMU  DEMBULL^IVMPREC6  $$CNTRCONV^IVMPREC8  $$LANGCK^IVMPREC9  ($$IEN,$$PT)^IVMUFNC4  
VA FileMan 7 $$FIND1^DIC  FILE^DICN  (,UPDATE)^DIE  ^DIK  $$GET1^DIQ  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: 5

Package Total Caller Graph
Income Verification Match 5 IVMLDEM6  IVMPREC6  IVMPREC8  IVMPREC9  ^IVM(301.92  

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
PID12 ;IVM*2.0*187 Called from IVMPREC8 to reset FORADDR
AUTOLANG(DFN) ;IVM*2.0*210
; application to automatically upload Language data
; Input: DFN - Patient IEN
; Output 0 - Not Uploaded; 1 - Uploaded
LANGCK(DFN) ;IVM*2.0*210 - Check if Language Date and Time needs to be uploaded or not.

External References

Name Field # of Occurrence
$$ADD^DGENDBS AUTOAUPM+40, AUTOLANG+35
$$FIND1^DIC AUTOAUPM+20, AUTOAUPM+30, AUTOLANG+33
FILE^DICN STORE+11, STORE2+6, AUTOAUPM+26, AUTOAUPM+34
^DIE AUTOEPC+51
UPDATE^DIE AUTOEPC+39
^DIK AUTOAUPM+14
$$GET1^DIQ AUTOLANG+34, LANGCK+13
EN^DIQ1 LOOK+9
^DIR PHONE+14
$$FMDATE^HLFNC ZCT+47, LANGCK+15
$$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, AUTOLANG+37, AUTOLANG+38
DEMBULL^IVMPREC6 STORE+17
$$CNTRCONV^IVMPREC8 ZCT+44
$$LANGCK^IVMPREC9 AUTOLANG+4
$$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
    • AUTOLANG+33
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
^DI(.85 - [#.85] FIND1^DIC,  GET1^DIQ
^DIC(10.3 - [#10.3] FIND1^DIC
^DPT - [#2] Classic Fileman Calls
2.07 GET1^DIQ

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, LANGCK+11, LANGCK+12
^HL(771.3 - [#771.3] AUTOEPC+15, AUTORINC+7, AUTOAUP+9, AUTOLANG+10
^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, AUTOLANG+11, AUTOLANG+14, AUTOLANG+16, AUTOLANG+23, AUTOLANG+24
^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, AUTOLANG+13, AUTOLANG+22

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
>> ADDRESS("CA" PID12+1
>> ADDRESS("P" PID12+3
>> ADDRESS("R" PID12+4
>> ADDRESS("VAB1" PID12+3
>> ADDRESS("VAB2" PID12+3
>> ADDRESS("VAB3" PID12+3
>> ADDRESS("VAB4" PID12+3
>> AUPFARY( STORE+3, AUTOAUP+22, AUTOAUP+26, PID12+1, PID12+2, PID12+4
CNTR AUTOEPC+46~, AUTOEPC+47*, AUTOEPC+49*
>> CONFADCT( AUTOAUPM+38
>> COUNTRY PID12+6*, PID12+7
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, AUTOLANG+35
DATA( AUTOAUPM+20*, AUTOAUPM+22*, AUTOAUPM+25, AUTOAUPM+29*, AUTOAUPM+30*, AUTOAUPM+33, AUTOAUPM+39*, AUTOLANG+20*, AUTOLANG+26*, AUTOLANG+31*
, AUTOLANG+32*, AUTOLANG+34*
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, AUTOLANG~, AUTOLANG+4, AUTOLANG+6, LANGCK~, LANGCK+11, LANGCK+12, LANGCK+13
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*
>> FORADDR PID12+7*
>> HLECH ZCT+31, ZCT+33, PID12+6
>> 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, AUTOLANG+8
IVM30192 AUTOAUP+6~, AUTOAUP+16*, AUTOAUP+33, AUTOAUPM~, AUTOAUPM+8
IVMADDR ZCT+1~, ZCT+30*, ZCT+31, ZCT+33, PID12+1*, PID12+3*, PID12+4*, PID12+5, PID12+6
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
IVMDA LANGCK+5~, LANGCK+7*, LANGCK+12*, LANGCK+13
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
, AUTOLANG+5~, AUTOLANG+10*, AUTOLANG+11*, AUTOLANG+14, AUTOLANG+16, AUTOLANG+23, AUTOLANG+24, AUTOLANG+37, AUTOLANG+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, AUTOLANG+5~, AUTOLANG+8*, AUTOLANG+9, AUTOLANG+11, AUTOLANG+14, AUTOLANG+16, AUTOLANG+23, AUTOLANG+24, AUTOLANG+37
, AUTOLANG+38
IVMDATE LANGCK+5~, LANGCK+11*, LANGCK+12
>> IVMDEMDA ZCT+50, STORE+3, STORE2+2, PID12+1, PID12+2, PID12+4
IVMDHCP ZCT+1~, ZCT+50*, ZCT+56, ZCT+59
IVMENDA AUTOLANG+5~, AUTOLANG+35
IVMENDA(1 AUTOLANG+6*
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, AUTOLANG+5~, AUTOLANG+7*, AUTOLANG+9, AUTOLANG+13, AUTOLANG+15
, AUTOLANG+17, AUTOLANG+22, AUTOLANG+25, AUTOLANG+35*, AUTOLANG+39
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, AUTOLANG+5~, AUTOLANG+13*, AUTOLANG+14, AUTOLANG+22*, AUTOLANG+23
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, AUTOLANG+5~, AUTOLANG+14*, AUTOLANG+15, AUTOLANG+16, AUTOLANG+19, AUTOLANG+23*, AUTOLANG+24
, AUTOLANG+38
IVMJLDT AUTOLANG+5~, AUTOLANG+19*, AUTOLANG+37
IVMLANGDT LANGCK+5~, LANGCK+7*, LANGCK+13*, LANGCK+14, LANGCK+15
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, AUTOLANG+5~, AUTOLANG+16*, AUTOLANG+17
, AUTOLANG+18, AUTOLANG+24*, AUTOLANG+25, AUTOLANG+27
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, AUTOLANG+5~
IVMRIVAL AUTORINC+3~, AUTORINC+15*, AUTORINC+16*, AUTORINC+17, AUTOLANG+5~, AUTOLANG+18*, AUTOLANG+20, AUTOLANG+27*, AUTOLANG+28*, AUTOLANG+29
, AUTOLANG+30*, AUTOLANG+31, AUTOLANG+32, AUTOLANG+33*, AUTOLANG+34
>> IVMSEG ZCT+10, ZCT+16, ZCT+19, ZCT+30, LANGCK+9, LANGCK+15
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