IVMLDEM6 ;ALB/KCL,BRM,PHH,CKN,LBD,SJD - IVM DEMOGRAPHIC UPLOAD FILE ADDRESS ;09/02/19 8:24pm
Source file <IVMLDEM6.m>
| 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 | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
