DGPTSCAN ;ALB/MTC,WOIFO/PMK - SPECIAL ACTION SCAN PROCESS ;03/26/2015 3:27 PM
Source file <DGPTSCAN.m>
| 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 | ;
|
| FileNo | Call Tags |
|---|---|
| ^DGPT - [#45] | Classic Fileman Calls |
