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 |  Entry Points |  External References |  Interaction Calls |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AUMDO1BS

Package: ICD 9 Updates

Routine: AUMDO1BS


Information

AUMDO1BS ; IHS/OIRM/DSD/JCM,AEF - UPDATE ICD GLOBAL (SUBROUTINE OF AUMDO1B) ; [ 12/03/1998 2:35 PM ]

Source Information

Source file <AUMDO1BS.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
ICD 9 Updates 1 HDR^AUMDO  

Entry Points

Name Comments DBIA/ICR reference
PGRNOTE ; This module contains two subroutines called from AUMDO1B
; (COMMON and DSPSTAT) becuase AUMDO1B got too big after the
; dictionary change in 92.2 distribution.
; Added to new fields to the ICD file dictionaries:
; - DATE LAST UPDATE
; - UPDATE CYCLE #
; COMMON sub-rtn adds these to the DR string
DSPSTAT ; ENTRY POINT from EN+7^AUMDO1B to display status of icd code
COMMON ; ENTRY POINT from EN+5^AUMDO1B-update common fields to each ICD file
; process the INACTIVE FLAG and DATE fields

External References

Name Field # of Occurrence
HDR^AUMDO DSPSTAT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"ENTRY NOT PERMITTED HERE (AUMDO1BS)",!
  • Line Location: AUMDO1BS+2
Function Call: WRITE
  • Prompt: !,?27,"Old status was "_$S(AUMDO("OLD STATUS")="":"active",1:"inactive")
  • Line Location: DSPSTAT+2
Function Call: WRITE
  • Prompt: !,?27,"Status is "
  • Line Location: DSPSTAT+3
Function Call: WRITE
  • Prompt: $S(AUMDO("SUPERCEDED"):"inactive - (Superceded code)",AUMDO("VA EXPANDED"):"inactive - (VA Expanded code)",AUMDO("INACTIVE"):"inactive",AUMDO("ACTIVE"):"active",1:"unchanged")
  • Line Location: DSPSTAT+4

Naked Globals

Name Field # of Occurrence
^(0 COMMON+17, COMMON+19, COMMON+21, COMMON+23
^(1 COMMON+15
^(2100000 COMMON+25, COMMON+27
^(9999999 COMMON+31, COMMON+32

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AUMDO("ACTIVE" DSPSTAT+4
>> AUMDO("ADD!A/R" COMMON+5
>> AUMDO("ADD/REPLACE" DSPSTAT+2
>> AUMDO("CHANGE" COMMON+10
>> AUMDO("ICD DF N" , COMMON+15
>> AUMDO("ICD GL REF" , COMMON+15*
>> AUMDO("INACTIVE" DSPSTAT+4
>> AUMDO("OLD ST ATUS" , DSPSTAT+2
>> AUMDO("STAT F LAG DATE" , COMMON+4*, COMMON+9, COMMON+13, LAG" , COMMON+3*, COMMON+6, COMMON+11
>> AUMDO("SUPERCEDED" DSPSTAT+4
>> AUMDO("UPD DF N" , COMMON+3, COMMON+4, COMMON+15, COMMON+17, COMMON+19, COMMON+21, COMMON+23, COMMON+25, COMMON+27
, COMMON+28, COMMON+31
>> AUMDO("UPD GL REF" , COMMON+3, COMMON+4, COMMON+15, COMMON+17, COMMON+19, COMMON+21, COMMON+23, COMMON+25, COMMON+27
, COMMON+28, COMMON+31
>> AUMDO("VA EXP ANDED" , DSPSTAT+4
>> DR COMMON+7*, COMMON+8*, COMMON+9*, COMMON+12*, COMMON+13*, COMMON+17*, COMMON+19*, COMMON+21*, COMMON+23*, COMMON+25*
, COMMON+27*, COMMON+31*, COMMON+32*, COMMON+33*
U COMMON+3, COMMON+4, COMMON+15, COMMON+17, COMMON+19, COMMON+21, COMMON+23, COMMON+25, COMMON+27, COMMON+31
, COMMON+32
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Naked Globals |  Local Variables |  All