DGRP1152U ;ALB/LEG - REGISTRATION SCREEN 11.5.2 (UTILS)/VERIFICATION INFORMATION ;JUN 08, 2020@23:00
Source file <DGRP1152U.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TMP(DGTMP) | ; constructs DGTMP data from Patient CCP data
|
|
| GETCCP | ; collects all CCP recs; sorts decreasing by EFFDT
|
|
| SETREC | ; sets ListMan Display record
; for Phase I Line 1 data |
|
| ARCHALL(DFN) | ; ARCHIVE CCP entries
; Called from KILL logic of Xref in .361 (PRIMARY ELIGIBILITY) field ; and .01 (ELIGIBILITY CODE) field of the PATIENT ELIGIBILITIES subfile ; when the COLLATERAL OF VET eligibility code is deleted ; Also invoked from Z11 logic when ES is removing the COV eligibility ; For CCPs not already archived: ; - Active CCPs are end dated ; - Achive field set |
|
| MULTERR | ; Invoked from ^DGRP1152A when adding/editing the Effective Date for a CCP
|
|
| REMOVE(DFN) | ; Invoked from ECDS^DGLOCK1 (Input Transform logic for Primary Eligibility field .361)
; This is called when COLLATERAL OF VET is being replaced ; - Remove all CCPs to a temp global and remove them from the Patient record. ; New X and Y so input transform vars are not overwritten |
|
| RESTORE(DFN) | ; Invoked from "AEL" Cross-reference, Set logic, of Primary Eligibility field .361
; - If the ^TMP("DGCCP",$J,DFN) global (see REMOVE tag) does not exist, then quit. ; - Otherwise, move the CCPs in ^TMP back into the patient record. ; and if COV is no longer in .361 field, add it into the PATIENT ELIGIBILIITIES subfile .0361 ; The result is that COV is moved from PRIMARY to the subfile and the CCPs are intact ; (COV cannnot be deleted if there are active CCPs but it can be replaced with another eligibility and moved to the subfile.) ; NEW X and Y so xref vars aren't overwritten |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| 2.191 | EXTERNAL^DILFD, GET1^DIQ |
| ^DIC(8 - [#8] | FIND1^DIC |
