Routine: DGPTSCAN

Information

DGPTSCAN ;ALB/MTC - SPECIAL ACTION SCAN PROCESS ; 1 MAR 91

Source Information

Source file <DGPTSCAN.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Kernel	1	HOME^%ZIS
Registration	1	LO^DGUTL
Uncategorized	1	UPD^YSGAF
VA Fileman	1	^DIE

Caller Graph

Caller Graph Total: 17

Package	Total	Caller Graph
Registration	17	DGPTF4 DGPTFM0 DGPTFM1 DGPTFM4 DGPTFM5 DGPTFM6 DGPTFM8 DGPTFQWK DGPTFVC1 DGPTFVC3 DGPTSC01 DGPTUTL DGPTX44 DGPTX52 DGPTX7 DGPTX74 DGX5F4

Entry Points

Name	Comments	DBIA/ICR reference
SCAN	;-- process DGPTIT array
S1	;-- check inactive dates, set flag array
DC	;-- find discharge date
CHK4Q
GETNUM	;-- returns the number of additional questions/flags
CHK601	;--
ANYPSY	;-- will go through all movements check for PSYCH specialty
SCANQ	;
CHK6Q
FLGFIL	;-- fill DGBPC with correct flag.
ANYQ	;
FLGFILQ	;
INIT	;-- init routine
ISPSYQ
CHK701	;-- will get data from flagchk then stuff into 701 (300 node)
CHK7J
S1Q	;
ENQ	;
CHK501	;--
CHK5Q
FL1Q
FLAGQ
ANYSC(PTF)	;-- will go through all movements check for sc treatment ; INPUT - ptf record ien to check ; OUTPUT- 1 sc treatment, 0 no sc treatment
CHK7Q	;
FL1	;
CHK401	;--
FLAGCHK	;-- build 701 from 501 responses, kill flags if necessary
INITQ	;
ANYSCQ	;
ISPSY	;-- check if losing specialty is in psych range set flag.

External References

