Routine: AUMUP102

Package	Total	Call Graph
VA Fileman	6	^DIC FILE^DICN ^DIE ENALL^DIK ^DIR ^DIWW
Kernel	3	^%ZISC $$DT^XLFDT BMES^XPDUTL
IHS VA Utilities	2	$$DIR^XBDIR ^XBFMK
ICD 9 Updates	1	EN^AUMDODEV
Table Maintenance	1	INACT^AUMP1012

Package	Total	Caller Graph
Table Maintenance	1	AUMAUTUP

Entry Points

Name	Comments	DBIA/ICR reference
KILL	;kill "B" and "C" cross-references
RINA	;Report Inactive records
END1	;
RPKL	;Report of pick lists if we have any
RPT	;Actually print the report
FBADNAM	;Find all missing names
RNAM	;Report on Source items that are missing by name
PG	; --- Paginate, write header
RERR	;Report Errors
INACT	;Check for new inactive records
RMNE	;Report on Source items that are missing by Mnemonic
PKLST	;Check to see what EHR pick lists might be affected
END	;EP
RTRIM(X)	;Strip off trailing spaces
UPD	;read ^AUMPCLN and update ^AUTTEDT ; Development Notes - 2/17/2010 - abk ; 1. Had a lot of trouble setting the sub fields until I called ^XBFMK after every ; fileman call. Once I did that and reset all the fileman variables before fileman ; call, it worked flawlessly. ; 2. We are updating existing Patient Education topics. We are setting all ; existing topics to inactive before we load the next set updating where we find a ; match. ; 3. When updating and deleting the Outcome and Standard sub fields, I had ; to kill off those entries explicitly because the data contains punctuation ; at these levels and I get a subscript error from ^DIK trying to parse the data for ; punctuation because it thinks this is a file specification and not data... ;
FBADMN	;Find all missing Mnemonics
START	;IHS/OIT/ABK
RNEW	;Report on New Records
POST	;call to ENALL^DIK for .01 and 1
OPT	;Select which install to report on
QUIT	; This routine should not be called at the top. It is only to be called ; at START and POST by KIDS as the pre and post inits for AUM*10.2.
RUPD	;Report on records that were Updated
RSKP	;Report on Skipped Records

External References

