Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGPTSCAN

Package: Registration

Routine: DGPTSCAN


Information

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

Source Information

Source file <DGPTSCAN.m>

Call Graph

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:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

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  DGPTX53  
DGPTX7  DGPTX74  DGX44  DGX58  DGX5F2  DGX5FD7  DGX64  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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All