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 |  Local Variables  | All
Print Page as PDF
Routine: IVMLDEMD

Package: Income Verification Match

Routine: IVMLDEMD


Information

IVMLDEMD ;ALB/PJR/PHH/BLD - IVM DEMOGRAPHIC UPLOAD FILE DATE OF DEATH FIELDS ; 7/20/05 9:22am

Source Information

Source file <IVMLDEMD.m>

Call Graph

Call Graph

Call Graph Total: 13

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  

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

Package Total Caller Graph
Income Verification Match 3 IVMLDEM4  IVMLDEMB  IVMPREC8  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,"Filing Date of Death fields... "
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: "completed.",!
  • Line Location: LOOP+17
Function Call: WRITE
  • Prompt: !
  • Line Location: DODDEL+1
Function Call: WRITE
  • Prompt: !,"Filing Date of Death deletions... "
  • Line Location: DODDEL+8
Function Call: WRITE
  • Prompt: "completed.",!
  • Line Location: DODDEL+23
Routine Call
  • DIE
  • Line Location:
    • AUTODEL+19
    • UPLOAD+9
    • REM501+5
Routine Call
  • DIR
  • Line Location:
    • ASK+7
    • DODDEL+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> 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
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 |  Local Variables  | All