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

Package: Registration

Routine: DGPTBE1


Information

DGPTBE1 ;ALB/BOK - ENTER BREAKEVEN VALUES FOR DRG ; 27 APR 88 @ 0900

Source Information

Source file <DGPTBE1.m>

Entry Points

Name Comments DBIA/ICR reference
FY
QRTR
SV
BE
CONTINU
Q
W
TABLE
DRG
C
DGBE
HELP
HELP1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: FY+0
Function Call: WRITE
  • Prompt: X
  • Line Location: FY+0
Function Call: WRITE
  • Prompt: !!?12,"CHOOSE FROM: ",!?12,"Q - values are entered on a quarterly basis",!?12,"F - values are entered once a year and are ",!?16,"therefore the same for each quarter."
  • Line Location: FY+1
Function Call: READ
  • Variable: DGFY
  • Timeout: DTIME
  • Line Location: QRTR+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SV+0
Function Call: WRITE
  • Prompt: X
  • Line Location: SV+0
Function Call: WRITE
  • Prompt: !!?12,"CHOOSE FROM: ",!?12,"I - values are entered for each service",!?12,"S - one value is entered and used for all services"
  • Line Location: SV+1
Function Call: WRITE
  • Prompt: Q
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!,$J("TABLE OF BREAKEVEN VALUES YOU HAVE SELECTED:",55),!,DGHD,!
  • Line Location: TABLE+0
Function Call: WRITE
  • Prompt: "------- "
  • Line Location: TABLE+0
Function Call: WRITE
  • Prompt: !,DGFY,?7
  • Line Location: TABLE+1
Function Call: WRITE
  • Prompt: ?3,$J($P(DGVALUES,"^",%),10)
  • Line Location: TABLE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TABLE+2
Function Call: WRITE
  • Prompt: !,DGHD,!
  • Line Location: DRG+5
Function Call: WRITE
  • Prompt: "------- "
  • Line Location: DRG+5
Function Call: WRITE
  • Prompt: !,DGFY,$S(DGY:"",1:I),?7
  • Line Location: DRG+6
Function Call: WRITE
  • Prompt: ?3,$J($P(DGCURENT(I),"^",%),10)
  • Line Location: DRG+6
Function Call: WRITE
  • Prompt: !!,"COPY VALUES FROM TABLE INTO DRG FILE"
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !!?12,"Y - to have your selected breakeven values",!?16,"copied into the DRG File",!?12,"N - to make no changes to the DRG File"
  • Line Location: C+0
Function Call: READ
  • Variable: DGBE
  • Timeout: DTIME
  • Line Location: DGBE+0
Function Call: WRITE
  • Prompt: !,"enter a number between 0 and 366, up to 1 decimal digit"
  • Line Location: DGBE+0
Function Call: WRITE
  • Prompt: !,"BREAKEVEN DAYS: "
  • Line Location: DGBE+0
Function Call: WRITE
  • Prompt: !!?5,"Please enter a 4-digit fiscal year",$S(DGY:" and quarter",1:"")," as 1999",$S(DGY:"1",1:"")," for fiscal",!?5,"year 1999",$S(DGY:" first quarter",1:""),". Fiscal years earlier than 1980 not allowed."
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !!?12,"CHOOSE FROM: ",!?12,"Y - yes to copy the same breakeven values from the table",!?16,"into a different DRG",!?12,"N - no to exit"
  • Line Location: HELP1+0

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