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

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Registration 6 ^DGABUL  RCCK^DGPMBSAR  (,UP43)^DGPMBSR  Q^DGPMGL  ^DGPMGL2  (,CLEAN,DONE)^DGPMGLG  
VA FileMan 4 ^%DT  (C,NOW)^%DTC  YN^DICN  ^DIE  
Kernel 2 ^%ZIS  ^%ZTLOAD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGPMGL  

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 ;

External References

Name Field # of Occurrence
^%DT WHEN+2
C^%DTC A+2, A+4, WHEN+3, WHEN+6, RC+3
NOW^%DTC GO+1
^%ZIS ADC+4
^%ZTLOAD QUE+2
^DGABUL WHEN+12
RCCK^DGPMBSAR RC1
^DGPMBSR GO+2
UP43^DGPMBSR GO+2
Q^DGPMGL ADC+2
^DGPMGL2 ADC, ADC+1
^DGPMGLG GO+2
CLEAN^DGPMGLG GO
DONE^DGPMGLG Q
YN^DICN RC1+3
^DIE GO+3

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
Routine Call
  • DIE
  • Line Location:
    • GO+3
Routine Call
  • %ZIS
  • Line Location:
    • ADC+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(43 - [#43] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" A, A+1, A+4, WHEN+4, WHEN+5, WHEN+11, GO+1, RC+2
^DG(41.9 - [#41.9] WHEN+7, RC+5
^DG(43 - [#43] WHEN+12
^DGS(43.5 - [#43.5] RC+1
^DIC(42 - [#42] RC+5
^UTILITY($J A+6!

Label References

Name Line Occurrences
Q WHEN+2, ADC+4
QUE ADC+4
RC ADC+2
RC1 RC1+5
RCQ RC+4, RC+5, RC1+3, RC1+4
WHEN WHEN+2, WHEN+4, WHEN+5, WHEN+7, WHEN+10, WHEN+11

Naked Globals

Name Field # of Occurrence
^("NOT" WHEN+12
^(0 RC+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ADC+2, GO+1, RC+4*, RC+5*, RC1+1, RC1+3*, RC1+4, RC1+5
>> %DT WHEN+2*
>> %ZIS ADC+4*
>> BS A, WHEN+1, WHEN+8*, WHEN+10, WHEN+11, ADC, ADC+1, ADC+2, RC+4, QUE
>> CD RC+1*, RC+2, RC+4, RC1+4
>> DA GO+3*
>> DD A+7*, WHEN+1, WHEN+2
>> DGNOW GO+1*
>> DGPM("G" WHEN+4, RC+1
>> DGPM("GLS" RC1+1
>> DIE GO+3*
>> DR GO+3*
DT A+2, A+5, WHEN+5, WHEN+8, WHEN+9, RC+3
DTIME WHEN+1
>> GL A, WHEN+1, WHEN+10, WHEN+11, QUE
>> I QUE+1*
IO ADC+4, ADC+5
IO("Q" ADC+4!
IOM QUE
ION QUE
IOSL QUE
IOST QUE
>> LD A, A+4*, A+5*, WHEN+6
LW RC+3*, RC+4, RCQ!
>> PD WHEN+3*
>> POP ADC+4
>> RC ADC+1*, GO+2, RC+1*, RC+4*, RC+5*, RC1+2*, RC1+4*
>> RCCK ADC+2, RC1+1
>> RCR RC1+2
>> RD WHEN+3*, WHEN+8, WHEN+9, WHEN+11, WHEN+12, RC+2, RC+4, RC+5, RC1+4
>> REM A*
>> TSLD A+1
>> TSR A+1, WHEN+9*, WHEN+10, WHEN+11, ADC+1, ADC+2, RC+4, RC1+3
>> TSRI A+1, WHEN+11
>> WD WHEN+7, RC+5*
>> X A+2, A+4, WHEN+1*, WHEN+2*, WHEN+3, WHEN+7, RC+3
>> X1 A+2*, A+4*, WHEN+3*, WHEN+6*, RC+3*
>> X2 A+2*, A+4*, WHEN+3*, WHEN+6*, RC+3*
>> Y A*, A+1*, A+4*, A+7, WHEN+2, WHEN+3, WHEN+4*, WHEN+5*, WHEN+6, WHEN+11*
, GO+1*, RC+2*
>> YD A+2*, A+4, A+5, WHEN+12
>> ZTDESC QUE*
>> ZTIO QUE*
>> ZTRTN QUE*
>> ZTSAVE( QUE+1*
Info |  Source |  Call Graph |  Caller 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