DGRP1152U ;ALB/LEG - REGISTRATION SCREEN 11.5.2 (UTILS)/VERIFICATION INFORMATION ;JUN 08, 2020@23:00
Source file <DGRP1152U.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 10 | DGENUPL7 DGLOCK1 DGRP1152A DGRPTX35 DGRPTX36 DGRPTX37 DGRPX75 DGRPX76 DGRPXC DGRPXR |
| Albany OIFO | 1 | A1CKC |
| Automated Medical Information Exchange | 1 | DVBAXA |
| Integrated Billing | 1 | IBXS11 |
| 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 |
| Name | Field # of Occurrence |
|---|---|
| EN^DDIOL | MULTERR+1 |
| SAVENDT^DGRP1152A | ARCHALL+14 |
| $$FIND1^DIC | RESTORE+27, RESTORE+28 |
| FILE^DIE | ARCHALL+19 |
| UPDATE^DIE | RESTORE+18, RESTORE+29 |
| ^DIK | REMOVE+13 |
| $$EXTERNAL^DILFD | SETREC+4 |
| $$GET1^DIQ | ARCHALL+12, ARCHALL+14, RESTORE+22 |
| $$SETFLD^VALM1 | SETREC+10, SETREC+11, SETREC+12 |
| CLEAN^VALM10 | TMP+2 |
| SET^VALM10 | SETREC+14, SETREC+17 |
| $$FMTE^XLFDT | SETREC+5 |
| $$NOW^XLFDT | ARCHALL+18 |
| $$UP^XLFSTR | SETREC+5 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| 2.191 | EXTERNAL^DILFD, GET1^DIQ |
| ^DIC(8 - [#8] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | TMP+5, ARCHALL+10, REMOVE+7, REMOVE+9, REMOVE+12, REMOVE+14* |
| ^TMP("DGCCP" | REMOVE+4!, REMOVE+6*, REMOVE+9*, RESTORE+8, RESTORE+9, RESTORE+13, RESTORE+14, RESTORE+15, RESTORE+16, RESTORE+17 , RESTORE+20! |
| Name | Field # of Occurrence |
|---|---|
| ^( | ARCHALL+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | REMOVE+5~, REMOVE+12* |
| DA(1 | REMOVE+10* |
| DFN | TMP+5, TMP+7, ARCHALL~, ARCHALL+10, ARCHALL+12, ARCHALL+14, ARCHALL+16, ARCHALL+18, REMOVE~, REMOVE+4 , REMOVE+6, REMOVE+7, REMOVE+9, REMOVE+10, REMOVE+11, REMOVE+12, REMOVE+14, RESTORE~, RESTORE+8, RESTORE+9 , RESTORE+11, RESTORE+13, RESTORE+14, RESTORE+15, RESTORE+16, RESTORE+17, RESTORE+20, RESTORE+22, RESTORE+26 |
| DGBLANKS | GETCCP+1~, GETCCP+3*, SETREC+4 |
| DGCCP | ARCHALL+9~, ARCHALL+10*, ARCHALL+12, ARCHALL+14, ARCHALL+16, ARCHALL+18 |
| DGCCPCD | GETCCP+1~ |
| DGDATA | RESTORE+7~, RESTORE+25~ |
| DGDATA( | RESTORE+27* |
| DGEFFDT | TMP+1~, TMP+8*, TMP+9, GETCCP+1~, GETCCP+6*, GETCCP+7*, GETCCP+8, GETCCP+9 |
| DGEFFDTO | GETCCP+1~ |
| DGENDT | GETCCP+1~, GETCCP+10*, GETCCP+11 |
| DGERR | ARCHALL+9~, RESTORE+7~, RESTORE+10* |
| DGFDA | ARCHALL+9~, RESTORE+7~, RESTORE+19! |
| DGFDA( | ARCHALL+16*, ARCHALL+18*, RESTORE+13*, RESTORE+14*, RESTORE+15*, RESTORE+16*, RESTORE+17* |
| DGFDAIEN | RESTORE+7~, RESTORE+25~ |
| DGFDAIEN(1 | RESTORE+28* |
| DGFIDX | TMP+1~, TMP+6*, TMP+7*, TMP+9, GETCCP+1~, GETCCP+8*, GETCCP+9, SETREC+18 |
| DGIENS | RESTORE+7~, RESTORE+11*, RESTORE+12*, RESTORE+13, RESTORE+14, RESTORE+15, RESTORE+16, RESTORE+17 |
| DGLINE | GETCCP+1~, GETCCP+3* |
| DGLINECNT | GETCCP+1~, GETCCP+3*, SETREC+13*, SETREC+14, SETREC+15*, SETREC+17 |
| DGLINEVAR | GETCCP+2~, SETREC+2*, SETREC+10*, SETREC+11*, SETREC+12*, SETREC+14, SETREC+16*, SETREC+17 |
| DGNEWIEN | RESTORE+7~, RESTORE+25~, RESTORE+26*, RESTORE+27 |
| DGREC | TMP+1~, TMP+7*, TMP+8, TMP+9, GETCCP+1~, GETCCP+9*, GETCCP+10, SETREC+3, SETREC+5, SETREC+18 |
| DGRECCCP | GETCCP+1~ |
| DGRECCCPCD | GETCCP+2~, SETREC+3*, SETREC+4 |
| DGRECCCPNM | GETCCP+2~, SETREC+4*, SETREC+11 |
| DGRECEFDT | GETCCP+2~, SETREC+5* |
| DGRECEFDTO | GETCCP+2~, SETREC+5*, SETREC+7 |
| DGRECNO | GETCCP+1~, SETREC+9*, SETREC+10 |
| DGRECODT | GETCCP+2~, SETREC+7*, SETREC+12 |
| DGTMP | TMP~, TMP+4! |
| DGTMP( | TMP+5*, TMP+7 |
| DGTMP("EFDT" | TMP+9*, GETCCP+7, GETCCP+8, GETCCP+9 |
| DGTMP("IDX" | SETREC+18* |
| DGZ | RESTORE+7~, RESTORE+9*, RESTORE+13, RESTORE+14, RESTORE+15, RESTORE+16, RESTORE+17 |
| DIK | REMOVE+5~, REMOVE+11* |
| U | TMP+8, GETCCP+10, SETREC+3, SETREC+5 |
| >> VALMCNT | GETCCP+3*, GETCCP+13*, SETREC+8*, SETREC+9, SETREC+14, SETREC+18 |
| X | ARCHALL+9~, REMOVE+5~, RESTORE+7~ |
| Y | ARCHALL+9~, REMOVE+5~, RESTORE+7~ |
