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

Package Total Call Graph
VA FileMan 6 $$FIND1^DIC  FILE^DICN  (,UPDATE)^DIE  ^DIK  EN^DIQ1  ^DIR  
Income Verification Match 5 ($$DEMO,DELETE)^IVMLDEM5  UPLOAD^IVMLDEM6  DELENT^IVMLDEMU  DEMBULL^IVMPREC6  ($$IEN,$$PT)^IVMUFNC4  
List Manager 1 FULL^VALM1  
Registration 1 $$ADD^DGENDBS  

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

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

Entry Points

Name Comments DBIA/ICR reference
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
$$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
$$IEN^IVMUFNC4 STORE+5
$$PT^IVMUFNC4 PHONE+7
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
^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] AUTOEPC+19, AUTOEPC+28, AUTORINC+9, AUTORINC+15, AUTOAUP+16, AUTOAUP+29

Label References

Name Line Occurrences
AUTOAUPM AUTOAUP+33
STORE2 STORE+4

Naked Globals

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

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*
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
>> IVMADFLG STORE+17
IVMCFLD AUTOEPC+9~, AUTOEPC+28*, AUTOEPC+30, AUTOEPC+34, AUTOEPC+38, AUTOAUP+6~, AUTOAUP+29*, AUTOAUP+34
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 STORE+3, STORE2+2
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
>> IVMFLG STORE+4, STORE+20*
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
IVMPTR AUTOEPC+9~
>> IVMRACE(2 AUTOAUPM+21
IVMRIFLD AUTORINC+3~, AUTORINC+15*, AUTORINC+17
IVMRIVAL AUTORINC+3~, AUTORINC+15*, AUTORINC+16*, AUTORINC+17
IVMVALUE AUTOAUPM~, AUTOAUPM+29
IVMXREF 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( 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 STORE+5*, STORE+12!, STORE2+2*, STORE2+7!, AUTOAUPM+25*, AUTOAUPM+26!, AUTOAUPM+33*, AUTOAUPM+34!
Y STORE+12!, STORE2+7!, LOOK+11*, AUTOEPC+9~, PHONE+15, AUTOAUP+6~
>> 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