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 Total: 6

Package	Total	Call Graph
VA Fileman	3	(C,NOW)^%DTC YN^DICN DT^DICRW
Registration	2	A^DGPMGL1 LO^DGUTL
IHS Changes To ADT	1	PAUSE^BDGF

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Registration	4	DG G&L SHEET DG IHS CEN A&D DGPMBSAR DGPMGL1

Entry Points

Name	Field # of Occurrence
C^%DTC	WD+2
NOW^%DTC	A
PAUSE^BDGF	ERR+1
A^DGPMGL1	A+2
LO^DGUTL	A
YN^DICN	RCR1, READ
DT^DICRW	A

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"<<< ADMISSIONS & DISCHARGES SHEET >>>" Line Location: DGPMGL+8
Function Call: WRITE	Prompt: !,"<< Also called GAINS & LOSSES [G&L] >>",! Line Location: DGPMGL+9
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+10
Function Call: WRITE	Prompt: !,$E("Means Test Copay Applicability"_L,1,58),$S(MT:"",1:"NOT "),"DISPLAYED" Line Location: PAR+11
Function Call: WRITE	Prompt: !,$E("Patient's Actual Treating Specialty"_L,1,58),$S(TS:"",1:"NOT "),"DISPLAYED" Line Location: PAR+12
Function Call: WRITE	Prompt: !,$E("Show Non-Movements on G&L"_L,1,58),$S(SNM:"",1:"DON'T "),"SHOW" Line Location: PAR+13
Function Call: WRITE	Prompt: !,$E("Store Vietnam Vet's Remaining in CENSUS file"_L,1,58),$S(VN:"YES",1:"NO") Line Location: PAR+15
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+16
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+6
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+8
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+9
Function Call: WRITE	Prompt: !!,"NOTHING SELECTED!",*7 Line Location: LAST+11
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

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

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

Name	Field # of Occurrence
^(	WD+8, DAT+1
^(0	WD+2

Local Variables

Name	Field # of Occurrence
%	A, A+1, RCR1, RCR1+1, RCR1+2, RCR1+3, READ, Q1!
BS	LAST+3, LAST+7, LAST+11, Q!
C	Q1!
CD	Q!
CP	Q!, DAT+7*, DAT+8
>> D	WD+6, WD+7, WD+8
DGPM	Q!
DGPM(	DAT+1*
DGPM("G"	PCHK+2, PAR+1, PAR+3, PAR+5, DAT+6
DGPM("GL"	DAT+2
DGPM("GLS"	GLR+1, GLR+2, RCR+1, RCR1
DIV	Q!, DAT+2*
DT	WD+2
E	A+1, PCHK+1, PCHK+2, RCR1+2, WD, LAST, LAST+6, LAST+7, LAST+10, LAST+11 , READ*, ERR, Q1!
GL	LAST+3, LAST+6, LAST+11, Q!
I	Q1!
J	WD+2, WD+8, Q1!
K	WD+2*, Q1!
L	PAR+1, PAR+2, PAR+4, PAR+6, PAR+10, PAR+11, PAR+12, PAR+13, PAR+15, PAR+16 , WD+2, LAST, Q1!
LD	WD+3*, WD+7, Q!
MT	PAR+11, Q!, DAT+6*
NOW	A*, GLR+1, Q!
OS	Q!, DAT+8*
PD	Q!
RC	Q!
RCR	RCR+3*, Q1!
RD	Q!
REM	Q!
RM	Q!, DAT+7*, DAT+8
SF	PAR+16, Q!, DAT+9*
SNM	PAR+13, Q!, DAT+8*
SS	PAR+10, Q!, DAT+6*, DAT+7
TS	PAR+12, Q!, DAT+6*, DAT+7
TSD	Q!, DAT+9*
>> TSLD	WD+7, WD+8, LAST+9, LAST+10
>> TSR	LAST+3, LAST+10, LAST+11
>> TSRI	WD+6, WD+7, WD+8, LAST+8, LAST+10, DAT+9*
U	A*, DAT+2
VN	PAR+15, Q!, DAT+9*
WD	WD, WD+2, Q!
X	WD+2, WD+3, WD+7, WD+8, LAST+6, LAST+7, LAST+10, READ, READ+1, Q1! , DAT+1, DAT+6, DAT+7, DAT+8, DAT+9
X1	WD+2, LAST+6, LAST+7, LAST+10, READ, Q1!
X2	WD+2*, Q1!
Y	PAR+1, PAR+2, PAR+3, PAR+4, PAR+5, PAR+6, GLR+1, RCR+1*, RCR+2, Q1!
YD	Q!

Customize PDF page

Package: Registration

Routine: DGPMGL

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
A
Q1
PAR	; -- display params
WD
LAST
ERR
READ
RCR	; ReCalc Running
Q
RCR1
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 ;
GLR	; G&L Running
PCHK	; Parameter Check

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed