IVMLDEM6 ;ALB/KCL,BRM,PHH,CKN,LBD,SJD - IVM DEMOGRAPHIC UPLOAD FILE ADDRESS ;09/02/19 8:24pm
Source file <IVMLDEM6.m>
| Package | Total | Call Graph |
|---|---|---|
| Income Verification Match | 5 | ($$DEMO,DELETE)^IVMLDEM5 ($$ADRDTCK,$$PHNDTCK)^IVMLDEM9 (DELENT,RESET)^IVMLDEMU (ADDRCHNG,DEMBULL)^IVMPREC6 PHONE^IVMPREC9 |
| Registration | 2 | (GETPRIOR,GETUPDTS,UPDADDLG)^DGADDUTL EN^DGCLEAR |
| VA FileMan | 2 | (,FILE,UPDATE)^DIE ^DIR |
| Kernel | 1 | $$NOW^XLFDT |
| Pharmacy Data Management | 1 | $$EN^PSSRXACT |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Income Verification Match | 4 | IVMLDEM4 IVMLDEM9 IVMPREC8 IVMPREC9 |
| Registration | 1 | DGRSTBAD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADDR(DFN,IVMDA2,IVMDA1,IVMDA,IVMPPICK) | ; - function to check if uploadable field
; is an address field and return a flag |
|
| ASK | ||
| ASK1 | ; - phone selected to be uploaded
|
|
| LOOP | ;
|
|
| ADDRQ | ; - return --> 1 if uploadable field is an address field
; --> 0 if uploadable field is not an address field |
|
| UPLOAD(DFN,IVMFIELD,IVMVALUE) | ; - file address fields received from IVM
|
|
| PHONE | ; - ask user to delete phone # [Residence] from Patient (#2) file
|
|
| AUTOADDR(DFN,IVMPPICK,NOUPDT,NOPHUP) | ;
; this functionality is copied from above and modified to allow ; an automated upload of patient address information as stipulated ; in the business requirements for Address Indexing to support GMT |
|
| ADDRDT(DFN,IVMDA2,IVMDA1) | ;
; - validate Address Change Dt/Tm before filing ; if incoming address is accepted and the change date is older ; than what's on file, then use today's date for Addr Chg Dt/Tm |
|
| PHONDT(DFN,IVMDA2,IVMDA1) | ;
; - validate Residence Number Change Dt/Tm before filing ; if incoming phone number is accepted and the change date is ; older than what's on file, then use today's date for ; Residence Number Change Dt/Tm (IVM*2*152) |
|
| PHARM(DFN) | ;does this patient have active pharmacy prescriptions?
|
| Name | Field # of Occurrence |
|---|---|
| GETPRIOR^DGADDUTL | LOOP+1, AUTOADDR+31 |
| GETUPDTS^DGADDUTL | LOOP+35, AUTOADDR+75 |
| UPDADDLG^DGADDUTL | LOOP+36, AUTOADDR+76 |
| EN^DGCLEAR | LOOP+5, AUTOADDR+35 |
| ^DIE | UPLOAD+79 |
| FILE^DIE | UPLOAD+17, UPLOAD+22, UPLOAD+26, UPLOAD+30, UPLOAD+33, UPLOAD+67, ADDRDT+12, PHONDT+13 |
| UPDATE^DIE | UPLOAD+83, UPLOAD+86 |
| ^DIR | ASK+7, ASK+18, ASK1+10 |
| $$DEMO^IVMLDEM5 | AUTOADDR+70 |
| DELETE^IVMLDEM5 | AUTOADDR+71 |
| $$ADRDTCK^IVMLDEM9 | ASK+14, ADDRDT+5 |
| $$PHNDTCK^IVMLDEM9 | ASK1+3, PHONDT+6 |
| DELENT^IVMLDEMU | LOOP+30, AUTOADDR+54, AUTOADDR+67 |
| RESET^IVMLDEMU | ADDRQ+3 |
| ADDRCHNG^IVMPREC6 | LOOP+32, AUTOADDR+72 |
| DEMBULL^IVMPREC6 | AUTOADDR+58 |
| PHONE^IVMPREC9 | PHONE+1 |
| $$EN^PSSRXACT | PHARM+4 |
| $$NOW^XLFDT | ADDRDT+11, PHONDT+12 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^HL(771.3 - [#771.3] | AUTOADDR+39 |
| ^IVM(301.5 - [#301.5] | ADDR+27, LOOP+8, LOOP+11, AUTOADDR+40, AUTOADDR+44, AUTOADDR+47, ADDRDT+8, ADDRDT+9, PHONDT+9, PHONDT+10 |
| ^IVM(301.92 - [#301.92] | ASK, LOOP+7, LOOP+14, LOOP+21, LOOP+27, AUTOADDR+43, AUTOADDR+53, AUTOADDR+60, ADDRDT+7, PHONDT+8 |
| ^TMP($J | LOOP+22*, LOOP+24*, AUTOADDR+61* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | UPLOAD+10~, UPLOAD+78*, UPLOAD+79! |
| DELFLG | AUTOADDR+21~, AUTOADDR+24*, AUTOADDR+35, AUTOADDR+58 |
| DFN | ADDR~, ADDR+24, ASK+12, ASK+14, ASK+24, ASK1+3, ASK1+16, LOOP+1, LOOP+5, LOOP+27 , LOOP+32, LOOP+35, LOOP+36, UPLOAD~, UPLOAD+15, UPLOAD+20, UPLOAD+24, UPLOAD+28, UPLOAD+31, UPLOAD+65 , UPLOAD+78, UPLOAD+83, UPLOAD+86, AUTOADDR~, AUTOADDR+29, AUTOADDR+31, AUTOADDR+35, AUTOADDR+64, AUTOADDR+72, AUTOADDR+75 , AUTOADDR+76, ADDRDT~, ADDRDT+5, PHONDT~, PHONDT+6, PHARM~, PHARM+4 |
| DGCURR | LOOP+34~, LOOP+35, LOOP+36, AUTOADDR+74~, AUTOADDR+75, AUTOADDR+76 |
| DGPRIOR | LOOP+1~, LOOP+36, AUTOADDR+31~, AUTOADDR+76 |
| DIE | UPLOAD+10~, UPLOAD+78*, UPLOAD+79! |
| DIR | ASK+7!, ASK+18!, ASK1+10! |
| DIR("?" | ASK+5*, ASK+15*, ASK+16*, ASK1+7*, ASK1+8* |
| DIR("A" | ASK+2*, ASK+3*, ASK+4*, ASK+11*, ASK+12*, ASK+13*, ASK+14*, ASK1+1*, ASK1+2*, ASK1+4* , ASK1+5*, ASK1+6* |
| DIR("B" | ASK+6*, ASK+17*, ASK1+9* |
| DIR(0 | ASK+6*, ASK+17*, ASK1+9* |
| DR | UPLOAD+10~, UPLOAD+78*, UPLOAD+79! |
| ERR | ADDRDT+6~, PHONDT+7~ |
| FDA | UPLOAD+10~, ADDRDT+6~, PHONDT+7~ |
| FDA( | ADDRDT+11*, PHONDT+12* |
| FDA(2 | UPLOAD+16*, UPLOAD+21*, UPLOAD+25*, UPLOAD+29*, UPLOAD+32*, UPLOAD+66*, UPLOAD+83*, UPLOAD+86* |
| IEN92 | ADDRDT+6~, ADDRDT+7*, ADDRDT+8, ADDRDT+9, PHONDT+7~, PHONDT+8*, PHONDT+9, PHONDT+10 |
| IENS | UPLOAD+10~, UPLOAD+15*, UPLOAD+16, UPLOAD+20*, UPLOAD+21, UPLOAD+24*, UPLOAD+25, UPLOAD+28*, UPLOAD+29, UPLOAD+31* , UPLOAD+32, UPLOAD+65*, UPLOAD+66, ADDRDT+6~, ADDRDT+10*, ADDRDT+11, PHONDT+7~, PHONDT+11*, PHONDT+12 |
| >> IVM3015 | AUTOADDR+37 |
| IVMAFLD | ADDR+18~, LOOP+21*, LOOP+22, LOOP+24, AUTOADDR+21~, AUTOADDR+60*, AUTOADDR+61, AUTOADDR+64 |
| IVMAVAL | ADDR+18~, LOOP+21*, LOOP+22, LOOP+24, AUTOADDR+21~, AUTOADDR+60*, AUTOADDR+61, AUTOADDR+64 |
| >> IVMCAFG | UPLOAD+21, UPLOAD+29 |
| >> IVMCAVL | UPLOAD+29 |
| IVMDA | ADDR~, ADDR+24, ADDR+27, ADDRDT+6~, ADDRDT+9*, ADDRDT+10, PHONDT+7~, PHONDT+10*, PHONDT+11 |
| IVMDA1 | ADDR~, ADDR+24, ADDR+27, ASK+14, ASK+24, ASK1+3, ASK1+16, LOOP+8, LOOP+11, LOOP+30 , AUTOADDR+39*, AUTOADDR+40*, AUTOADDR+41, AUTOADDR+44, AUTOADDR+47, AUTOADDR+54, AUTOADDR+67, AUTOADDR+70, AUTOADDR+71, ADDRDT~ , ADDRDT+5, ADDRDT+8, ADDRDT+9, ADDRDT+10, PHONDT~, PHONDT+6, PHONDT+9, PHONDT+10, PHONDT+11 |
| IVMDA2 | ADDR~, ADDR+24, ADDR+27, ASK+14, ASK+24, ASK1+3, ASK1+16, LOOP+8, LOOP+11, LOOP+30 , AUTOADDR+37*, AUTOADDR+38, AUTOADDR+40, AUTOADDR+44, AUTOADDR+47, AUTOADDR+54, AUTOADDR+67, AUTOADDR+70, AUTOADDR+71, ADDRDT~ , ADDRDT+5, ADDRDT+8, ADDRDT+9, ADDRDT+10, PHONDT~, PHONDT+6, PHONDT+9, PHONDT+10, PHONDT+11 |
| IVMFIELD | UPLOAD~, UPLOAD+14, UPLOAD+16, UPLOAD+19, UPLOAD+23, UPLOAD+25, UPLOAD+27, UPLOAD+32, UPLOAD+39, UPLOAD+41 , UPLOAD+43, UPLOAD+45, UPLOAD+47, UPLOAD+49, UPLOAD+51, UPLOAD+53, UPLOAD+55, UPLOAD+57, UPLOAD+59, UPLOAD+61 , UPLOAD+63, UPLOAD+66, UPLOAD+72*, UPLOAD+73*, UPLOAD+74*, UPLOAD+75*, UPLOAD+76*, UPLOAD+78, UPLOAD+83, UPLOAD+86 |
| IVMFLAG | ADDR+18~, ADDR+21*, ASK+8*, ASK+19*, ASK1+11*, LOOP+27*, LOOP+33, ADDRQ+3, ADDRQ+4, AUTOADDR+21~ , AUTOADDR+24*, AUTOADDR+29, AUTOADDR+38, AUTOADDR+41, AUTOADDR+64*, AUTOADDR+73, AUTOADDR+77 |
| IVMFNAM | ADDR+18~, LOOP+14*, LOOP+16, LOOP+18 |
| IVMI | ADDR+18~, LOOP+7*, LOOP+8, AUTOADDR+21~, AUTOADDR+43*, AUTOADDR+44 |
| IVMJ | ADDR+18~, LOOP+8*, LOOP+11, LOOP+30, AUTOADDR+21~, AUTOADDR+44*, AUTOADDR+47, AUTOADDR+54, AUTOADDR+67 |
| IVMNODE | ADDR+18~, LOOP+11*, LOOP+12, LOOP+14, LOOP+21, LOOP+27, AUTOADDR+21~, AUTOADDR+47*, AUTOADDR+48, AUTOADDR+53 , AUTOADDR+60 |
| IVMPPICK | ADDR~, ASK+1, ASK+9, ASK+10*, ASK+20, ASK+21*, ASK+26, ASK1+12, ASK1+13*, LOOP+3 , LOOP+16, LOOP+18, AUTOADDR~ |
| IVMPTR | ADDR+18~, ADDR+27*, ASK, AUTOADDR+21~ |
| IVMVALUE | UPLOAD~, UPLOAD+14, UPLOAD+23, UPLOAD+32, UPLOAD+64, UPLOAD+72, UPLOAD+73, UPLOAD+74, UPLOAD+75, UPLOAD+76 , UPLOAD+83, UPLOAD+86 |
| IVMZCT | UPLOAD+10~, UPLOAD+37*, UPLOAD+39*, UPLOAD+41*, UPLOAD+43*, UPLOAD+45*, UPLOAD+47*, UPLOAD+49*, UPLOAD+51*, UPLOAD+53* , UPLOAD+55*, UPLOAD+57*, UPLOAD+59*, UPLOAD+61*, UPLOAD+63*, UPLOAD+64 |
| NOPHUP | AUTOADDR~, AUTOADDR+26*, AUTOADDR+54 |
| NOUPDT | AUTOADDR~, AUTOADDR+25*, AUTOADDR+35, AUTOADDR+61, AUTOADDR+64 |
| U | LOOP+14, AUTOADDR+53 |
| >> VALMBCK | LOOP+40* |
| Y | ADDR+18~, ASK+9, ASK+10, ASK+20, ASK+21, ASK1+12, ASK1+13, AUTOADDR+21~ |
