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

Package: Registration

Routine: DGPMBSAR


Information

DGPMBSAR ;ALB/LM/MJK - RECALC ENTRY POINTS; 16 JAN 91

Source Information

Source file <DGPMBSAR.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 ^%DT  C^%DTC  YN^DICN  ^DIE  ^DIK  
Registration 3 (,UP43)^DGPMBSR  (DAT,ERR,PAR,PCHK,RCR)^DGPMGL  DONE^DGPMGLG  
Kernel 1 (,ISQED)^%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: 3

Package Total Caller Graph
Registration 3 DG G&L RECALC  DGPMBSAB  DGPMGL1  

Entry Points

Name Comments DBIA/ICR reference
A
ASK
RPD ;W !!,"Recalculation of patient days could take up to 30 minutes longer per date..."
PR ;W !,"DO YOU WANT TO RECALCULATE PATIENT DAYS" S %=2 D YN^DICN
QUE ; Recalculation Queue
GO1
GO
Q
DAT ; -- get params and chk data
DATQ
CLEAN ; -- clean up corrections file
WDCHK ; -- chk first ward
RCCK ; Check for ReCalc already running
DEFS ; -- defaults for recalc
VAR ; RC=ReCalc from date ; RD=Report Date ;
; PD=Previous Date ; REM=Recalc patient days ;

External References

Name Field # of Occurrence
^%DT ASK, DEFS+1
C^%DTC CLEAN+1, WDCHK+2, WDCHK+3, DEFS+2, DEFS+3
^%ZTLOAD QUE+2
ISQED^%ZTLOAD RCCK+4
^DGPMBSR GO
UP43^DGPMBSR QUE+2
DAT^DGPMGL DAT+1
ERR^DGPMGL A
PAR^DGPMGL A+2
PCHK^DGPMGL A
RCR^DGPMGL RCCK+2
DONE^DGPMGLG Q
YN^DICN RCCK+6
^DIE GO1, CLEAN+4
^DIK CLEAN+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?4,*7,"Can't Recalculate data prior to ",Y,"!"
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"Request Queued!"
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !,"ReCalc Already Scheduled for ",Y,!
  • Line Location: RCCK+5
Routine Call
  • DIE
  • Line Location:
    • GO1
    • CLEAN+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ASK+2, RCCK+5, RCCK+6
^DG(41.9 - [#41.9] WDCHK+2
^DGS(43.5 - [#43.5] CLEAN+2, CLEAN+4
^DIC(42 - [#42] WDCHK+1

Label References

Name Line Occurrences
ASK ASK+2
DAT GO
DATQ DAT+2
DEFS ASK+3, DAT+1
Q A+1, ASK, QUE+3
RCCK A+1, RCCK+6

Naked Globals

Name Field # of Occurrence
^( WDCHK+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% WDCHK+1*, WDCHK+4!, RCCK+6*
%DT ASK*!, DEFS+1*!
%DT("A" ASK*
%DT(0 ASK*
>> BS DEFS+4*
>> C DAT+3*
DA GO1*!, CLEAN+2*, CLEAN+3!, CLEAN+4*, CLEAN+5!
DE CLEAN+5!
DG CLEAN+5!
DGCDT CLEAN+1*, CLEAN+2, CLEAN+4*, CLEAN+5!
>> DGI CLEAN+2*, CLEAN+4*
>> DGPM("G" ASK+1, DAT+3
>> DGPM("GLS" RCCK+2, RCCK+3, RCCK+5, RCCK+6
>> DGPM(0 DAT+2, CLEAN+1
DIE GO1*!, CLEAN+4*, CLEAN+5!
DIK CLEAN+2*, CLEAN+3!
DQ CLEAN+5!
DR GO1*!, CLEAN+4*, CLEAN+5!
DT ASK, CLEAN+1, DEFS+1*, DEFS+2
>> E A, DAT+1*, DAT+2*, DAT+3*
>> EGL CLEAN+4, WDCHK+2, WDCHK+3
>> GL DEFS+4*
>> I QUE+1*, DAT+3*
>> J WDCHK+2*
>> PD DEFS+3*
>> RC ASK+1*, ASK+2, WDCHK+2, WDCHK+3*
RCCK A+1, Q!, RCCK+1!, RCCK+7*
>> RD DEFS+2*
>> REM DEFS+4*
>> TSR DEFS+4*
U DAT+3, CLEAN+1
WD WDCHK+1*, WDCHK+2, WDCHK+4!
>> X ASK+1*, ASK+2, CLEAN+1*, WDCHK+2*, WDCHK+3, DEFS+1*, DEFS+2, DEFS+3
>> X1 CLEAN+1*, WDCHK+2*, WDCHK+3*, DEFS+2*, DEFS+3*
>> X2 CLEAN+1*, WDCHK+2*, WDCHK+3*, DEFS+2*, DEFS+3*
>> Y ASK, ASK+1, ASK+2*, RCCK+5*, RCCK+6*, DEFS+1
>> ZTCPU RCCK+3*
>> ZTDESC QUE+1*
>> ZTIO QUE+1*
>> ZTRTN QUE+1*
>> ZTSAVE( QUE+1*
ZTSK QUE+2!, RCCK+3*
ZTSK(0 RCCK+5
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