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.; [ 09/13/2001 3:56 PM ]

Source Information

Source file <DGPMGL1.m>

Call Graph

Call Graph Total: 17

Package Total Call Graph
Registration 6 ^DGABUL  RCCK^DGPMBSAR  (,UP43)^DGPMBSR  Q^DGPMGL  ^DGPMGL2  (CLEAN,DONE)^DGPMGLG  
IHS Changes To ADT 5 FORMAT^BDGAD0  ^BDGAD1  ^BDGADD  ^BDGADS  (MSG,PAUSE)^BDGF  
VA Fileman 4 ^%DT  (C,NOW)^%DTC  YN^DICN  ^DIE  
Kernel 2 ^%ZIS  ^%ZTLOAD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGPMGL  

Entry Points

Name Comments DBIA/ICR reference
A
IHS ; skipped VA code from above and added IHS code;IHS/ANMC/LJF 3/30/2001
WHEN ; Asking when to print report/s
RC1
RCQ
Q
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 ;
QUE
ADC
RC ; G&L corrections
GO

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 IHS+8
^%ZTLOAD QUE+5
FORMAT^BDGAD0 IHS+4
^BDGAD1 GO+8
^BDGADD GO+10
^BDGADS GO+10
MSG^BDGF IHS+5
PAUSE^BDGF IHS+3
^DGABUL WHEN+21
RCCK^DGPMBSAR RC1
^DGPMBSR GO+8
UP43^DGPMBSR GO+8
Q^DGPMGL ADC+2, IHS+2, IHS+3, IHS+4
^DGPMGL2 ADC, ADC+1
CLEAN^DGPMGLG GO
DONE^DGPMGLG Q
YN^DICN RC1+7
^DIE GO+13

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+9
Function Call: WRITE
  • Prompt: !!,"NO TOTALS EXIST FOR PREVIOUS DAY!!"
  • Line Location: WHEN+11
Function Call: WRITE
  • Prompt: !!," * BED STATUS REPORT WILL NOT BE CALCULATED...TODAY'S ACTIVITY IS INCOMPLETE! *",*7
  • Line Location: WHEN+14
Function Call: WRITE
  • Prompt: !!," * THE TSR WILL NOT PRINT...TODAY'S ACTIVITY IS INCOMPLETE! *",*7
  • Line Location: WHEN+18
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+20
Function Call: WRITE
  • Prompt: !!,"Note: This output should be printed at a column width of 132.",!
  • Line Location: ADC+3
Function Call: WRITE
  • Prompt: !!,"CENSUS FILES LOCKED; SOMEONE ELSE RUNNING RECALC; TRY AGAIN LATER!!"
  • Line Location: IHS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: IHS+4
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: "/TSR"
  • Condition for execution: TSR
  • Line Location: RC1+5
Function Call: WRITE
  • Prompt: " Totals"
  • Line Location: RC1+5
Function Call: WRITE
  • Prompt: !!,"Recalculate Totals"
  • Line Location: RC1+7
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+11
Routine Call
  • DIE
  • Line Location:
    • GO+13
Routine Call
  • %ZIS
  • Line Location:
    • IHS+8

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)
^BDGCWD - [#9009016.2] IHS+3, WHEN+10, RC+8
^DD("DD" A, A+4, WHEN+4, WHEN+5, WHEN+20, GO+1, RC+2
^DG(43 - [#43] WHEN+21
^DGS(43.5 - [#43.5] RC+1
^DIC(42 - [#42] RC+8
^UTILITY($J A+6!

Label References

Name Line Occurrences
IHS WHEN+16
Q WHEN+2, IHS+8
QUE IHS+8
RC ADC+2, IHS+2
RC1 RC1+11
RCQ RC+4, RC+8, RC1+7, RC1+10
WHEN WHEN+2, WHEN+4, WHEN+5, WHEN+10, WHEN+19, WHEN+20

Naked Globals

Name Field # of Occurrence
^("NOT" WHEN+21
^(0 RC+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ADC+2, IHS+2, GO+1, RC+4*, RC+8*, RC1+1, RC1+6*, RC1+7*, RC1+10, RC1+11
>> %DT WHEN+2*
>> %ZIS IHS+8*
BDGFRM IHS+4~, GO+10
BDGQUIT IHS+4~
>> BDGREP GO+8*, RC1+6, RC1+7*
>> BS A, WHEN+1, WHEN+14*, WHEN+19, WHEN+20, ADC, ADC+1, ADC+2, IHS+1, IHS+2
, RC+4, QUE
>> CD RC+1*, RC+2, RC+4, RC1+10
>> DA GO+13*
>> DD A+7*, WHEN+1, WHEN+2
>> DGNOW GO+1*
>> DGPM("G" WHEN+4, RC+1
>> DGPM("GLS" RC1+1
>> DIE GO+13*
>> DR GO+13*
DT A+2, A+5, WHEN+5, WHEN+14, WHEN+18, RC+3
DTIME WHEN+1
>> GL A, WHEN+1, WHEN+19, WHEN+20, IHS+3, QUE
>> I QUE+1*
IO IHS+8, IHS+9
IO("Q" IHS+8!
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 IHS+8
>> RC ADC+1*, IHS+1*, GO+8, RC+1*, RC+4*, RC+8*, RC1+2*, RC1+10*
>> RCCK ADC+2, RC1+1
>> RCR RC1+2
>> RD WHEN+3*, WHEN+14, WHEN+18, WHEN+20, WHEN+21, RC+2, RC+4, RC+8, RC1+10
>> REM A*
>> TSR WHEN+18*, WHEN+19, WHEN+20, ADC+1, ADC+2, RC+4
>> TSRI WHEN+20
>> WD WHEN+10, RC+8*
>> X A+2, A+4, WHEN+1*, WHEN+2*, WHEN+3, WHEN+10, 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+4*, A+7, WHEN+2, WHEN+3, WHEN+4*, WHEN+5*, WHEN+6, WHEN+20*, GO+1*
, RC+2*
>> YD A+2*, A+4, A+5, WHEN+21
>> ZTDESC QUE*
>> ZTIO QUE*
>> ZTRTN QUE*
>> ZTSAVE( QUE+1*
>> ZTSAVE("BDGFRM" QUE+3*
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