©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
DGENEGT ;ALB/KCL/RGL - Enrollment Group Threshold API's ; 11/20/03 3:39pm
Source file <DGENEGT.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 4 | $$GET1^DID (CHK,UPDATE)^DIE ^DIK $$EXTERNAL^DILFD |
| Kernel | 1 | $$DT^XLFDT |
| Registration | 1 | ($$ADD,$$UPD)^DGENDBS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| UNLOCK(IEN) | ;
; Description: Used to unlock the ENROLLMENT GROUP THRESHOLD record. |
|
| VALID(DGEGT,ERROR) | ;
; Description: Performs validation checks on ENROLLMENT GROUP THRESHOLD record contained in the DGEGT array. |
|
| UPDATE(EGTIEN,DGEGT,ERROR) | ;
; Description: Updates an Enrollment Group Threshold record in the ; ENROLLMENT GROUP THRESHOLD file. This function locks the Enrollment ; Group Threshold record and releases the lock when the update is ; complete. |
|
| GET(EGTIEN,DGEGT) | ;
; Description: Used to obtain a record in the ENROLLMENT GROUP THRESHOLD file. The values will be returned in the DGEGT() array. |
|
| INACT(EGTIEN,OLDIEN,DGEGT) | ;inactivate EGT settings that are currently not in effect
|
|
| STORE(DGEGT,ERROR,CHKFLG) | ;
; Description: Creates a new entry in the ENROLLMENT GROUP THRESHOLD file. |
|
| FINDCUR(ENRDT) | ;
; Description: Used to find a record in the ENROLLMENT GROUP THRESHOLD file. |
|
| TESTVAL(SUB,VAL) | ; Description: Used to determine if a field value is valid.
|
|
| FIELD(SUB) | ; Description: Used to determine the field number for a given subscript in the EGT array.
|
|
| DELETE(EGTIEN) | ; Description: This function will delete a record in the ENROLLMENT GROUP THRESHOLD file.
|
|
| LOCK(IEN) | ;
; Description: Used to lock the ENROLLMENT GROUP THRESHOLD record. |
| FileNo | Call Tags |
|---|---|
| ^DGEN(27.16 - [#27.16] | Classic Fileman Calls, CHK^DIE, EXTERNAL^DILFD, GET1^DID |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGEN(27.16 - [#27.16] | LOCK+10, UNLOCK+9, FINDCUR+13, FINDCUR+15, GET+26, GET+34, UPDATE+20, INACT+12, INACT+14, INACT+17 |
| Name | Line Occurrences |
|---|---|
| $$DELETE | INACT+19 |
| $$FIELD | TESTVAL+15 |
| $$FINDCUR | STORE+19 |
| $$GET | INACT+9 |
| $$INACT | FINDCUR+17, STORE+31 |
| $$LOCK | UPDATE+22 |
| $$TESTVAL | VALID+25, VALID+26, VALID+27, VALID+28, VALID+29, VALID+30, VALID+31 |
| $$VALID | STORE+16 |
| UNLOCK | UPDATE+35 |
| Name | Field # of Occurrence |
|---|---|
| ^( | FINDCUR+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADD | STORE+18~, STORE+28*, STORE+31, STORE+33 |
| CHKFLG | STORE~, STORE+16 |
| DA | DELETE+9~, DELETE+11* |
| DATA | STORE+18~, STORE+28, UPDATE+15~, UPDATE+33 |
| DATA( | STORE+20*, STORE+21*, STORE+22*, STORE+23*, STORE+24*, STORE+25*, STORE+26*, UPDATE+24*, UPDATE+25*, UPDATE+26* , UPDATE+27*, UPDATE+28*, UPDATE+29*, UPDATE+30* |
| DATA(25 | STORE+27*, UPDATE+31* |
| DGEGT | GET~, GET+21!*, STORE~, STORE+16, STORE+31, UPDATE~, VALID~, INACT~, INACT+9 |
| DGEGT( | GET+24* |
| DGEGT("EFFDATE" | GET+27*, STORE+20, UPDATE+24, VALID+18, VALID+25, INACT+10 |
| DGEGT("ENTDATE" | GET+32*, STORE+25, UPDATE+29, VALID+21, VALID+30 |
| DGEGT("FEDDATE" | GET+31*, STORE+24, UPDATE+28, VALID+29 |
| DGEGT("PRIORITY" | GET+28*, STORE+21, UPDATE+25, VALID+19, VALID+26 |
| DGEGT("REMARKS" | GET+35*, STORE+27, UPDATE+31, VALID+32 |
| DGEGT("SOURCE" | GET+33*, STORE+26, UPDATE+30, VALID+22, VALID+31 |
| DGEGT("SUBGRP" | GET+29*, STORE+22, UPDATE+26, VALID+27 |
| DGEGT("TYPE" | GET+30*, STORE+23, UPDATE+27, VALID+20, VALID+28 |
| DGEGTDT | FINDCUR+10~, FINDCUR+11*, FINDCUR+12*, FINDCUR+13*, FINDCUR+14 |
| DGEGTF | FINDCUR+10~, FINDCUR+16*, INACT+18 |
| DGEGTIEN | FINDCUR+10~, FINDCUR+11*, FINDCUR+14*, FINDCUR+15 |
| DIK | DELETE+9~, DELETE+10* |
| DISPLAY | TESTVAL+10~, TESTVAL+17*, TESTVAL+18 |
| DT | FINDCUR+17, INACT+17 |
| EGTDT | INACT+7~, INACT+11*, INACT+12*, INACT+14 |
| >> EGTF | INACT+10*, INACT+16 |
| EGTFDA | INACT+7~, INACT+21 |
| EGTFDA( | INACT+20* |
| EGTIEN | GET~, GET+23, GET+26, GET+34, UPDATE~, UPDATE+20, UPDATE+22, UPDATE+33, UPDATE+35, DELETE~ , DELETE+8, DELETE+11, INACT~, INACT+6, INACT+9, INACT+15 |
| EGTREC | INACT+7~, INACT+13*, INACT+14*, INACT+15, INACT+16, INACT+17, INACT+19, INACT+20 |
| ENRDT | FINDCUR~, FINDCUR+11, FINDCUR+12, FINDCUR+17 |
| ERR | INACT+7~ |
| ERROR | STORE~, STORE+15*, STORE+16, STORE+28, UPDATE~, UPDATE+17*, UPDATE+21*, UPDATE+22*, UPDATE+33*, VALID~ , VALID+13*, VALID+18*, VALID+19*, VALID+20*, VALID+21*, VALID+22*, VALID+25*, VALID+26*, VALID+27*, VALID+28* , VALID+29*, VALID+30*, VALID+31*, VALID+32* |
| EXTERNAL | VALID+11~ |
| FIELD | TESTVAL+10~, TESTVAL+15*, TESTVAL+17, TESTVAL+19, TESTVAL+20 |
| FLD | FIELD+10~, FIELD+11*, FIELD+14*, FIELD+15*, FIELD+16*, FIELD+17*, FIELD+18*, FIELD+19*, FIELD+20*, FIELD+21* , FIELD+23 |
| IEN | LOCK~, LOCK+10, UNLOCK~, UNLOCK+9 |
| INACT | STORE+18~, STORE+31* |
| NODE | GET+20~, GET+26*, GET+27, GET+28, GET+29, GET+30, GET+31, GET+32, GET+33, GET+34* , GET+35 |
| OLDEGT | STORE+18~, STORE+19*, STORE+31 |
| OLDIEN | INACT~, INACT+8*, INACT+16 |
| RESULT | VALID+11~, TESTVAL+10~, TESTVAL+20 |
| STOP | FINDCUR+10~, FINDCUR+11*, FINDCUR+13, FINDCUR+14, FINDCUR+15*, FINDCUR+17, FINDCUR+18 |
| SUB | GET+20~, GET+24*, TESTVAL~, TESTVAL+15, FIELD~, FIELD+14, FIELD+15, FIELD+16, FIELD+17, FIELD+18 , FIELD+19, FIELD+20, FIELD+21 |
| SUCCESS | UPDATE+15~, UPDATE+16*, UPDATE+21*, UPDATE+22*, UPDATE+33*, UPDATE+37 |
| VAL | TESTVAL~, TESTVAL+14, TESTVAL+17, TESTVAL+20 |
| VALID | VALID+11~, VALID+12*, VALID+18*, VALID+19*, VALID+20*, VALID+21*, VALID+22*, VALID+25*, VALID+26*, VALID+27* , VALID+28*, VALID+29*, VALID+30*, VALID+31*, VALID+32*, VALID+34, TESTVAL+10~, TESTVAL+12*, TESTVAL+18*, TESTVAL+20* , TESTVAL+22 |