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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ICDPSTV

Package: DRG Grouper

Routine: ICDPSTV


Information

ICDPSTV ;NEISC/GRR/EG - POSTINIT FOR DRG GROUPER ; APR 5 1991 [ 12/31/91 2:08 PM ]

Source Information

Source file <ICDPSTV.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 DT^DICRW  ^DIE  IXALL^DIK  EN^DIU2  
DRG Grouper 2 DRGA^ICDPSTV1  ^ICDZCVT  

Entry Points

Name Comments DBIA/ICR reference
SETUP
NOGO
MDCA
RPT ;MDC pointer
ADD1 ;add new mdc's

External References

Name Field # of Occurrence
DT^DICRW ICDPSTV+8
^DIE MDCA
IXALL^DIK ICDPSTV+10
EN^DIU2 ICDPSTV+8
DRGA^ICDPSTV1 ICDPSTV+3
^ICDZCVT ICDPSTV+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Adding 2 new MDC's and moving DRG470"
  • Line Location: ICDPSTV+2
Function Call: WRITE
  • Prompt: !,"Adding 13 new DRG's and repointing UNGROUPABLE RECORDS to MDC 99"
  • Line Location: ICDPSTV+3
Function Call: WRITE
  • Prompt: !,"New Mumps logic to calculate DRG's now being moved to the DRG file!"
  • Line Location: ICDPSTV+6
Function Call: WRITE
  • Prompt: !!,"TEMPORARY DRG FILE (80.9) DELETED!"
  • Line Location: ICDPSTV+9
Function Call: WRITE
  • Prompt: !!,"Initialization of New ICD files and "
  • Line Location: ICDPSTV+17
Function Call: WRITE
  • Prompt: "Grouper v.8 completed.",!
  • Line Location: ICDPSTV+18
Function Call: WRITE
  • Prompt: !,"Cannot do Postinit because the Temporary DRG File (80.9) was not initialized",!,"during the ICD INIT's. Please redo ICD Init's"
  • Line Location: NOGO+0
Routine Call
  • DIE
  • Line Location:
    • MDCA

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICM - [#80.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD - [#80.2] ICDPSTV+7!*, SETUP*, RPT+1*
^ICD("B" SETUP*
^ICD(0 ICDPSTV+8*
^ICDYZ(80.9 - [#80.9] ICDPSTV+4, ICDPSTV+7, RPT+1
^ICM - [#80.3] MDCA!
^ICM(0 MDCA+2*

Label References

Name Line Occurrences
MDCA ICDPSTV+2
NOGO ICDPSTV+4
RPT ICDPSTV+7, SETUP
SETUP ICDPSTV+7

Naked Globals

Name Field # of Occurrence
^(0 ICDPSTV+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA MDCA*!
DIE MDCA*!
DIK ICDPSTV+10*!
DIU ICDPSTV+8*, ICDPSTV+15!
DIU(0 ICDPSTV+8*
DR MDCA*!
>> I ICDPSTV+7*, SETUP, RPT+1, MDCA*, MDCA+1*
ICDMDC MDCA+1*, MDCA+2!
U ICDPSTV+2*, ICDPSTV+8*
X MDCA+1*, MDCA+2!

Marked Items

Name Field # of Occurrence
$T(ADD1+I MDCA+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All