Name	Field # of Occurrence
^%ZISC	END1+1
EN^AUMDODEV	RPT+4
INACT^AUMP1012	UPD+25
^DIC	UPD+39, UPD+47
FILE^DICN	UPD+97, UPD+98, UPD+99, UPD+103, UPD+104, UPD+105
^DIE	UPD+87
ENALL^DIK	POST+4, POST+6
^DIR	OPT+8
^DIWW	RUPD+5, RNEW+5, RSKP+5, RINA+5, RERR+7, RPKL+9, RNAM+7, RMNE+7, END+4
$$DIR^XBDIR	END+3, PG+1
^XBFMK	UPD+15, UPD+65, UPD+87, UPD+97, UPD+98, UPD+99, UPD+103, UPD+104, UPD+105
$$DT^XLFDT	UPD+16, INACT+2
BMES^XPDUTL	UPD+29, UPD+30, UPD+52, UPD+59, UPD+77, UPD+87, UPD+117, UPD+118, UPD+119, UPD+120 , UPD+121, UPD+122

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Rebuilding Indexes",! Line Location: POST+1
Function Call: WRITE	Prompt: !!,"** Patient Education Topic Report for "_ADT_" **",!!! Line Location: OPT+17
Function Call: WRITE	Prompt: !,"Records that were not loaded due to errors:",! Line Location: OPT+18
Function Call: WRITE	Prompt: ?15,"No Errors to Report",! Line Location: OPT+20
Function Call: WRITE	Prompt: !! Line Location: OPT+21
Function Call: WRITE	Prompt: !,"Records that were set as Inactive:",! Line Location: OPT+22
Function Call: WRITE	Prompt: ?15,"No Records were made Inactive",! Line Location: OPT+24
Function Call: WRITE	Prompt: !! Line Location: OPT+25
Function Call: WRITE	Prompt: !,"Records that are New:",! Line Location: OPT+26
Function Call: WRITE	Prompt: ?15,"No New Records were Added",! Line Location: OPT+28
Function Call: WRITE	Prompt: !! Line Location: OPT+29
Function Call: WRITE	Prompt: !,"Local (ICD9) Records that were Skipped:",! Line Location: OPT+30
Function Call: WRITE	Prompt: ?15,"No Local Records were Skipped",! Line Location: OPT+32
Function Call: WRITE	Prompt: !! Line Location: OPT+33
Function Call: WRITE	Prompt: !,"Records that were Updated:",! Line Location: OPT+34
Function Call: WRITE	Prompt: ?15,"No Records were Updated",! Line Location: OPT+36
Function Call: WRITE	Prompt: !! Line Location: OPT+37
Function Call: WRITE	Prompt: ?15,"EHR Not installed or no Pick Lists were Added",! Line Location: OPT+39
Function Call: WRITE	Prompt: !! Line Location: OPT+40
Function Call: WRITE	Prompt: !! Line Location: OPT+41
Function Call: WRITE	Prompt: !! Line Location: OPT+42
Function Call: WRITE	Prompt: ?15,$P(AUMX,U,J),?30,$P(AUMX,U,J+1),! Line Location: OPT+44
Function Call: WRITE	Prompt: !,"** End of Patient Education Topic Report for "_ADT_" **",! Line Location: OPT+45
Function Call: WRITE	Prompt: !,?2,"EIN",?12,"Name",?65,"Mnemonic",! Line Location: RUPD+2
Function Call: WRITE	Prompt: !,?5,"Name",?65,"Mnemonic",! Line Location: RNEW+2
Function Call: WRITE	Prompt: !,?5,"Name",?65,"Mnemonic",! Line Location: RSKP+2
Function Call: WRITE	Prompt: !,?5,"Name",?65,"Mnemonic",! Line Location: RINA+2
Function Call: WRITE	Prompt: !,?5,"Name",?65,"Mnemonic" Line Location: RERR+2
Function Call: WRITE	Prompt: !,"EHR Pick Lists that may have been affected and need Review:",! Line Location: RPKL+3
Function Call: WRITE	Prompt: !,?5,"Pick List Name",?65,"Topic EIN",! Line Location: RPKL+4
Function Call: WRITE	Prompt: !,"Records that were not updated, by Name",! Line Location: RNAM+2
Function Call: WRITE	Prompt: !,?5,"Name",! Line Location: RNAM+4
Function Call: WRITE	Prompt: !,"Records that were not updated, by Mnemonic",! Line Location: RMNE+2
Function Call: WRITE	Prompt: !,?5,"Mnemonic",! Line Location: RMNE+4
Function Call: WRITE	Prompt: !!! Line Location: END+1
Function Call: WRITE	Prompt: @IOF,!!!?DIWL-1,?($S($G(IOM):IOM,1:75)-$L("Page "_AUMPG)),"Page ",AUMPG,!!,AUMHDR,! Line Location: PG+3
Routine Call	DIE Line Location: UPD+87
Routine Call	DIC Line Location: UPD+39 UPD+47
Routine Call	DIR Line Location: OPT+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTTEDT - [#9999999.09]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRMRD"	END+3, PG+1
^AUMPCLN(	UPD+22, FBADNAM+3, FBADMN+3
^AUTTEDT - [#9999999.09]	UPD+69, UPD+93!, INACT+3, INACT+6
^AUTTEDT("B"	UPD+34, KILL+1!, FBADNAM+3
^AUTTEDT("C"	UPD+35, KILL+2!, FBADMN+3
^BGOEDTPR - [#90362.36]	UPD+111, PKLST+2, PKLST+3, PKLST+4, PKLST+5, PKLST+6
^DD(9999999.09	UPD+97, UPD+103
^XTMP("AUM11P1"	UPD+18, UPD+19, UPD+20, UPD+50, UPD+58, UPD+79, UPD+86, UPD+115, UPD+116, INACT+6* , PKLST+7, RPT+5, OPT+19, OPT+23, OPT+27, OPT+31, OPT+35, OPT+38, OPT+42, OPT+44 , RUPD+3, RUPD+4, RNEW+3, RNEW+4, RSKP+3, RSKP+4, RINA+3, RINA+4, RERR+3, RERR+5 , RERR+6, RPKL+5, RPKL+7, RNAM+5, RMNE+5, FBADNAM+3, FBADMN+3*

Label References

Name	Line Occurrences
END	OPT+46
FBADMN	UPD+113
FBADNAM	UPD+112
INACT	UPD+109
PG	RUPD+5, RNEW+5, RSKP+5, RINA+5, RERR+7, RPKL+9, RNAM+7, RMNE+7
PKLST	UPD+111
RERR	OPT+19
RINA	OPT+23
RMNE	OPT+42
RNEW	OPT+27
RPKL	OPT+38
RSKP	OPT+31
RUPD	OPT+35
UPD	START+1

Naked Globals

Name	Field # of Occurrence
^(	UPD+22, FBADNAM+3, FBADMN+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	RTRIM+1*
A	INACT+1~, INACT+2, INACT+3, INACT+5, INACT+6, RPT+2~, RPT+5, OPT+5, RUPD+3, RUPD+4 , RNEW+3, RNEW+4, RSKP+3, RSKP+4, RINA+3, RINA+4, RERR+3, RERR+4, RERR+5, RERR+6 , RPKL+5, RPKL+6, RPKL+7, RNAM+5, RNAM+6, RMNE+5, RMNE+6, FBADNAM+1~, FBADNAM+3, FBADMN+1~ , FBADMN+3
ADT	UPD+16, UPD+19, UPD+20, UPD+50, UPD+58, UPD+79, UPD+86, UPD+115, UPD+116, INACT+5 , INACT+6, PKLST+7, RPT+2~, OPT+9, OPT+11*, OPT+12, OPT+17, OPT+19, OPT+23, OPT+27 , OPT+31, OPT+35, OPT+38, OPT+42, OPT+44, OPT+45, RUPD+3, RUPD+4, RNEW+3, RNEW+4 , RSKP+3, RSKP+4, RINA+3, RINA+4, RERR+3, RERR+5, RERR+6, RPKL+5, RPKL+7, RNAM+5 , RMNE+5, FBADNAM+3, FBADMN+3
>> APART	UPD+19, UPD+20, UPD+109
>> AUMACT	UPD+24*, UPD+25
>> AUMBM	OPT+14, OPT+15, RUPD+5, RNEW+5, RSKP+5, RINA+5, RERR+7, RPKL+9, RNAM+7, RMNE+7
AUMCNAM	UPD+13~, UPD+26*, UPD+29, UPD+34, UPD+37, UPD+45, UPD+50, UPD+52, UPD+58, UPD+59 , UPD+79, UPD+85, UPD+86, UPD+87
AUMDA	UPD+13~, UPD+41, UPD+51, UPD+57!, UPD+62, UPD+94, UPD+96, UPD+97, UPD+98, UPD+99 , UPD+102, UPD+103, UPD+104, UPD+105
AUMDA1	UPD+13~, UPD+34, UPD+35, UPD+41, UPD+51, UPD+62*, UPD+69, UPD+79, UPD+84, UPD+86 , UPD+93, UPD+94
AUMDINUM	UPD+13~, UPD+98, UPD+104
AUMDT	INACT+1~, INACT+2*, INACT+4
>> AUMERR	UPD+21, UPD+29, UPD+30, UPD+56, UPD+58, UPD+115, UPD+121
>> AUMFND	UPD+33, UPD+34, UPD+35, UPD+36, UPD+41, UPD+44, UPD+62*, UPD+67
>> AUMHDR	RPT+3, RUPD+1, RNEW+1, RSKP+1, RINA+1, RERR+1, RPKL+2, RNAM+3, RMNE+3*, PG+3
AUMICD	UPD+13~, UPD+69*, UPD+71
AUMMJT	UPD+13~, UPD+26*, UPD+38, UPD+46, UPD+85
AUMMNE	UPD+13~, UPD+26*, UPD+30, UPD+35, UPD+38, UPD+46, UPD+50, UPD+52, UPD+58, UPD+59 , UPD+79, UPD+85, UPD+86, UPD+87
AUMOUTC	UPD+13~, UPD+26*, UPD+96, UPD+98, UPD+99
AUMPCLN	UPD+13~, UPD+21, UPD+22, UPD+59
>> AUMPG	OPT+16, PG+2, PG+3
AUMSKIP	UPD+13~, UPD+21, UPD+78, UPD+115, UPD+122
AUMSTD	UPD+13~, UPD+26*, UPD+102, UPD+104, UPD+105
AUMX	UPD+13~, UPD+69, UPD+77, UPD+115, UPD+116, INACT+1~, INACT+3, INACT+4, OPT+44
AUMXS	UPD+13~, UPD+22*, UPD+24, UPD+26, UPD+29, UPD+30, UPD+59
B	RERR+5, RERR+6, RPKL+7, RPKL+8, FBADNAM+1~, FBADNAM+3, FBADMN+1~, FBADMN+3
>> DA	UPD+41, UPD+51, UPD+62, UPD+84, UPD+97, UPD+98, UPD+99, UPD+103, UPD+104, UPD+105
DATAX	RPT+2~
DATAX(	RPT+5*, OPT+5, OPT+9
DATAX(1	OPT+11
DIC	UPD+14!, UPD+37, UPD+45, UPD+97, UPD+98, UPD+99, UPD+103, UPD+104, UPD+105
DIC("DR"	UPD+38, UPD+46
DIC("P"	UPD+97, UPD+103
DIC(0	UPD+46, UPD+97, UPD+98, UPD+99, UPD+103, UPD+104, UPD+105*
DIE	UPD+14!, UPD+84*
>> DIK	POST+2*
>> DIK(1	POST+3, POST+5
DINUM	UPD+13~, UPD+97, UPD+98, UPD+99, UPD+103, UPD+104, UPD+105
>> DIR("L"	OPT+3, OPT+4, OPT+5*
>> DIR(0	OPT+2, OPT+5, OPT+6, OPT+7*
>> DIWF	OPT+16*
>> DIWL	OPT+16*, PG+3
>> DIWR	OPT+16*
DO	UPD+14!
>> DR	UPD+85*
IO	OPT+13, OPT+15, END+2
IO("S"	OPT+15, END+3, PG+1
IO(0	OPT+15, END+2
IOF	PG+3
IOM	PG+3
IOSL	OPT+14, OPT+15
IOST	END+3, PG+1
>> J	RPT+5, RPT+6, OPT+44
>> JNDX	RPT+6*, OPT+1
>> K	OPT+5*
L	RPT+2~, OPT+6*, OPT+7
MN	FBADNAM+1~, FBADNAM+3, FBADMN+1~, FBADMN+3
>> PK1	PKLST+1, PKLST+2, PKLST+3, PKLST+4, PKLST+5, PKLST+6
>> PK2	PKLST+3*, PKLST+4, PKLST+5, PKLST+6
>> PK3	PKLST+5*, PKLST+6
>> PKNAM	PKLST+1, PKLST+4, PKLST+7
>> PXEDT	PKLST+6*, PKLST+7
SKIPIT	UPD+13~, UPD+68, UPD+71, UPD+72, UPD+73, UPD+74*, UPD+76, UPD+81
>> TMNMISS	UPD+115, FBADMN+2, FBADMN+3
>> TMP("AUM11P1"	INACT+5
>> TNMISS	FBADNAM+2, FBADNAM+3
TOTCNT	UPD+13~, UPD+21, UPD+23, UPD+115, UPD+117
>> TOTINACT	UPD+21, UPD+115, UPD+119, INACT+2, INACT+7*
TOTNEW	UPD+13~, UPD+21, UPD+49, UPD+50, UPD+115, UPD+120
TOTUPD	UPD+13~, UPD+21, UPD+83, UPD+115, UPD+118
U	UPD+24, UPD+26, UPD+40, UPD+41, UPD+48, UPD+51, UPD+55, UPD+62, UPD+69, UPD+97 , UPD+103, INACT+4, INACT+6, PKLST+4, PKLST+6, OPT+44, RUPD+4, RNEW+4, RSKP+4, RINA+4 , RERR+6, RNAM+6, RMNE+6, FBADNAM+3, FBADMN+3
X	UPD+37, UPD+45, UPD+97, UPD+98, UPD+99, UPD+103, UPD+104, UPD+105, RPT+2~, OPT+8 , OPT+9, FBADNAM+1~, FBADNAM+3, FBADMN+1~, FBADMN+3, RTRIM~, RTRIM+1*
XABK	UPD+13~, UPD+98, UPD+99, UPD+104, UPD+105
XICD	UPD+13~, UPD+69*, UPD+72, UPD+73, UPD+74
XNAM	UPD+13~, UPD+69*, UPD+77
>> Y	UPD+40, UPD+41, UPD+48, UPD+51, UPD+55, UPD+59, UPD+62, END+3, PG+1
>> ZTQUEUED	OPT+15

Customize PDF page

Package: Table Maintenance

Routine: AUMUP102

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: