Routine: AUMDO1C

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIK
ICD 9 Updates	1	HDR^AUMDO

Package

Total

Call Graph

^DIC ^DIK

HDR^AUMDO

Name	Comments	DBIA/ICR reference
SPECNOTE	; SPECIAL NOTE FOR PROGRAMMERS ; ***NOTE - ALL VARIABLES ARE IN THE AUMDO("variable name') ARRAY
MULTRMV	; REMOVE THE ICD SUBFILE ENTRIES FOR THIS ENTRY(DRG OR MDC)
EN	; ENTRY POINT FROM CALLSUB+1^AUMDO1B
MULTSET	;
MULT	; UPDATE MULTIPLE IN ICD GLOBAL DETERMINED BY AUMDO("MULT") ; REMOVE OLD ENTRIES IF THEY EXIST

Name	Field # of Occurrence
HDR^AUMDO	MULT+5, MULTSET+3, MULTSET+18, MULTSET+19, MULTRMV+1
^DIC	MULTSET+16
^DIK	MULTRMV+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"ENTRY NOT PERMITTED HERE (^AUMDO1C)",! Line Location: AUMDO1C+2
Function Call: WRITE	Prompt: !,?27,"Adding new "_AUMDO("MULT LIT")_" entries" Line Location: MULT+5
Function Call: WRITE	Prompt: !,?30,AUMDO("MULT VAL")_" exists, skipped" Line Location: MULTSET+3
Function Call: WRITE	Prompt: !,?30,AUMDO("MULT VAL")_" not added" Line Location: MULTSET+18
Function Call: WRITE	Prompt: !,?30,"MDC "_AUMDO("MULT VAL")_" added" Line Location: MULTSET+21
Function Call: WRITE	Prompt: !,?30,"Adding related DRG entries for MDC code "_AUMDO("MULT DFN") Line Location: MULTSET+23
Function Call: WRITE	Prompt: !,?33,"DRG "_$P($G(^AUMDOTMP(AUMDO("UPD DFN"),"MDC",AUMDO("MULT DFN"),"DRG")),U,AUMDO("DRG FLD"))_" added" Line Location: MULTSET+26
Function Call: WRITE	Prompt: !,?27,"Removing old "_AUMDO("MULT LIT")_" entries" Line Location: MULTRMV+1
Routine Call	DIC Line Location: MULTSET+16

Name	Line Occurrences (* Changed, ! Killed)
^AUMDOTMP(	MULTSET+11, MULTSET+14, MULTSET+22, MULTSET+25, MULTSET+26

Name	Field # of Occurrence
^("DRG"	MULTSET+14

Name	Field # of Occurrence
>> AUMDO("DIC(P)	DRG" , MULTSET+6, KWD" , MULTSET+6, MDC" , MULTSET+6
>> AUMDO("DLAYGO	DRG" , MULTSET+7, KWD" , MULTSET+7, MDC" , MULTSET+7
>> AUMDO("DRG FL	D" , MULTSET+13, MULTSET+14, MULTSET+24, MULTSET+25, MULTSET+26
>> AUMDO("ICD DF	N" , MULT+3, MULTSET+3, MULTSET+4, MULTSET+5, MULTRMV+3
>> AUMDO("ICD GL	REF" , MULT+3, MULTSET+3, MULTSET+4, MULTRMV+3
>> AUMDO("L"	MULT+7, MULTRMV+3
>> AUMDO("MULT D	FN" , MULT+6, MULT+7, MULTSET+1, MULTSET+11, MULTSET+14, MULTSET+22, MULTSET+23, MULTSET+25, MULTSET+26
>> AUMDO("MULT L	IT" , MULT+2*, MULT+5, MULTRMV+1
>> AUMDO("MULT V	AL" , MULTSET+1*, MULTSET+3, MULTSET+18, MULTSET+19, MULTSET+21
>> AUMDO("MULT"	EN+1*, MULT+2, MULT+3, MULT+7, MULTSET+1, MULTSET+4, MULTSET+6, MULTSET+7, MULTSET+10, MULTSET+19 , MULTSET+20, MULTRMV+3
>> AUMDO("UPD DF	N" , EN+1, MULT+7, MULTSET+1, MULTSET+11, MULTSET+14, MULTSET+22, MULTSET+25, MULTSET+26
>> AUMDO("UPD GL	REF" , EN+1, MULT+7, MULTSET+1
>> DA	MULTRMV+2, MULTRMV+3
>> DA(1	MULTSET+5, MULTRMV+3
DIADD	MULTSET+8*, MULTSET+17!
DIC	MULTSET+4*, MULTSET+17!
DIC("DR"	MULTSET+12, MULTSET+14, MULTSET+15*
DIC("P"	MULTSET+6*
DIC(0	MULTSET+5*
>> DIK	MULTRMV+3*
DLAYGO	MULTSET+7*, MULTSET+17!
DR	MULTSET+17!
U	MULTSET+1, MULTSET+6, MULTSET+14, MULTSET+25, MULTSET+26
>> X	MULTSET+1, MULTSET+2
>> Y	MULTSET+18

Information