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: AUM81C

Package: Table Maintenance

Routine: AUM81C


Information

AUM81C ;IHS/ASDST/DMJ,SDR,GTH - ICD 9 CODES FOR FY 2008 ; [ 08/18/2003 4:01 PM ]

Source Information

Source file <AUM81C.m>

Entry Points

Name Comments DBIA/ICR reference
PRNT ;
ICD0OREV ;;ICD OPERATION/PROCEDURE, OTHER REVISED CODES: CODE NUMBER(#.01)^OPERATION/PROCEDURE(#4)^DESCRIPTION(#10)^MDC(#80.12)-DRG(#80.12,1-6) (Multiple MDCs/DRGs separated by "~")
ICD9OREV ;;ICD 9 DIAGNOSIS, OTHER MODIFIED CODE TITLES: CODE NUMBER(#.01)^DIAGNOSIS(#3)^DESCRIPTION(#10)^USE ONLY WITH SEX(#9.5)^MDC(#5)^DRG(#60-65)^LOWER AGE(#9999999.01)^UPPER AGE(#9999999.02)
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)

Interaction Calls

Name Line Occurrences
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