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

Package: Registration

Routine: DGPMGL1


Information

DGPMGL1 ;ALB/MRL/LM/MJK - G&L ENTRY POINT CONT.; 1 FEB 89

Source Information

Source file <DGPMGL1.m>

Entry Points

Name Comments DBIA/ICR reference
A
WHEN ; Asking when to print report/s
ADC
GO
Q
RC ; G&L corrections
RC1
RCQ
QUE
VAR ; REM=Recalc Patient Days ; LD=Last Date G&L was run ; YD=YesterDay ;
; RD=Report Date ; PD=Previous Date ; CD= Correction Date ;
; RC=ReCalc from date ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"LAST BED STATUS REPORT TOTALS EXIST FOR ",Y
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !!,"LAST TREATING SPECIALTY REPORT TOTALS EXIST FOR ",Y
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !!,"PRINT REPORT",$S(GL&BS:"S",1:"")," FOR WHICH DATE: ",DD,"// "
  • Line Location: WHEN+1
Function Call: WRITE
  • Prompt: !!,"EARLIEST DATE ALLOWED IS ",Y,".",*7
  • Line Location: WHEN+4
Function Call: WRITE
  • Prompt: !!,"CHOOSE A DATE ON OR BEFORE ",Y,".",*7
  • Line Location: WHEN+5
Function Call: WRITE
  • Prompt: !!,"NO TOTALS EXIST FOR PREVIOUS DAY!!",*7
  • Line Location: WHEN+7
Function Call: WRITE
  • Prompt: !!," * BED STATUS REPORT WILL NOT BE CALCULATED...TODAY'S ACTIVITY IS INCOMPLETE! *",*7
  • Line Location: WHEN+8
Function Call: WRITE
  • Prompt: !!," * THE TSR WILL NOT PRINT...TODAY'S ACTIVITY IS INCOMPLETE! *",*7
  • Line Location: WHEN+9
Function Call: WRITE
  • Prompt: !!,"EARLIEST DATE FOR TREATING SPECIALTY REPORT IS ",Y,".",*7,!!,"TREATING SPECIALTY REPORT WILL NOT BE PRINTED FOR THE DATE SELECTED!"
  • Line Location: WHEN+11
Function Call: WRITE
  • Prompt: !!,"Note: This output should be printed at a column width of 132.",!
  • Line Location: ADC+3
Function Call: WRITE
  • Prompt: !!,"G&L corrections exist from ",Y,"."
  • Line Location: RC+2
Function Call: WRITE
  • Prompt: !,"SINCE G&L CORRECTIONS ARE RECENT (WITHIN LAST WEEK) RECALCULATION WILL OCCUR",!,"AUTOMATICALLY AS THE "_$S('TSR:"BED STATUS REPORT",'BS:"TREATING SPECIALTY REPORT",1:"BSR AND TSR")_" IS COMPUTED!"
  • Line Location: RC+4
Function Call: WRITE
  • Prompt: !!,"Recalculate BSR"
  • Line Location: RC1+3
Function Call: WRITE
  • Prompt: "/TSR"
  • Condition for execution: TSR
  • Line Location: RC1+3
Function Call: WRITE
  • Prompt: " Totals"
  • Line Location: RC1+3
Function Call: WRITE
  • Prompt: !?4,"Answer YES to recalculate totals to insure accurancy or NO to simply print",!?4,"report with existing CENSUS file totals."
  • Line Location: RC1+5

FileMan Files Accessed Via FileMan Db Call

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