Routine: DGPMGL5

Package	Total	Call Graph
VA Fileman	3	DT^DICRW ^DIE ^DIR
Kernel	1	^%ZIS

Package

Total

Call Graph

VA Fileman

DT^DICRW ^DIE ^DIR

Kernel

^%ZIS

Package	Total	Caller Graph
Registration	1	DGPM G&L PARAMETER EDIT

Package

Total

Caller Graph

Registration

DGPM G&L PARAMETER EDIT

Name	Comments	DBIA/ICR reference
ASK	;
EDIT	; -- edit params
EN	;
DIS	; -- display params

Name	Field # of Occurrence
^%ZIS	DIS+2
DT^DICRW	DIS+1
^DIE	EDIT+1
^DIR	ASK+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?27,"ENTER/EDIT G&L PARAMETERS",! Line Location: DIS+3
Function Call: WRITE	Prompt: I Line Location: DIS+3
Function Call: WRITE	Prompt: !,"G&L Initialization Date",?43,": " Line Location: DIS+4
Function Call: WRITE	Prompt: $S(Y]"":Y,1:"NOT SPECIFIED") Line Location: DIS+4
Function Call: WRITE	Prompt: !,"TSR Initialization Date",?43,": " Line Location: DIS+5
Function Call: WRITE	Prompt: $S(Y]"":Y,1:"NOT SPECIFIED") Line Location: DIS+5
Function Call: WRITE	Prompt: !,"SSN Format",?43,": DISPLAY ",$S($P(DGPM,"^",2)=6:"LAST FOUR ONLY",$P(DGPM,"^",2)=1:"ENTIRE SSN",1:"FORMAT UNSPECIFIED") Line Location: DIS+6
Function Call: WRITE	Prompt: !,"Means Test Copay Applicability Display",?43,": ",$S($P(DGPM,"^",3):"YES",1:"NO") Line Location: DIS+7
Function Call: WRITE	Prompt: !,"Patient's Treating Specialty (Display)",?43,": ",$S($P(DGPM,"^",4):"YES",1:"NO") Line Location: DIS+8
Function Call: WRITE	Prompt: !,"Show Non-Movements on G&L",?43,": ",$S($P(DGPM,"^",6):"YES",1:"NO") Line Location: DIS+10
Function Call: WRITE	Prompt: !,"Recalculate From (Earliest Date to Recalc)",?43,": " Line Location: DIS+11
Function Call: WRITE	Prompt: $S(Y]"":Y,1:"UNSPECIFIED") Line Location: DIS+11
Function Call: WRITE	Prompt: !,"Count Vietnam Vets Remaining",?43,": ",$S($P(DGPM,"^",8):"YES",1:"NO") Line Location: DIS+12
Function Call: WRITE	Prompt: !,"Count Over 65'S Remaining (patients>65 y/o)",?43,": ",$S($P(DGPM,"^",9):"YES",1:"NO") Line Location: DIS+13
Function Call: WRITE	Prompt: !,"Days to Maintain G&L Corrections",?43,": ",$S($D(^DG(43,1,0)):+$P(^(0),U,29),1:0) Line Location: DIS+15
Function Call: WRITE	Prompt: !,I Line Location: DIS+16
Function Call: WRITE	Prompt: ! Line Location: EDIT+1
Routine Call	DIE Line Location: EDIT+1
Routine Call	DIR Line Location: ASK+5
Routine Call	%ZIS Line Location: DIS+2

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DIS+4, DIS+5, DIS+11
^DG(43 - [#43]	DIS+1, DIS+15

Name	Line Occurrences
ASK	EN+1
DIS	EN+1
EDIT	EN+2
EN	EN+2

Name	Field # of Occurrence
^("G"	DIS+1
^(0	DIS+15

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EDIT+1*, EDIT+2!
DE	EDIT+2!
DG	EDIT+2!
DGPM	DIS+1*, DIS+4, DIS+5, DIS+6, DIS+7, DIS+8, DIS+10, DIS+11, DIS+12, DIS+13 , DIS+17!
DIE	EDIT+1*, EDIT+2!
DIR	ASK+5!
DIR("?"	ASK+2, ASK+3, ASK+4*
DIR("A"	ASK+1*
DIR("B"	ASK+1*
DIR(0	ASK+1*
DQ	EDIT+2!
DR	EDIT+1*, EDIT+2!
I	DIS+3!, DIS+16!, DIS+17!
IOF	DIS+3
IOP	DIS+2*!
U	DIS+1*, DIS+15
>> Y	EN+2, DIS+4, DIS+5, DIS+11*

Customize PDF page

Package: Registration

Routine: DGPMGL5

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: