Routine: DGPTSCAN

Information

DGPTSCAN ;ALB/MTC,WOIFO/PMK - SPECIAL ACTION SCAN PROCESS ;03/26/2015 3:27 PM

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Registration	2	PTFICD^DGPTFUT LO^DGUTL
Kernel	1	HOME^%ZIS
Mental Health	1	UPD^YSGAF
VA FileMan	1	^DIE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 25

Package	Total	Caller Graph
Registration	25	DG701 DG701-10D DGPTF4 DGPTFM0 DGPTFM1 DGPTFM4 DGPTFM5 DGPTFM6 DGPTFM8 DGPTFQWK DGPTFVC1 DGPTFVC3 DGPTSC01 DGPTUTL DGPTX41 DGPTX51 DGPTX7 DGPTX73 DGX44 DGX57 DGX5F1 DGX5FD8 DGX63 DGX7 DGX75

Entry Points

Name	Comments	DBIA/ICR reference
CHK501	;--
CHK5Q
CHK601	;--
CHK6Q
CHK401	;--
CHK4Q
CHK701	;-- will get data from flagchk then stuff into 701 (300 node) ; G CHK7Q:'$D(^DGPT(DGPTF,70)) S DGREC=^(70) ; F DGI=10,16:1:24 I $P(DGREC,U,DGI) S DGPTIT($P(DGREC,U,DGI)_";ICD9(")=""
CHK7J
CHK7Q	;
FLAGCHK	;-- build 701 from 501 responses, kill flags if necessary
FLAGQ
FL1	;
FL1Q
SCAN	;-- process DGPTIT array
SCANQ	;
S1	;-- check inactive dates, set flag array
S1Q	;
DC	;-- find discharge date
ENQ	;
GETNUM	;-- returns the number of additional questions/flags
INIT	;-- init routine
INITQ	;
ANYPSY	;-- will go through all movements check for PSYCH specialty
ANYQ	;
ISPSY	;-- check if losing specialty is in psych range set flag.
ISPSYQ
FLGFIL	;-- fill DGBPC with correct flag.
FLGFILQ	;
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
ANYSCQ	;

External References

Name	Field # of Occurrence
HOME^%ZIS	INIT+5
PTFICD^DGPTFUT	CHK501+4, CHK601+4, CHK401+4, CHK701+3
LO^DGUTL	INIT+5
^DIE	CHK501+10, CHK601+10, CHK401+10, CHK7J
UPD^YSGAF	CHK501+19

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+6, CHK501+16, CHK501+17, CHK501+18, CHK601+2, CHK401+6, CHK701+6, FLAGCHK+2, FLAGCHK+3, FLAGCHK+4 , DC+1, ANYPSY+3, ANYPSY+4, ISPSY+6, ANYSC+5, ANYSC+6
^DIC(42.4 - [#42.4]	ISPSY+7
^DIC(45.88 - [#45.88]	S1+4
^DIC(45.89 - [#45.89]	SCAN+5, S1+1

Label References

Name	Line Occurrences
ANYPSY	CHK701+5
ANYQ	ANYPSY+3
ANYSCQ	ANYSC+5
CHK4Q	CHK401+8
CHK5Q	CHK501+8
CHK6Q	CHK601+8
DC	CHK701+5, SCAN+4, INIT+4
ENQ	CHK501+1, CHK501+4, CHK601+1, CHK601+2, CHK601+4, CHK401+1, CHK401+4, CHK701+3
FL1	FLAGCHK+2, FLAGCHK+4
FLAGCHK	CHK701+5
FLGFIL	S1+6
FLGFILQ	FLGFIL+1
GETNUM	CHK701+7, 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+7, CHK601+7, CHK401+7, CHK701+5
SCANQ	SCAN+3

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	CHK501+9, CHK5Q!, CHK601+9, CHK6Q!, CHK401+9, CHK4Q!, CHK701+6, CHK7Q+1!
DG701	CHK701+8, CHK7Q+1!, FLAGCHK+1, FL1+2, ENQ+1!
DGBPC	CHK501+8, CHK5Q!, CHK6Q!, CHK401+8, CHK4Q!, SCAN+1!, ENQ+1!
DGBPC(	CHK701+8, FL1+2!, FLGFIL+2*
DGBPC(5	ANYPSY+5!
DGBPC(6	ANYPSY+5!
DGBPC(7	ANYPSY+5!
DGBPC(8	CHK601+8
DGD	CHK501+4~, CHK601+4~, CHK401+4~, CHK701+3~
DGD(	CHK501+5, CHK601+5, CHK401+5, CHK701+4
DGDFN	CHK501+15~, CHK501+16*, CHK501+19
DGFNUM	CHK701+8, CHK7Q+1!, FL1+2, FL1Q!, GETNUM+1*
DGGAFDT	CHK501+15~, CHK501+17*, CHK501+19
DGGAFPR	CHK501+15~, CHK501+18*, CHK501+19
DGGAFSC	CHK501+15~, CHK501+16*, CHK501+19
DGHOLD	CHK501+6, CHK501+8, CHK501+16, CHK5Q!, CHK601+6, CHK601+8, CHK6Q!, CHK401+6, CHK401+8, CHK4Q! , FLAGCHK+2, FLAGCHK+4, FL1+2, FL1Q!, INIT+1
DGI	CHK501+5, CHK5Q!, CHK601+5, CHK6Q!, CHK401+5, CHK4Q!, CHK701+4, CHK7Q+1!, FLAGCHK+2, FLAGQ! , SCAN+5, SCANQ+1!, ENQ+1!
DGII	CHK701+8, 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+4, CHK501+6, CHK501+18, ANYPSY+1~, ANYPSY+4, ISPSY+3, ISPSY+5, ISPSY+6, 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+4, CHK501+6, CHK501+9, CHK501+16, CHK501+17, CHK501+18, CHK601+2, CHK601+4, CHK601+9, CHK401+4 , CHK401+6, CHK401+9, CHK701+3, CHK701+6, FLAGCHK+2, FLAGCHK+3, FLAGCHK+4, ANYPSY+3, ANYPSY+4, ISPSY+6
DGPTIT	CHK5Q!, CHK6Q!, CHK4Q!, SCAN+3, ENQ+1!, INIT+6!
DGPTIT(	CHK501+5, CHK601+5, CHK401+5, CHK701+4, SCAN+5
DGREC	CHK5Q!, CHK601+2, CHK601+6, CHK6Q!, CHK4Q!, CHK701+6, CHK701+8, 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+6, ISPSY+7!, FLGFIL+1
DGSTART	CHK5Q!, CHK4Q!, CHK7Q+1!, ENQ+1!, INIT+3*
>> DGSUR	CHK401+4, CHK401+6
DGT	CHK7Q+1!
DGTREC	CHK5Q!, CHK4Q!, CHK7Q+1!, ENQ+1!, INIT+1*
>> DGZP	CHK601+2, CHK601+4
DIE	CHK501+9, CHK5Q!, CHK601+9, CHK6Q!, CHK401+9, CHK4Q!, CHK701+6, CHK7Q+1!
DR	CHK501+9, CHK5Q!, CHK601+9, CHK6Q!, CHK401+9, CHK4Q!, CHK701+6, CHK701+8*, CHK7J, CHK7Q+1!
DT	DC+1
>> P(	CHK601+2, CHK601+4
PTF	DC+1, ANYSC~, ANYSC+5, ANYSC+6
RESULT	ANYSC+3~, ANYSC+4, ANYSC+6, ANYSCQ+1
U	CHK501+5, CHK601+5, CHK601+8, CHK401+5, CHK701+4, CHK701+8, FL1+2, S1+2, S1+5, S1+6 , ISPSY+6, ISPSY+7, 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