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

Package: Registration

Routine: DGPTTRIM


Information

DGPTTRIM ;ALB/JDS - SET UP DRG INFO ; 26 AUG 84 14:16

Source Information

Source file <DGPTTRIM.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 ^DIC  ^DIE  
DRG Grouper 1 $$DRG^ICDGTDRG  
Registration 1 $$DGY2K^DGPTOD0  

Entry Points

Name Comments DBIA/ICR reference
ASK ;W !! S DIC="^ICD(",DIC(0)="AEQMZ" D ^DIC G Q:Y'>0 S DGDRG=^ICD(+Y,0)
FY
Q

External References

Name Field # of Occurrence
$$DGY2K^DGPTOD0 FY+1
^DIC ASK+1
^DIE ASK+3
$$DRG^ICDGTDRG ASK+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"SET UP DRG VALUES FOR FISCAL YEARS",!!
  • Line Location: DGPTTRIM+3
Function Call: READ
  • Prompt: "Fiscal year to set up data for: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: DGFY
  • Line Location: FY+0
Function Call: WRITE
  • Prompt: !!,"Enter the fiscal year as 'NN' (ex: '84' for fiscal year 1984).",*7,*7,!
  • Line Location: FY+0
Function Call: WRITE
  • Prompt: !!,"**National DRG Values - not editable**",!?5,$J("WWU: ",16),$P(DGDRG,U,2),!?5,$J("Low Trim Days: ",16),$P(DGDRG,U,3),!?5,$J("High Trim Days: ",16),$P(DGDRG,U,4),!?5,$J("ALOS: ",16),$P(DGDRG,U,8),!!
  • Line Location: ASK+2
Routine Call
  • DIE
  • Line Location:
    • ASK+3
Routine Call
  • DIC
  • Line Location:
    • ASK+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD - [#80.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD("AFY" ASK+3*

Label References

Name Line Occurrences
ASK ASK+3
FY FY
Q FY, ASK+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA ASK+3*, Q!
DGDRG ASK+1*, ASK+2, Q!
DGFY FY*, FY+1, ASK+3, Q!
>> DGFY2K FY+1*, ASK+3
DIC ASK+1*, ASK+3, Q!
DIC(0 ASK+1*
DIE ASK+3*, Q!
DR ASK+3*, Q!
DR(2 ASK+3*
DTIME FY
U ASK+2
Y ASK+1, ASK+3, Q!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All