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 |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 3 IN^DGHELP  ^DGPTBE2  $$DGY2K^DGPTOD0  
VA Fileman 3 ^DIC  WAIT^DICD  YN^DICN  
Kernel 1 $$FMTE^XLFDT  

Entry Points

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

External References

Name Field # of Occurrence
IN^DGHELP FY+1, SV+1
^DGPTBE2 C+1
$$DGY2K^DGPTOD0 QRTR+4
^DIC DRG
WAIT^DICD C+1
YN^DICN CONTINU, C
$$FMTE^XLFDT QRTR+6

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: DGFY
  • Line Location: QRTR+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: DGBE
  • 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
Routine Call
  • DIC
  • Line Location:
    • DRG

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 - [#80.2] DRG+1, DRG+2, DRG+3

Label References

Name Line Occurrences
C C
CONTINU HELP1
DGBE BE, BE+1, DGBE
DRG BE+2, CONTINU
FY FY+1
HELP FY+4, QRTR, QRTR+1, QRTR+5
HELP1 CONTINU
Q FY, QRTR, SV, BE+2
QRTR QRTR, QRTR+1, QRTR+5
SV SV+1
TABLE BE+2
W BE+1

Naked Globals

Name Field # of Occurrence
^(0 DRG+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% FY+1*, SV+1, BE*, CONTINU*, Q!, TABLE*, TABLE+1*, DRG+1*, DRG+2*, DRG+3*
, DRG+4*, DRG+5*, DRG+6*, C*, C+1
DGBE BE, BE+1, Q!, C+1*, DGBE*
DGCURENT Q!, DRG!*, DRG+4*, DRG+5, DRG+6
DGCURENT( DRG+3*, DRG+4, DRG+6
DGCURENT(1 DRG+2*
DGFY QRTR*, QRTR+1, QRTR+4, QRTR+6*, Q!, TABLE+1, DRG+1, DRG+2, DRG+3, DRG+6
DGFY1 Q!, DRG+1*
DGFY2B QRTR+3~, QRTR+4*, QRTR+5, QRTR+6*
DGGO BE, BE+1, BE+2, CONTINU*, Q!, DGBE*, DGBE+1*
DGHD SV+2*, Q!, TABLE, DRG+5
DGQRTR Q!
DGS SV+2*, BE, BE+1, Q!
DGSV BE+1*, Q!, W
DGVALUES BE*, BE+1*, Q!, TABLE+1, C+1
DGY FY+2*, QRTR, QRTR+1, Q!, DRG+1, DRG+2, DRG+3, DRG+5, DRG+6, HELP
DIC Q!, DRG*!
DIC("A" DRG*
DIC(0 DRG*
DRG Q!, DRG*, DRG+1, DRG+2, DRG+3, DRG+5
DTIME FY, QRTR, SV, DGBE
I Q!, DRG+3*, DRG+6*
X FY*, FY+2, SV*, SV+2, Q!
Y Q!, DRG
Z FY*, SV*, Q!
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 |  All