©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DGPTSCAN ;ALB/MTC - SPECIAL ACTION SCAN PROCESS ; 1 MAR 91
Source file <DGPTSCAN.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 1 | HOME^%ZIS |
| Registration | 1 | LO^DGUTL |
| Uncategorized | 1 | UPD^YSGAF |
| VA Fileman | 1 | ^DIE |
| 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.
|
| FileNo | Call Tags |
|---|---|
| ^DGPT - [#45] | Classic Fileman Calls |
| 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 |
| 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 |
| 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 |
| >> | 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 |