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 |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"SET UP DRG VALUES FOR FISCAL YEARS",!!
  • Line Location: DGPTTRIM+3
Function Call: READ
  • Formatting: !
  • Prompt: "Fiscal year to set up data for: "
  • Variable: DGFY
  • Timeout: DTIME
  • 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD - [#80.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call