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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGPMGL

Package: Registration

Routine: DGPMGL


Information

DGPMGL ;ALB/MRL/LM/MJK - G&L ENTRY POINT; 29 APR 2003

Source Information

Source file <DGPMGL.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 (C,NOW)^%DTC  YN^DICN  DT^DICRW  
Registration 2 A^DGPMGL1  LO^DGUTL  

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 SHEET  DGPMBSAR  DGPMGL1  

Entry Points

Name Comments DBIA/ICR reference
A
PCHK ; Parameter Check
PAR ; -- display params
GLR ; G&L Running
RCR ; ReCalc Running
RCR1
WD
LAST
READ
ERR
Q
Q1
DAT ; -- get params
VAR ; WD=Ward ; LD=Last Date G&L was run ; BS=Bed Status ; GL=G&L ;
; SS=SSN format ; MT=Means Test display ; TS=Treating Speciality ;
; CP=Column Placement ; RM=Right Margin ; OS=OffSet ;
; SNM=Show Non-Movement ; VN=count Vietnam remaining ;
; SF=count > Sixty Five y/o ; TSD=Treating Speciality Default ;

External References

Name Field # of Occurrence
C^%DTC WD+1
NOW^%DTC A
A^DGPMGL1 A+2
LO^DGUTL A
YN^DICN RCR1READ
DT^DICRW A

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"<<<GAINS & LOSSES SHEET/BED STATUS REPORT/TREATING SPECIALTY REPORT>>>",!
  • Line Location: DGPMGL+3
Function Call: WRITE
  • Prompt: !,"'",$S($D(^DD(43,1000_C,0)):$P(^(0),"^",1),1:"UNKNOWN"),"' PARAMETER NOT DEFINED!!"
  • Line Location: PCHK+4
Function Call: WRITE
  • Prompt: !,$E("Earliest Date for G&L"_L,1,58),Y
  • Line Location: PAR+2
Function Call: WRITE
  • Prompt: "NOT DEFINED"
  • Line Location: PAR+4
Function Call: WRITE
  • Prompt: !,$E("Earliest Date to Recalculate"_L,1,58),Y
  • Line Location: PAR+6
Function Call: WRITE
  • Prompt: !,$E("SSN Format"_L,1,58),$S(SS=1:"ENTIRE",1:"LAST FOUR OF")," SSN"
  • Line Location: PAR+7
Function Call: WRITE
  • Prompt: !,$E("Means Test Copay Applicability"_L,1,58),$S(MT:"",1:"NOT "),"DISPLAYED"
  • Line Location: PAR+8
Function Call: WRITE
  • Prompt: !,$E("Patient's Actual Treating Specialty"_L,1,58),$S(TS:"",1:"NOT "),"DISPLAYED"
  • Line Location: PAR+9
Function Call: WRITE
  • Prompt: !,$E("Show Non-Movements on G&L"_L,1,58),$S(SNM:"",1:"DON'T "),"SHOW"
  • Line Location: PAR+10
Function Call: WRITE
  • Prompt: !,$E("Store Vietnam Vet's Remaining in CENSUS file"_L,1,58),$S(VN:"YES",1:"NO")
  • Line Location: PAR+12
Function Call: WRITE
  • Prompt: !,$E("Store Patient's over 65 y/o Remaining in CENSUS file"_L,1,58),$S(SF:"YES",1:"NO")
  • Line Location: PAR+13
Function Call: WRITE
  • Prompt: !,"G&L HAS BEEN RUNNING SINCE ",Y
  • Line Location: GLR+1
Function Call: WRITE
  • Prompt: !,"RECALCULATION IS RUNNING AND CURRENTLY PROCESSING ON ",Y,"."
  • Line Location: RCR+2
Function Call: WRITE
  • Prompt: !?4,"Answer YES if you want to start G&L despite fact recalculation is running",!?4,"otherwise respond NO to abort this process.",*7,!
  • Line Location: RCR1+1
Function Call: WRITE
  • Prompt: !!,"WARDS HAVE NOT BEEN DEFINED!"
  • Line Location: WD+0
Function Call: WRITE
  • Prompt: !!,"TREATING SPECIALTIES HAVE NOT BEEN DEFINED FOR THE TSR!"
  • Line Location: WD+3
Function Call: WRITE
  • Prompt: !!,"G&L HASN'T BEEN RUN IN LAST WEEK...RECALCULATION MUST BE RUN FIRST!!",*7
  • Line Location: LAST+0
