Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AUM41C

Package: Table Maintenance

Routine: AUM41C


Information

AUM41C ;IHS/ASDST/DMJ,SDR,GTH - ICD 9 CODES FOR FY 2004 ; [ 09/09/2003 1:09 PM ]

Source Information

Source file <AUM41C.m>

Entry Points

Name Comments DBIA/ICR reference
PRNT ;
ICD9VNEW ;;ICD 9 DIAGNOSIS, NEW V-CODES: CODE NUMBER(#.01)^DIAGNOSIS(#3)^DESCRIPTION(#10)^USE ONLY WITH SEX(#9.5)^MDC(#5)^DRG(#60-65)
ICD9REV ;;ICD 9 DIAGNOSIS, MODIFIED CODE TITLES: CODE NUMBER(#.01)^DIAGNOSIS(#3)^DESCRIPTION(#10)^USE ONLY WITH SEX(#9.5)^MDC(#5)^DRG(#60-65)
ICD9PINA ;;ICD 9 PROCEDURE, INACTIVE CODES: CODE NUMBER(#.01)^DESCRIPTION(#10)^INACTIVE DATE(#102)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: CRISIS^OTHER
  • Line Location: ICD9REV+5
Function Call: WRITE
  • Prompt: ACUTE
  • Line Location: ICD9REV+10
Function Call: WRITE
  • Prompt: ACUTE
  • Line Location: ICD9REV+12
Function Call: WRITE
  • Prompt: ACUTE
  • Line Location: ICD9REV+14
Function Call: WRITE
  • Prompt: ACUTE
  • Line Location: ICD9REV+16
Function Call: WRITE
  • Prompt: !," CODE",?10,"DIAGNOSIS",!?10,"DESCRIPTION",!," -----",?10,"-----------"
  • Line Location: PRNT+2
Function Call: WRITE
  • Prompt: !," ",$P(Y,U,1),?10,$S($L(P3):P3,1:P2),!?10,P2
  • Line Location: PRNT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
P2 PRNT+3~, PRNT+4*
P3 PRNT+3~, PRNT+4*
U PRNT+1*, PRNT+4
X PRNT+3~, PRNT+4*
Y PRNT+3~, PRNT+4*

Marked Items

Name Field # of Occurrence
$T(ICD9NEW+X PRNT+4
Info |  Source |  Entry Points |  Interaction Calls |  Local Variables |  Marked Items |  All