DGRPMS ;ALB/BRM,LBD,DJS,ARF - MILITARY SERVICE APIS ;11 Oct 2017 11:14am
Source file <DGRPMS.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VALCON1(DFN,IEN,CDATE,FRTO) | ; Valid conflict input for OIF/OEF/UNKNOWN OEF/OIF?
; Need to send the ien of the multiple as well as the DFN and ; determine the specific conflict area |
|
| VALCON(DFN,CNFLCT,CDATE,FRTO,OEIFAIL) | ;is this a valid conflict input?
|
|
| VALMSE(DFN,MDATE,FRTO,FLD) | ;is this a valid Military Service Episode date?
|
|
| BRANCH(DGCOMBR) | ;branches of service that require WWII service dates
|
|
| VALCOMP(DFN,CODE,DGEPI) | ; Verify component is consistent with the corresponding
; branch of service Also, branch of service must be entered before ; component. ; ACTIVATED NATIONAL GUARD (G) only valid for ARMY or AIR FORCE or SPACE FORCE branch ; ACTIVATED RESERVE (V) only valid for ARMY, AIR FORCE, SPACE FORCE MARINES, NAVY ; or COAST GUARD branch ; DFN = ien of patient in file 2 ; DGEPI = episode # to check (1=LAST, 2=NTL, 3=NNTL) ; CODE = the component code ; OUTPUT: 1 if valid component ; 0 if invalid component or branch of serv missing |
|
| GETDT(DFN,CNFLCT,FRTO) | ; get from date, to date, or location from patient file
|
|
| WWII(DFN,TODT,FLD) | ; was this patient in WWII?
; this API assumes the WWII period to be from 12/07/41-12/31/46 |
|
| DELMSE(DFN,TYPE) | ; delete MSE from patient
|
|
| COMPOW(VAL) | ;convert POW and Combat Location fields
|
|
| FV(X) | ;Is this a Filipino Vet branch of service?
|
|
| FVP | ;MUMPS cross-reference "AFV1" on Service Branch [Last] (#.325), "AFV2"
|
|
| FVP1 | ;MUMPS cross-reference "AFV3216" on the Service Branch field (#.03)
|
|
| DUPCHK(DFN,FRDT,FLD) | ; Check for duplicate Service Entry Date
|
|
| MSG(MSGTXT,LF1,LF2) | ; This api will format the output text in order to utilize
; the EN^DDIOL utility. |
|
| CNFLCT | ;; *** DO NOT REMOVE BELOW CONFLICT FIELD LOCATIONS ***
|
|
| WWI | ;;
|
|
| WWIIE | ;;
|
|
| WWIIP | ;;
|
|
| KOR | ;;
|
|
| VIET | ;;.32104^.32105
|
|
| LEB | ;;.3222^.3223
|
|
| GREN | ;;.3225^.3226
|
|
| PAN | ;;.3228^.3229
|
|
| GULF | ;;.322011^.322012
|
|
| SOM | ;;.322017^.322018
|
|
| YUG | ;;.32202^.322021
|
|
| OEF | ;;.02^.03
|
|
| OIF | ;;.02^.03
|
|
| UNK | ;;.02^.03
|
|
| MSE | ;;.01^.02^.03
|
|
| MSL | ;;.326^.327^.325
|
|
| MSNTL | ;;.3292^.3293^.3291
|
|
| MSNNTL | ;;.3297^.3298^.3296
|
|
| COMB | ;;.5293^.5294^.5292
|
|
| POW | ;;.527^.528^.526
|
| FileNo | Call Tags |
|---|---|
| ^DIC(22 - [#22] | GET1^DIQ |
