IVMLDEMD ;ALB/PJR/PHH/BLD - IVM DEMOGRAPHIC UPLOAD FILE DATE OF DEATH FIELDS ; 7/20/05 9:22am
Source file <IVMLDEMD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DOD(DFN,IVMDA2,IVMDA1,IVMDA) | ; function to upload Date of Death
; fields and return a flag |
|
| ASK | ;;
|
|
| LOOP | ; - loop through DOD fields
|
|
| DODDEL | ;
|
|
| CKDEL | ||
| AUTODOD(DFN) | ;
; function to automatically upload Date of Death ; fields and return a flag |
|
| AUTOADD | ;
|
|
| AUTODEL | ;
|
|
| DEM5 | ;
|
|
| CKAUTO | ||
| CKDUZ | ; Check to preserve DUZ for "Last Edited By"
|
|
| UPLOAD(DFN,IVMFIELD,IVMVALUE) | ; - file Date of Death fields received from IVM
; Input: DFN - as patient IEN ; IVMFIELD - as the field number to be updated ; IVMVALUE - as the value of the field |
|
| DODQ | ; - return --> 1 if uploadable field is a Date of Death field
; --> 0 if nothing uploadable |
|
| CLEAN(IVMI) | ;
; Remove any Date of Death related entries from IVM UPLOAD DEM |
|
| REM501(IVMI,IVMJ) | ;
; Delete 301.501 entry to remove from ASEG x-ref |
|
| REM511(IVMI,IVMJ,IVMN) | ;
; Delete 301.511 entry to remove from IVM UPLOAD DEM |
|
| REMASEG(IVMI,IVMJ) | ;
; Delete invalid ASEG x-ref entries |
|
| BULL(DFN) | ; Date of Death Deletion Bulletin
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
