IVMLDEMD ;ALB/PJR/PHH/BLD - IVM DEMOGRAPHIC UPLOAD FILE DATE OF DEATH FIELDS ; 7/20/05 9:22am
Source file <IVMLDEMD.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 4 | NOW^%DTC ^DIE ^DIK ^DIR |
Income Verification Match | 3 | ($$DEMO,DELETE)^IVMLDEM5 ($$CKINPAT,AUTOREJ,SNDBULL)^IVMLDEMB (DELENT,RESET)^IVMLDEMU |
Registration | 3 | ^DGBUL (DEMOG,DISCHRGE,LINE,XFR)^DGDEATH (,KILL)^DGPATV |
Scheduling | 2 | $$PCMMXMY^SCAPMC25 $$PCMAIL^SCMCMM |
Master Patient Index VistA | 1 | $$A31^MPIFA31B |
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 | 3 | IVMLDEM4 IVMLDEMB IVMPREC8 |
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 | Field # of Occurrence |
---|---|
NOW^%DTC | AUTODEL+14 |
^DGBUL | BULL+13 |
DEMOG^DGDEATH | BULL+9 |
DISCHRGE^DGDEATH | LOOP+19 |
LINE^DGDEATH | BULL+7, BULL+8, BULL+10 |
XFR^DGDEATH | LOOP+19 |
^DGPATV | BULL+6 |
KILL^DGPATV | BULL+14 |
^DIE | AUTODEL+19, UPLOAD+9, REM501+5 |
^DIK | REM511+5 |
^DIR | ASK+7, DODDEL+6 |
$$DEMO^IVMLDEM5 | DEM5+1 |
DELETE^IVMLDEM5 | DEM5+2 |
$$CKINPAT^IVMLDEMB | AUTODOD+23 |
AUTOREJ^IVMLDEMB | AUTODOD+29 |
SNDBULL^IVMLDEMB | AUTODOD+29 |
DELENT^IVMLDEMU | LOOP+15, DODDEL+21, AUTOADD+13, AUTODEL+11 |
RESET^IVMLDEMU | DODQ+3 |
$$A31^MPIFA31B | AUTODEL+9 |
$$PCMMXMY^SCAPMC25 | BULL+11 |
$$PCMAIL^SCMCMM | BULL+12 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | AUTODOD+31, AUTODOD+34, AUTODOD+37, AUTODEL+1, CKAUTO+10, CKDUZ+9, CKDUZ+10, BULL+1, BULL+2, BULL+5 |
^HL(771.3 - [#771.3] | AUTODOD+18 |
^IVM(301.5 - [#301.5] | DOD+21, LOOP+4, LOOP+7, DODDEL+11, DODDEL+14, CKDEL+2, CKDEL+6, AUTODOD+19, AUTODOD+30, AUTODOD+32 , AUTODOD+35, AUTOADD+5, AUTOADD+8, AUTODEL+4, AUTODEL+6, CKAUTO+2, CKAUTO+6, CKDUZ+2, CKDUZ+6, CLEAN+3 , CLEAN+4, CLEAN+5, CLEAN+6, REMASEG+2! |
^IVM(301.92 - [#301.92] | LOOP+3, LOOP+12, DODDEL+10, CKDEL+1, AUTOADD+4, AUTOADD+11, AUTODEL+3, CKAUTO+1, CKDUZ+1 |
Name | Line Occurrences |
---|---|
AUTOADD | AUTODOD+33, AUTODOD+36, AUTODOD+38 |
AUTODEL | AUTODOD+30, AUTODOD+32, AUTODOD+35 |
BULL | AUTODOD+30, AUTODOD+32, AUTODOD+35 |
CKAUTO | AUTODOD+30, AUTODOD+32, AUTODOD+35 |
CKDEL | ASK+1 |
CKDUZ | AUTODOD+33, AUTODOD+36, AUTODOD+38 |
CLEAN | AUTOADD+16, AUTODEL+21 |
DEM5 | AUTODOD+30, AUTODOD+32, AUTODOD+33, AUTODOD+35, AUTODOD+36, AUTODOD+38 |
DODDEL | ASK+1 |
DODQ | DOD+18, DOD+21, ASK+8, LOOP+24, DODDEL+7, DODDEL+28, AUTODOD+17, AUTODOD+20, AUTODOD+23, AUTODOD+30 , AUTODOD+36, AUTODOD+40 |
REM501 | CLEAN+9 |
REM511 | CLEAN+7 |
REMASEG | CLEAN+4 |
UPLOAD | LOOP+12, LOOP+18, DODDEL+18, DODDEL+24, AUTOADD+11, AUTOADD+15, AUTODEL+9, AUTODEL+15, AUTODEL+16 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | AUTODEL+16 |
CKADD | AUTODOD+10~, AUTODOD+13*, AUTODOD+33, AUTODOD+36, CKAUTO*, CKAUTO+10* |
CKDEL | DOD+12~, ASK+1, CKDEL*, CKDEL+9*, AUTODOD+10~, AUTODOD+13*, AUTODOD+30, AUTODOD+32, AUTODOD+35, CKAUTO* , CKAUTO+9* |
CKDUZ | AUTODOD+10~, AUTODOD+13*, AUTOADD+15, CKDUZ+10* |
DA | AUTODEL+17~, AUTODEL+18*, UPLOAD+7~, UPLOAD+8*, REM501+2~, REM501+3*, REM511+2~, REM511+3* |
DA(1 | REM501+3*, REM501+4, REM511+3*, REM511+4 |
DA(2 | REM511+3*, REM511+4 |
DELDATA | DOD+12~, AUTODOD+10~ |
DFN | DOD~, DOD+18, LOOP+12, LOOP+18, DODDEL+18, DODDEL+24, AUTODOD~, AUTODOD+23, AUTODOD+31, AUTODOD+34 , AUTODOD+37, AUTOADD+11, AUTOADD+15, AUTODEL+1, AUTODEL+9, AUTODEL+15, AUTODEL+16, AUTODEL+18, CKAUTO+10, CKDUZ+9 , CKDUZ+10, UPLOAD~, UPLOAD+8, BULL~, BULL+1, BULL+2, BULL+5, BULL+11, BULL+12 |
DFNDOD | AUTODEL+1~*, AUTODEL+9 |
DGB | BULL+4~, BULL+13* |
DGCT | BULL+5*, BULL+12*, BULL+14! |
DGDAUTO | DOD+12~, LOOP+1*, AUTODOD+10~, AUTOADD+1* |
DGDEATH | BULL+4~, BULL+5*, BULL+13, BULL+14! |
DGPCMM | BULL+4~, BULL+11* |
DIE | AUTODEL+17~, AUTODEL+18*, UPLOAD+7~, UPLOAD+8*, REM501+2~, REM501+4* |
DIK | REM511+2~, REM511+4* |
DIR | ASK+7!, DODDEL+6! |
DIR("?" | ASK+5*, DODDEL+4* |
DIR("A" | ASK+2*, ASK+3*, ASK+4*, DODDEL+1*, DODDEL+2*, DODDEL+3* |
DIR("B" | ASK+6*, DODDEL+5* |
DIR(0 | ASK+6*, DODDEL+5* |
DODFIELD | DOD+12~, LOOP+2*, LOOP+3, LOOP+8, LOOP+9, DODDEL+9*, DODDEL+10, DODDEL+18, AUTODOD+9~, AUTOADD+3* , AUTOADD+4, AUTODEL+2*, AUTODEL+3, AUTODEL+9 |
DODMPI | AUTODEL+1~, AUTODEL+9* |
DODREJDT | AUTODOD+24~ |
DR | AUTODEL+17~, AUTODEL+18*, UPLOAD+7~, UPLOAD+8*, REM501+2~, REM501+5* |
DT | BULL+12 |
DUZ | LOOP+18 |
>> IVM3015 | AUTODOD+16 |
IVM92 | CLEAN+2~, CLEAN+6*, CLEAN+7, CLEAN+8 |
>> IVMCNTR | AUTODOD+28* |
IVMDA | DOD~, DOD+18, DOD+21 |
IVMDA1 | DOD~, DOD+18, DOD+21, LOOP+4, LOOP+7, LOOP+15, DODDEL+11, DODDEL+14, DODDEL+21, CKDEL+2 , CKDEL+6, AUTODOD+10~, AUTODOD+18*, AUTODOD+19*, AUTODOD+20, AUTOADD+5, AUTOADD+8, AUTOADD+13, AUTODEL+4, AUTODEL+6 , AUTODEL+11, DEM5+1, DEM5+2, CKAUTO+2, CKAUTO+6, CKDUZ+2, CKDUZ+6 |
IVMDA2 | DOD~, DOD+18, DOD+21, LOOP+4, LOOP+7, LOOP+15, DODDEL+11, DODDEL+14, DODDEL+21, CKDEL+2 , CKDEL+6, AUTODOD+10~, AUTODOD+16*, AUTODOD+17, AUTODOD+19, AUTODOD+30, AUTODOD+32, AUTODOD+35, AUTOADD+5, AUTOADD+8 , AUTOADD+13, AUTOADD+16, AUTODEL+4, AUTODEL+6, AUTODEL+11, AUTODEL+21, DEM5+1, DEM5+2, CKAUTO+2, CKAUTO+6 , CKDUZ+2, CKDUZ+6 |
IVMDODUP | LOOP+1*, LOOP+20! |
IVMENT4 | AUTODOD+10~, AUTODOD+13* |
IVMFIELD | UPLOAD~, UPLOAD+8 |
IVMFLAG | DOD+12~, DOD+15*, ASK+8*, LOOP+12*, LOOP+17, DODDEL+7*, DODDEL+23, AUTODOD+9~, AUTODOD+13*, AUTOADD+11* , AUTOADD+15, AUTODEL+9*, AUTODEL+13, DODQ+3, DODQ+4 |
IVMI | DOD+12~, LOOP+3*, LOOP+4, DODDEL+10*, DODDEL+11, CKDEL+1*, CKDEL+2, AUTODOD+9~, AUTOADD+4*, AUTOADD+5 , AUTODEL+3*, AUTODEL+4, CKAUTO+1*, CKAUTO+2, CKDUZ+1*, CKDUZ+2, CLEAN~, CLEAN+3, CLEAN+4, CLEAN+5 , CLEAN+6, CLEAN+7, CLEAN+9, REM501~, REM501+3, REM511~, REM511+3, REMASEG~, REMASEG+2 |
IVMJ | DOD+12~, LOOP+4*, LOOP+7, LOOP+15, DODDEL+11*, DODDEL+14, DODDEL+21, CKDEL+2*, CKDEL+3, CKDEL+6 , AUTODOD+9~, AUTOADD+5*, AUTOADD+8, AUTOADD+13, AUTODEL+4*, AUTODEL+6, AUTODEL+11, CKAUTO+2*, CKAUTO+3, CKAUTO+6 , CKDUZ+2*, CKDUZ+3, CKDUZ+6, CLEAN+2~, CLEAN+3*, CLEAN+4, CLEAN+5, CLEAN+6, CLEAN+7, CLEAN+9 , REM501~, REM501+3, REM511~, REM511+3, REMASEG~, REMASEG+2 |
IVMN | CLEAN+2~, CLEAN+5*, CLEAN+6, CLEAN+7, REM511~, REM511+3 |
IVMNODE | DOD+12~, LOOP+7*, LOOP+8*, LOOP+9*, LOOP+12, DODDEL+14*, DODDEL+15, CKDEL+6*, CKDEL+7, CKDEL+9 , AUTODOD+9~, AUTOADD+8*, AUTOADD+11, AUTODEL+6*, AUTODEL+7, CKAUTO+6*, CKAUTO+7, CKAUTO+9, CKAUTO+10, CKDUZ+6* , CKDUZ+7, CKDUZ+9 |
IVMPTR | DOD+12~, DOD+21*, AUTODOD+9~ |
>> IVMSEG | AUTODOD+30, AUTODOD+31, AUTODOD+34, AUTODOD+37 |
IVMTEXT | AUTODOD+28! |
IVMTEXT(1 | AUTODOD+28 |
IVMTEXT(2 | AUTODOD+28 |
IVMVALUE | UPLOAD~ |
OTHFLG | CLEAN+2~, CLEAN+5*, CLEAN+8*, CLEAN+9 |
U | AUTODEL+1, CLEAN+6, CLEAN+7, CLEAN+8 |
>> VALMBCK | LOOP+22*, DODDEL+26* |
X | BULL+4~, BULL+13* |
XMSUB | AUTODOD+28, BULL+4~, BULL+5* |
Y | DOD+12~, ASK+8, DODDEL+7 |