DGOTHUT1 ;SHRPE/YMG - OTHD (OTHER THAN HONORABLE DISCHARGE) APIs ;03/12/19
Source file <DGOTHUT1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LASTPRD(DGIEN33) | ; find last 365 and 90 day periods
|
|
| GET90DT(DGIEN33,DGIEN3301,DGIEN3311) | ; return dates info for a given 90 day period
|
|
| GET365DT(DGIEN33,DGIEN3301) | ; return dates info for a given 365 day period
|
|
| LOCK(DGIEN33) | ; lock entry in file 33
|
|
| UNLOCK(DGIEN33) | ; unlock entry in file 33
|
|
| FILSTAT(DGDFN,STATUS) | ; file OTH status into file 33
; creates new entry in file 33 if necessary, then updates field 33/.02 |
|
| FILAUTH(DGDFN,DATASTR) | ; file authorized 90 day period into file 33
|
|
| FILAUTHX | ; exit point
; unlock entry |
|
| FILDEN(DGDFN,DATASTR) | ; file denied authorization request into file 33
|
|
| FILPEND(DGDFN,DATASTR) | ; file pending authorization request into file 33
|
|
| GETPEND(DGDFN) | ; get pending authorization request data from file 33
|
|
| GETAUTH(DGIEN33,DGIEN365,DGIEN90) | ; get authorized 90 day period data from file 33
|
|
| GETDEN(DGIEN33,DENIEN) | ; get denied authorization request data from file 33
|
