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

Package: IHS ICD CPT Lookup and Grouper

Routine: AICDGRP1


Information

AICDGRP1 ; IHS/OHPRD/GIS - SUPERGROUPER: GROUPER WITH SMART DX AND OP LOOKUP AND PRIORITIZED DISPLAY OF ALL DRG DIAGNOSES ; [ 12/31/2002 1:16 PM ]

Source Information

Source file <AICDGRP1.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 5 ^DGDRG14  ^DGDRG2  ^DGDRG3  ^DGDRG6  ^DGDRG8  
IHS ICD CPT Lookup and Grouper 1 (PAT,Q)^AICDGRP  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS ICD CPT Lookup and Grouper 1 AICDGRP  

Entry Points

Name Comments DBIA/ICR reference
PAT
SUB
LIST ;
MAKEARR
PLOOKUP
NARRQ
OP
D
DLOOKUP
NARR
469
468 ;
CD
Q
WRT
ARR
CATH
DXS
MI
SETDRG
NOP
MORE

External References

Name Field # of Occurrence
PAT^AICDGRP PAT
Q^AICDGRP Q
^DGDRG14 MORE+4
^DGDRG2 MORE+11
^DGDRG3 MORE+11
^DGDRG6 MORE+11
^DGDRG8 MORE+11
^DIC DLOOKUP, PLOOKUP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,X,!
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !,X,!!
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: "RANK: ",AICDI,$J(("DRG: "_$E($P(X,U),4,99)),15),$J(("IHS WEIGHT: "_$P(X,U,7)),22),$J(("ALOS: "_$P(X,U,8)),15)
  • Line Location: NARR+1
Function Call: WRITE
  • Prompt: "ICD9: "
  • Line Location: NARR+2
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: AICDJ>1
  • Line Location: NARR+3
Function Call: WRITE
  • Prompt: "(",$P(Y,U),") ",$P(Y,U,3)
  • Line Location: NARR+3
Function Call: WRITE
  • Prompt: "DRG: (",$E($P(X,U),4,99),") "
  • Line Location: NARR+4
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: AICDL>1
  • Line Location: NARR+5
Function Call: WRITE
  • Prompt: ^(AICDJ,0)
  • Line Location: NARR+5
Function Call: WRITE
  • Prompt: *7,!!,"DRG= 469 PDX INVALID AS DISCHARGE DIAGNOSIS"
  • Line Location: 469+0
Routine Call
  • DIC
  • Line Location:
    • DLOOKUP
    • PLOOKUP

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD9 - [#80] Classic Fileman Calls
^ICD0 - [#80.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD - [#80.2] OP, NARR+5, MORE+10, MORE+11, D, WRT, CATH+1
^ICD0 - [#80.1] OP
^ICD9 - [#80] CD+2

Label References

Name Line Occurrences
468 NOP
469 MORE+9, D, WRT, CATH+1
ARR MAKEARR
CD 468+2
DLOOKUP DXS+1
MI MORE
NARR LIST+2
NARRQ NARR+1, NARR+2, NARR+3, NARR+5
NOP MORE+11
PAT DXS+2, LIST+2, LIST+4
PLOOKUP OP
Q OP+1
SETDRG WRT, SETDRG+1
WRT MORE, MORE+1, MORE+2, MORE+3, MORE+4, MORE+5, MORE+6, MORE+7, MORE+8, MORE+9
, MORE+10, MORE+11, D

Naked Globals

Name Field # of Occurrence
^( NARR+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % OP*
AICDDX DXS!, DXS+2
AICDDX( DXS+1*, SUB, ARR
>> AICDE( LIST+2, NARR, NARR+1, NARR+3
>> AICDE(9 SETDRG*, SETDRG+1, SETDRG+2*
>> AICDI DXS+1*, LIST+2*, NARR*, NARR+1
>> AICDJ MAKEARR*, NARR+3*, NARR+4*, NARR+5*, ARR
>> AICDL NARR+5*
>> AICDN LIST+2*, NARR, NARR+1, NARR+3, WRT*, SETDRG, SETDRG+1*, SETDRG+2
>> AICDPRMT DXS+1*, OP*, DLOOKUP, PLOOKUP
>> AICDTOT DXS+1*, SUB, MAKEARR
AICDVAR 468+1!
>> DA OP*
>> DAM MORE+5
DIC DLOOKUP!*, PLOOKUP!*
DIC("A" DLOOKUP*, PLOOKUP*
DIC(0 DLOOKUP*, PLOOKUP*
>> DRGCAL WRT*, SETDRG, SETDRG+1
>> EXP MORE+7, MI
>> I SETDRG+2*
>> LINE NARR+1, NARR+2, NARR+3, NARR+5
>> MDC ARR*, CD+1*, MORE, MORE+1, MORE+2, MORE+3, MORE+4, MORE+5, MORE+6, MORE+7
, MORE+8, MORE+11, NOP
>> NDR CD+2*, MORE+9
>> NOR OP*, MORE, MORE+9, MORE+10, 468+1*
>> NSD SUB*
>> OR DXS*, OP*, MORE, MORE+1, MORE+2, MORE+3, MORE+6, NOP, 468+1*, CATH
>> ORG OP*
>> ORG( OP*, MORE+11
>> PD CD+1*, MORE+6, MI, CATH
RG CD!, CD+1*, CD+2*, MORE, MORE+1*, MORE+2*, MORE+3*, MORE+5*, MORE+6*, MORE+7*
, MORE+8*, MORE+9*, MORE+10*, MORE+11*, D*, WRT, 469*, MI*, CATH*, CATH+1*
RG( CD+2*
RG(0 MORE+9, MORE+10, D, CATH+1
>> S LIST+1*
>> SD DXS*, SUB*, MORE+6, MI, CATH
>> SD1 DXS*, SUB*, MORE+8
>> SEX CD+1
>> TAC MORE+6*
>> TRS MORE+7
U OP, SUB, LIST+2, NARR+1, NARR+2, NARR+3, NARR+4, NARR+5, ARR, CD+1
, WRT
>> W LIST+1*, LIST+2, NARR+1, NARR+2, NARR+3, NARR+5
>> X DXS+1, OP, OP+1, LIST+1*, LIST+3*, NARR, NARR+1*, NARR+4, NARR+5, DLOOKUP
, PLOOKUP
>> Y DXS+1, OP, NARR+3*, ARR*, CD+2, DLOOKUP, PLOOKUP
>> Y(0 DXS+1, OP, SUB*, ARR*, CD+1, SETDRG, SETDRG+2
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