Routine: AUMDO

Information

AUMDO ; IHS/OIRM/DSD/JCM,AEF - ENTRY PROGRAM FOR UPDATING ICD0 AND ICD9 FILES ; [ 12/03/1998 2:35 PM ]

Source file <AUMDO.m>

Package	Total	Call Graph
ICD 9 Updates	3	EN^AUMDO1 EN^AUMDODEV UPDATE^AUMDOPKG
IHS VA Utilities	1	^XBKVAR
Kernel	1	^%ZISC
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
ICD 9 Updates	3	AUMDO1 AUMDO1BS AUMDO1C

Name	Comments	DBIA/ICR reference
PGRMODE	; ENTRY POINT FROM AUMDO^AUMD ; GET OUTPUT DEVICE AND/OR QUEUE TO TASKMAN
INITVAR	; INITIALIZE VARIABLES AND CHECK FOR EXISTANCE OF UPDATE GLOBAL
EN	; ENTRY POINT FROM TASKMAN IF OUTPUT IS QUEUED
HDR	; ENTRY POINT FROM MULTIPLE POINTS IN ^AUMDO1,^AUMDO1A,^AUMDO1B,^AUMDO1BS,^AUMDO1C TO PRINT PAGE HEADINGS
SPECNOTE	; SPECIAL NOTE FOR PROGRAMMERS ; ***NOTE - ALL VARIABLES ARE IN THE AUMDO("variable name') ARRAY
CLEANUP	; KILL AUMDO* QUIT GRACEFULLY

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"ENTRY NOT PERMITTED HERE (^AUMDO)" Line Location: AUMDO+2
Function Call: WRITE	Prompt: "AUMDO - ** Update global file ^AUMDO"_$S(AUMDO("ICD0"):"OP",AUMDO("ICD9"):"DX")_"U does not exist! ",!,?10," "_AUMDO("ICD FILE")_" update not performed. **",!! Line Location: INITVAR+5
Function Call: WRITE	Prompt: AUMDO("DASHES"),! Line Location: HDR+5
Function Call: WRITE	Prompt: ?5,"I C D "_$E(AUMDO("ICD FILE"),4)_" O N - L I N E U P D A T E A C T I V I T Y",?65,"Page # "_AUMDO("PAGE #"),!,AUMDO("DASHES"),!,AUMDO("DATE")_" at "_AUMDO("TIME"),! Line Location: HDR+6

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HDR+2

Name	Field # of Occurrence
>> %	HDR+2
AUMDO	CLEANUP+1!
AUMDO(	INITVAR+2*
AUMDO("DASHES"	INITVAR+6*, HDR+5, HDR+6
AUMDO("DATE"	HDR+3*, HDR+6
AUMDO("DIC(P)	DRG" , INITVAR+13, KWD" , INITVAR+14, MDC" , INITVAR+15*
AUMDO("DLAYGO	DRG" , INITVAR+10, ICD" , INITVAR+9, KWD" , INITVAR+12, MDC" , INITVAR+11
AUMDO("ICD CO	DE" , INITVAR+16*
AUMDO("ICD FI	LE" , EN+3*, INITVAR+2, INITVAR+5, HDR+6
AUMDO("ICD GL	REF" , INITVAR+8*
AUMDO("ICD0"	INITVAR+1*, INITVAR+4, INITVAR+5, INITVAR+7, INITVAR+8, INITVAR+9, INITVAR+10, INITVAR+12, INITVAR+13, INITVAR+14
AUMDO("ICD9"	INITVAR+1*, INITVAR+4, INITVAR+5, INITVAR+7, INITVAR+8, INITVAR+9, INITVAR+10, INITVAR+12, INITVAR+13, INITVAR+14
AUMDO("PAGE #	" , INITVAR+1, HDR+1, HDR+6
AUMDO("QUIT"	EN+3, INITVAR+1, INITVAR+5
AUMDO("TIME"	HDR+3*, HDR+6
AUMDO("TOTAL	ADD/REPLACE" , INITVAR+17, ADDS" , INITVAR+17, BAD UPDATE RECORDS" , INITVAR+17, CHANGES" , INITVAR+17, GOOD UPDATE RECORDS" , INITVAR+17* , UPDATE RECORDS" , INITVAR+17*
AUMDO("UPD GL	REF" , INITVAR+7*
IO	EN+1
IO("Q"	PGRMODE+3
IOF	HDR+4
POP	PGRMODE+3!
>> Y	HDR+2*, HDR+3
>> ZTQUEUED	CLEANUP+3
>> ZTREQ	CLEANUP+3*