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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ICDCOD

Package: DRG Grouper

Routine: ICDCOD


Information

ICDCOD ;ALB/ABR/ADL - Inquire to ICD Codes ;04/21/2014

Source Information

Source file <ICDCOD.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
DRG Grouper 3 ($$ICDDX,$$ICDOP)^ICDCODE  EFFDATE^ICDDRGM  ($$ROOT,$$VLT,INQ)^ICDEX  
VA Fileman 3 DD^%DT  EN^DIQ1  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
DRG Grouper 1 ICD INQUIRY  

Entry Points

Name Comments DBIA/ICR reference
EN ;
1 ;ICD DIAGNOSIS CODE
2 ;ICD OPERATION/PROCEDURE
EXIT
DATE
INA ; Inquire

External References

Name Field # of Occurrence
DD^%DT 1+7, 2+7
EN^DIQ1 1+3, 2+3
^DIR DATE+1, 1+2, 2+2
$$ICDDX^ICDCODE 1+4
$$ICDOP^ICDCODE 2+4
EFFDATE^ICDDRGM DATE
$$ROOT^ICDEX 1+3, 2+3
$$VLT^ICDEX 1+6, 2+6
INQ^ICDEX INA+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: 1+2
Function Call: WRITE
  • Prompt: !!,ICDASK(80,DA,.01,"E"),?15,$P(ICDTMP,"^",4)
  • Line Location: 1+5
Function Call: WRITE
  • Prompt: !,$$VLT^ICDEX(80,+DA,ICDDATE)," ",$P(ICDTMP,U,18),!
  • Line Location: 1+6
Function Call: WRITE
  • Prompt: " AS OF ",Y," **",!
  • Line Location: 1+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: 2+2
Function Call: WRITE
  • Prompt: !!,ICDASK(80.1,DA,.01,"E"),?15,$P(ICDTMP,"^",5)
  • Line Location: 2+5
Function Call: WRITE
  • Prompt: !,$$VLT^ICDEX(80.1,+DA,ICDDATE)," ",$P(ICDTMP,U,14),!
  • Line Location: 2+6
Function Call: WRITE
  • Prompt: " AS OF ",Y," **",!
  • Line Location: 2+7
Routine Call
  • DIR
  • Line Location:
    • DATE+1
    • 1+2
    • 2+2

Label References

Name Line Occurrences
@( DATE+1
DATE DATE+2
EXIT DATE

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA EN+1~, 1+3*, 1+4, 1+5, 1+6, 2+3*, 2+4, 2+5, 2+6
DIC EN+1~, 1+3*, 2+3*
DIQ EN+1~, 1+3*, 2+3*
DIQ(0 1+3*, 2+3*
DIR EN+1~
DIR("S" 1+2*!, 2+2*!
DIR(0 DATE+1*, 1+1*, 2+1*
DIRUT EN+1~, DATE+1, 1+2, 2+2
DR EN+1~, 1+3*, 2+3*
DTOUT EN+1~, DATE, DATE+1
DUOUT EN+1~, DATE
ICDASK 1+3~, 2+3~
ICDASK( 2+5
ICDASK(80 1+5
>> ICDDATE 1+4, 1+6, 2+4, 2+6
ICDTMP EN+1~, 1+4*, 1+5, 1+6, 1+7, 2+4*, 2+5, 2+6, 2+7
U 1+6, 1+7, 2+6, 2+7
X EN+1~
Y EN+1~, DATE+1, 1+2, 1+3, 1+7*, 2+2, 2+3, 2+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All