DGRP6CL ;ALB/TMK,LBD,ARF - REGISTRATION SCREEN 6 FIELDS Conflict locations ; 6/23/09 4:08pm
Source file <DGRP6CL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CLLST(DFN,DGCONF,DGPOSS,DGMSE) | ;
; For patient DFN: ; Returns DGCONF array: DGCONF(conf loc)= Start dt^End dt ; or, for multiple OEF/OIF/ UNKNOWN OEF/OIF: DGCONF(conf loc-ien) = ; Start dt ^ End dt ^ Site source ^ Lock flag ; DGCONF(conflict loc,1)=1 if dts inconsistent w/mse dts ; DGPOSS = array of possible conflict locations, based on service ; episode dts DGPOSS(conf loc)="" ; DGMSE = array of military svc episodes ; DGMSE(1-n)=fr dt^to dt^branch ien^comp code |
|
| GETMSE | ;Get Military Service Data and store in DGMSE array (DG*5.3*797)
|
|
| YN(DGRPX,X) | ;Format Yes/No fld in $P(DGRPX,U,X)
|
|
| DAT(DGRPX,X,Z1) | ; Format dt in $P(DGRPX,U,X) for a length of Z1
|
|
| EN(DFN,QUIT) | ; Entry from reg screen 6
|
|
| EN1 | ; Entry from conf subscreen off reg screen 6
; Routine loops until exit/quit from subscreen |
|
| QUIT | ||
| EN2 | ; Consistency checker re-edit entrypoint for OEF/OIF data
|
|
| SVCCOMP(X) | ; Returns display text for service component
|
|
| VIET | ;;.32101//NO;S:X'="Y" Y="@64";.32104;.32105;@64;
|
|
| LEB | ;;.3221//NO;S:X'="Y" Y="@67";.3222;Q;.3223;@67;
|
|
| GREN | ;;.3224//NO;S:X'="Y" Y="@68";.3225;Q;.3226;@68;
|
|
| PAN | ;;.3227//NO;S:X'="Y" Y="@69";.3228;Q;.3229;@69;
|
|
| GULF | ;;.32201//NO;S:X'="Y" Y="@610";.322011;Q;.322012;@610;
|
|
| SOM | ;;.322016//NO;S:X'="Y" Y="@611";.322017;Q;.322018;@611;
|
|
| YUG | ;;.322019//NO;S:X'="Y" Y="@615";.32202;Q;.322021;@615;
|
|
| OEF | ;;
|
|
| OIF | ;;
|
|
| UNK | ;;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | EXTERNAL^DILFD, GET1^DIQ |
| 2.3215 | EXTERNAL^DILFD |
| ^DG(391 - [#391] | GET1^DIQ |