Name	Field # of Occurrence
HOME^%ZIS	INIT+5
LO^DGUTL	INIT+5
^DIE	CHK501+8, CHK601+8, CHK401+8, CHK7J
UPD^YSGAF	CHK501+17

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGPT - [#45]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPT - [#45]	CHK501+2, CHK501+4, CHK501+14, CHK501+15, CHK501+16, CHK601+2, CHK401+2, CHK401+4, CHK701+1, CHK701+4 , FLAGCHK+2, FLAGCHK+3, FLAGCHK+4, DC+1, ANYPSY+3, ANYPSY+4, ISPSY+4, ANYSC+5, ANYSC+6
^DIC(42.4 - [#42.4]	ISPSY+4
^DIC(45.88 - [#45.88]	S1+4
^DIC(45.89 - [#45.89]	SCAN+5, S1+1

Label References

Name	Line Occurrences
ANYPSY	CHK701+3
ANYQ	ANYPSY+3
ANYSCQ	ANYSC+5
CHK4Q	CHK401+6
CHK5Q	CHK501+6
CHK6Q	CHK601+6
CHK7Q	CHK701+1
DC	CHK701+3, SCAN+4, INIT+4
ENQ	CHK501+1, CHK501+2, CHK601+1, CHK601+2, CHK401+1, CHK401+2
FL1	FLAGCHK+2, FLAGCHK+4
FLAGCHK	CHK701+3
FLGFIL	S1+6
FLGFILQ	FLGFIL+1
GETNUM	CHK701+5, FL1+1
INIT	CHK501+1, CHK601+1, CHK401+1
ISPSY	SCAN+2, ANYPSY+4
ISPSYQ	ISPSY+3
S1	SCAN+5
S1Q	S1+1, S1+2, S1+4, S1+5
SCAN	CHK501+5, CHK601+5, CHK401+5, CHK701+3
SCANQ	SCAN+3

Naked Globals

Name	Field # of Occurrence
^(	ANYSC+6
^(0	CHK501+2, CHK601+2, CHK401+2, S1+1, S1+4
^(300	CHK501+4, CHK401+4, CHK701+4, FLAGCHK+2, FLAGCHK+4
^(70	CHK701+1, FLAGCHK+3, DC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	CHK501+7, CHK5Q!, CHK601+7, CHK6Q!, CHK401+7, CHK4Q!, CHK701+4, CHK7Q+1!
DG701	CHK701+6, CHK7Q+1!, FLAGCHK+1, FL1+2, ENQ+1!
DGBPC	CHK501+6, CHK5Q!, CHK6Q!, CHK401+6, CHK4Q!, SCAN+1!, ENQ+1!
DGBPC(	CHK701+6, FL1+2!, FLGFIL+2*
DGBPC(5	ANYPSY+5!
DGBPC(6	ANYPSY+5!
DGBPC(7	ANYPSY+5!
DGBPC(8	CHK601+6
DGDFN	CHK501+13~, CHK501+14*, CHK501+17
DGFNUM	CHK701+6, CHK7Q+1!, FL1+2, FL1Q!, GETNUM+1*
DGGAFDT	CHK501+13~, CHK501+15*, CHK501+17
DGGAFPR	CHK501+13~, CHK501+16*, CHK501+17
DGGAFSC	CHK501+13~, CHK501+14*, CHK501+17
DGHOLD	CHK501+4, CHK501+6, CHK501+14, CHK5Q!, CHK601+4, CHK601+6, CHK6Q!, CHK401+4, CHK401+6, CHK4Q! , FLAGCHK+2, FLAGCHK+4, FL1+2, FL1Q!, INIT+1
DGI	CHK501+3, CHK5Q!, CHK601+3, CHK6Q!, CHK401+3, CHK4Q!, CHK701+2, CHK7Q+1!, FLAGCHK+2, FLAGQ! , SCAN+5, SCANQ+1!, ENQ+1!
DGII	CHK701+6, CHK7Q+1!, FL1+2, FL1Q!, S1+6*, S1Q+1!
DGJ	FLAGCHK+2, SCAN+5, SCANQ+1!
DGK	FL1Q!, SCAN+5*, SCANQ+1!, S1+1
DGMOV	CHK501+2, CHK501+4, CHK501+16, ANYPSY+1~, ANYPSY+4, ISPSY+3, ISPSY+4, ANYSC+3~, ANYSC+6
DGNDIS	FLAGCHK+3*, FLAGCHK+4, FLAGQ!
DGOUT	CHK501+1, CHK5Q!, CHK601+1, CHK6Q!, CHK401+1, CHK4Q!, CHK7Q+1!, FLAGCHK+1, ENQ+1!, INIT+1
DGPSY	ANYPSY+2!, ANYPSY+4*, ANYPSY+5
>> DGPTF	CHK501+2, CHK501+4, CHK501+7, CHK501+14, CHK501+15, CHK501+16, CHK601+2, CHK601+7, CHK401+2, CHK401+4 , CHK401+7, CHK701+1, CHK701+4, FLAGCHK+2, FLAGCHK+3, FLAGCHK+4, ANYPSY+3, ANYPSY+4, ISPSY+4
DGPTIT	CHK5Q!, CHK6Q!, CHK4Q!, SCAN+3, ENQ+1!, INIT+6!
DGPTIT(	CHK501+3, CHK601+3, CHK401+3, CHK701+2, SCAN+5
DGREC	CHK501+2, CHK501+3, CHK5Q!, CHK601+2, CHK601+3, CHK601+4, CHK6Q!, CHK401+2, CHK401+3, CHK4Q! , CHK701+1, CHK701+2, CHK701+4*, CHK701+6, CHK7Q+1!, ENQ+1!
DGSCDT	CHK5Q!, CHK4Q!, CHK7Q+1!, S1+2, S1+5, DC+1*, ENQ+1!
DGSPEC	SCANQ+1!, ANYPSY+4, ANYQ+1!, ISPSY+2!, ISPSY+3, ISPSY+4!, FLGFIL+1
DGSTART	CHK5Q!, CHK4Q!, CHK7Q+1!, ENQ+1!, INIT+3*
>> DGSUR	CHK401+2, CHK401+4
DGT	CHK7Q+1!
DGTREC	CHK5Q!, CHK4Q!, CHK7Q+1!, ENQ+1!, INIT+1*
>> DGZP	CHK601+2
DIE	CHK501+7, CHK5Q!, CHK601+7, CHK6Q!, CHK401+7, CHK4Q!, CHK701+4, CHK7Q+1!
DR	CHK501+7, CHK5Q!, CHK601+7, CHK6Q!, CHK401+7, CHK4Q!, CHK701+4, CHK701+6*, CHK7J, CHK7Q+1!
DT	DC+1
>> P(	CHK601+2
PTF	DC+1, ANYSC~, ANYSC+5, ANYSC+6
RESULT	ANYSC+3~, ANYSC+4, ANYSC+6, ANYSCQ+1
U	CHK501+3, CHK601+3, CHK601+6, CHK401+3, CHK701+2, CHK701+6, FL1+2, S1+2, S1+5, S1+6 , ISPSY+4, ANYSC+6
X	S1+1, S1+2, S1+3, S1+4, S1+5, S1+6*, S1Q+1!
Y	S1+3, S1+4, S1+6, S1Q+1!, FLGFIL+1, FLGFIL+2

Customize PDF page

Package: Registration

Routine: DGPTSCAN

Call Graph Total: 4

Caller Graph Total: 17