Routine: DGPTSPQ

Package	Total	Call Graph
Scheduling	1	CL^SDCO21
VA Fileman	1	^DIE

Package	Total	Caller Graph
Registration	5	DGPTF4 DGPTX53 DGPTX54 DGX5F5 DGX5F6

Entry Points

Name	Comments	DBIA/ICR reference
CHQ
701	;-- This is the input transform logic for the following questions ; for the <701> PTF record: AO, IR, EC, MST, NTR ; Process: Check if the desired indicator was answered on a <501>. ; changed 6/17/98 for MST enhancement ; INPUT DGFLAG - 1=AO, 2=IR, 3=EC, 4=MST, 5=NTR, 6=CV, 7=SHAD
UP701	;-- This function will loop thru the <501> and determine if any ; of the SC, AO, IR, EC, MST, NTR, CV, and SHAD questions have been ; answered. If so, the cooresponding <701> will be updated. ; An answer of "yes" will take presidence.
CHQUES	;-- This function will determine if the patient has any of the ; following indicated : AO, IR, EC, MST, NTR ; If so the array DGEXQ will contain: ; DGEXQ(1)="" - AO ; DGEXQ(2)="" - IR ; DGEXQ(3)="" - SW Asia Conditions/EC ; DGEXQ(4)="" - MST ;added 6/17/98 for MST enhancement ; DGEXQ(5)="" - NTR ;treatment for Head/Neck CA ; ;ONLY if (#28.11) Nose Throat Radium entered ; DGEXQ(6)="" - CV ;treatment for possible combat related ; ;condition ; DGEXQ(7)="" - SHAD ;treatment for Project 112/SHAD ; Otherwise they will be undefined. ; This routine is called from the PTF input templates. ; The following variables are defined: ; DGHOLD : Movemnent record before any changes been made. ; DGPTF : PTF Record Number. ; DGMOV : PTF Movement Number (optional)
UPQ
501	;-- This is the input transform logic for the following questions: ; AO, IR, EC, MST, NTR ; Process: Make sure that the conditions are indicated before ; allowing data to be entered. If the indicators are ; not present and the question was answered, DGER ; will be set to 1. ; INPUT : DGFLAG - Field to check ; DGER - DGER error code

External References

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	CHQUES+19, 701+8, UP701+30*, UP701+31!
DA(1	CHQUES+19
>> DFN	CHQUES+22
DGAO	UP701+7~, UP701+8, UP701+14
DGCV	UP701+7~, UP701+8, UP701+24
DGEC	UP701+7~, UP701+8, UP701+18
>> DGER	501+9, 501+11, 701+6, 701+8
DGEXQ	501+8~
DGEXQ(	501+11
DGEXQ(1	CHQUES+30*
DGEXQ(2	CHQUES+32*
DGEXQ(3	CHQUES+34*
DGEXQ(4	CHQUES+36*
DGEXQ(5	CHQUES+38*
DGEXQ(6	CHQUES+40*
DGEXQ(7	CHQUES+42*
>> DGFLAG	501+11, 701+8
DGHOLD	CHQUES+18~, CHQUES+19*, CHQUES+22
DGIR	UP701+7~, UP701+8, UP701+16
DGMOV	CHQUES+26, UP701+7~, UP701+10*, UP701+12, UP701+14, UP701+16, UP701+18, UP701+20, UP701+22, UP701+24 , UP701+26
DGMST	UP701+7~, UP701+8, UP701+20
DGNTR	UP701+7~, UP701+8, UP701+22
>> DGPTF	CHQUES+26, UP701+10, UP701+30
DGSC	UP701+7~, UP701+8, UP701+12
DGSHAD	UP701+7~, UP701+8, UP701+26
DIE	UP701+30*, UP701+31!
DR	UP701+29*, UP701+31!
I	701+5~, 701+8, UP701+7~, UP701+10
SDCLY	CHQUES+18~, CHQUES+19*, CHQUES+22, CHQUES+28
SDCLY(1	CHQUES+26!, CHQUES+30
SDCLY(2	CHQUES+26!, CHQUES+32
SDCLY(4	CHQUES+34
SDCLY(5	CHQUES+36
SDCLY(6	CHQUES+38
SDCLY(7	CHQUES+40
SDCLY(8	CHQUES+42
U	CHQUES+22, CHQUES+26, 701+8, UP701+12, UP701+14, UP701+16, UP701+18, UP701+20, UP701+22, UP701+24 , UP701+26

Customize PDF page

Package: Registration

Routine: DGPTSPQ

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 5

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: