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

Package: Table Maintenance

Routine: AUMUP102


Information

AUMUP102 ;IHS/OIT/ABK - AUM 11 patch 1 AUTTEDT LOAD [ 10/09/2010 4:11 PM ]

Source Information

Source file <AUMUP102.m>

Call Graph

Call Graph Total: 13

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  

Caller Graph

Caller Graph Total: 1

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