DGLOCK1 ;ALB/MRL,JAM,ARF,JAM - PATIENT FILE DATA EDIT CHECK ; 28 JUL 86
Source file <DGLOCK1.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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
AOD | ;AO Delete
|
|
COMD | ;Combat Delete
|
|
INED | ;Ineligible Delete
|
|
IRD | ;ION Rad Delete
|
|
POWD | ;POW Delete
|
|
TADD | ;Temp Add Delete
|
|
VND | ;Viet Svc Delete
|
|
SVDEL | ;Panama, Grenada, Lebanon, Persian Gulf Svc Delete
|
|
EC | ||
HUDCK(DGEC) | ; DG*5.3*1075; Check for when HUD-VASH eligibility code can be used
; Called by the Input Transform and SCREEN of ELIGIBILITY field (#.01) of the PATIENT ELIGIBILITIES subfile of PATIENT file (#2) ; Input: ; DGEC - (required) Eligibility Code |
|
POS | ;Screen
|
|
POS1 | ||
POSH | ||
SC | ||
ECD | ;primary eligibility code input transform
|
|
ECDS |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> DA | POS1 |
>> DFN | AOD+1, COMD+1, INED+1, IRD+1, POWD+1, TADD+1, VND+1, SVDEL+2, EC, POSH , SC, ECD+3, ECD+6, ECD+11, ECD+15, ECD+16, ECD+18, ECD+20, ECD+25, ECDS+13 |
DGACTIVE | HUDCK+9~, HUDCK+13*, HUDCK+14 |
DGCOV | ECD+2~, ECD+6*, ECDS+13 |
DGEC | EC*!, EC+1!, HUDCK~, HUDCK+10, HUDCK+11, POS+1!, POSH*, POSH+1! |
DGNODE | ECD+2~, ECD+20*, ECD+21, ECD+22, ECD+23, ECD+24 |
DGPC | ECD+2~, ECD+15* |
DGSCON | SC*!, SC+1! |
DGSER | ECD+2~, ECD+3*, ECD+15 |
DGVT | ECD+2~, ECD+3*, ECD+4, ECD+14 |
DGX | SVDEL+2, SVDEL+3! |
DGXX | ECD+2~, ECD+15*, ECD+17*, ECD+19*, ECD+21*, ECD+22*, ECD+23*, ECD+24*, ECD+25*, ECD+26 |
DIC | POS+1!*, ECDS!* |
DIC("S" | POS+1*, ECD+9*, ECD+11*, ECD+13*, ECD+15*, ECD+16*, ECD+18*, ECD+26* |
>> DIE | POS+1, ECDS |
DUZ | POS1 |
>> I | ECD+24* |
U | AOD+1, COMD+1, INED+1, IRD+1, POWD+1, TADD+1, VND+1, SVDEL+2, EC, POS+1 , POS1, POSH, SC, ECD+3, ECD+15, ECD+18 |
X | AOD+1!, COMD+1!, INED+1!, IRD+1!, POWD+1!, TADD+1!, VND+1!, SVDEL+2!, EC!, POS+1*! , POS1, POS1+1!, SC!, ECD+4!, ECDS*!, ECDS+3!, ECDS+5!, ECDS+6!, ECDS+8!, ECDS+10! , ECDS+13 |
XX | POS1*!, POS1+1! |
>> Y | POS+1, ECDS |