Function Call: WRITE
  • Prompt: !!,"TREATING SPECIALTY REPORT WILL NOT BE GENERATED UNTIL THE ",!,"TSR INITIALIZATION DATE IS DEFINED",*7
  • Line Location: LAST+3
Function Call: WRITE
  • Prompt: !!,"TREATING SPECIALTY REPORT WILL NOT BE GENERATED UNTIL THE ",!,"RECALCULATION IS PERFORMED BACK TO THE TSR INITIALIZATION DATE",*7
  • Line Location: LAST+4
Function Call: WRITE
  • Prompt: !!,"NOTHING SELECTED!",*7
  • Line Location: LAST+6
Function Call: WRITE
  • Prompt: !!,"PRINT ",X
  • Line Location: READ+0
Function Call: WRITE
  • Prompt: !?4,"Answer YES if you wish to generate a ",X," for this date",!?4,"Otherwise answer NO."
  • Line Location: READ+1
Function Call: WRITE
  • Prompt: !!,"UNABLE TO PROCEED...CONTACT YOUR SYSTEMS MANAGER OR MAS ADPAC!",*7
  • Line Location: ERR+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PAR+1, PAR+3, PAR+5, GLR+1, RCR+1
^DD(43 PCHK+4
^DG(40.8 - [#40.8] WD+3, WD+4, WD+5, DAT+2
^DG(41.9 - [#41.9] WD+1
^DG(43 - [#43] PCHK+2, DAT+1
^DIC(42 - [#42] WDWD+1

Label References

Name Line Occurrences
DAT PCHK+1
ERR A+1
GLR A+1
LAST A+1, LAST+2, LAST+5
PAR A+1
PCHK A+1
Q A+1
Q1 A+1
RCR GLR+2
RCR1 A+1, RCR1+1
READ LAST+1, LAST+2, LAST+5, READ+1
WD A+1

Naked Globals

Name Field # of Occurrence
^( WD+5, DAT+1
^(0 PCHK+4, WD+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% AA+1, RCR1*, RCR1+1, RCR1+2, RCR1+3, READ*, Q1!
BS LAST+2*, LAST+6, Q!
C PCHK+4*, Q1!
CD Q!
CP Q!, DAT+4*, DAT+5
>> D WD+3*, WD+4, WD+5*
DGPM Q!
DGPM( DAT+1*
DGPM("G" PCHK+2, PCHK+4, PAR+1, PAR+3, PAR+5, DAT+3
DGPM("GL" DAT+2
DGPM("GLS" GLR+1, GLR+2, RCR+1, RCR1
DIV Q!, DAT+2*
DT WD+1
E A+1, PCHK+1*, PCHK+2*, PCHK+4*, RCR1+2*, WD*, LAST*, LAST+1, LAST+2, LAST+5
LAST+6*, READ*, ERR, Q1!
GL LAST+1*, LAST+6, Q!
I PCHK+4*, Q1!
J WD+1*, WD+5*, Q1!
K WD+1*, Q1!
L PAR+1*, PAR+2, PAR+4, PAR+6, PAR+7, PAR+8, PAR+9, PAR+10, PAR+12, PAR+13
WD+1*, LAST, Q1!
LD WD+2*, WD+4, Q!
MT PAR+8, Q!, DAT+3*
NOW A*, GLR+1, Q!
OS Q!, DAT+5*
PD Q!
RC Q!
RCR RCR+3*, Q1!
RD Q!
REM Q!
RM Q!, DAT+4*, DAT+5
SF PAR+13, Q!, DAT+6*
SNM PAR+10, Q!, DAT+5*
SS PAR+7, Q!, DAT+3*, DAT+4
TS PAR+9, Q!, DAT+3*, DAT+4
TSD Q!, DAT+6*
>> TSLD WD+4*, WD+5*, LAST+4, LAST+5
>> TSR LAST+5*, LAST+6
>> TSRI WD+3, WD+4, WD+5, LAST+3, LAST+5, DAT+6*
U A*, DAT+2
VN PAR+12, Q!, DAT+6*
WD WD*, WD+1*, Q!
X WD+1, WD+2, WD+4*, WD+5, LAST+1*, LAST+2*, LAST+5*, READREAD+1, Q1!
DAT+1*, DAT+3*, DAT+4, DAT+5, DAT+6
X1 WD+1*, LAST+1, LAST+2, LAST+5, READ*, Q1!
X2 WD+1*, Q1!
Y PAR+1*, PAR+2, PAR+3*, PAR+4, PAR+5*, PAR+6, GLR+1*, RCR+1*, RCR+2, Q1!
YD Q!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All