| [613] | 1 | VAQDIS32 ;ALB/JFP,JRP - BUILDS DISPLAY ARRAY FOR (MAS DATA);3JUL91
|
|---|
| 2 | ;;1.5;PATIENT DATA EXCHANGE;**13**;NOV 17, 1993
|
|---|
| 3 | SCR10 ;SCREEN 10 of MAS
|
|---|
| 4 | R0 ; -- HEADER
|
|---|
| 5 | D BLANK^VAQDIS20
|
|---|
| 6 | S VAQLN=$$REPEAT^VAQUTL1(" ",79)
|
|---|
| 7 | S VAQCTR=" -- INELIGIBLE/MISSING DATA -- "
|
|---|
| 8 | S X=$$CENTER^VAQDIS20(VAQLN,VAQCTR)
|
|---|
| 9 | D TMP,BLANK^VAQDIS20
|
|---|
| 10 | K VAQLN,VAQCTR
|
|---|
| 11 | R1 ;
|
|---|
| 12 | S VAQINF=$G(@XTRCT@("VALUE",2,.152,0))
|
|---|
| 13 | S VAQDTE=$S(VAQINF="":0,1:1)
|
|---|
| 14 | S:(VAQINF="") VAQINF="NOT APPLICABLE"
|
|---|
| 15 | S X=$$SETSTR^VALM1("Ineligible Date: "_VAQINF,"",6,41)
|
|---|
| 16 | S VAQTMP=$G(@XTRCT@("VALUE",2,.1651,0)) D SCR
|
|---|
| 17 | S X=$$SETSTR^VALM1("TWX Source: "_VAQINF,X,48,31)
|
|---|
| 18 | D TMP
|
|---|
| 19 | R2 ;
|
|---|
| 20 | S VAQTMP=$G(@XTRCT@("VALUE",2,.1653,0)) D SCR
|
|---|
| 21 | S X=$$SETSTR^VALM1("TWX City: "_VAQINF,"",13,35)
|
|---|
| 22 | S VAQTMP=$G(@XTRCT@("VALUE",2,.1654,0)) D SCR
|
|---|
| 23 | S X=$$SETSTR^VALM1("TWX State: "_VAQINF,X,49,30)
|
|---|
| 24 | D TMP
|
|---|
| 25 | R3 ;
|
|---|
| 26 | S VAQINF=$G(@XTRCT@("VALUE",2,.307,0))
|
|---|
| 27 | S:('VAQDTE) VAQINF="NOT APPLICABLE"
|
|---|
| 28 | S:((VAQDTE)&(VAQINF="")) VAQINF="UNSPECIFIED"
|
|---|
| 29 | S X=$$SETSTR^VALM1("Reason: "_VAQINF,"",15,64)
|
|---|
| 30 | D TMP
|
|---|
| 31 | R4 ;
|
|---|
| 32 | S VAQTMP=$G(@XTRCT@("VALUE",2,.1656,0)) D SCR
|
|---|
| 33 | S X=$$SETSTR^VALM1("VARO Decision: "_VAQINF,"",8,71)
|
|---|
| 34 | D TMP
|
|---|
| 35 | R5 ;
|
|---|
| 36 | S VAQINF=$G(@XTRCT@("VALUE",2,.153,0))
|
|---|
| 37 | S VAQDTE=$S(VAQINF="":0,1:1)
|
|---|
| 38 | S:(VAQINF="") VAQINF="NOT APPLICABLE"
|
|---|
| 39 | S X=$$SETSTR^VALM1("Missing Date: "_VAQINF,"",9,38)
|
|---|
| 40 | S VAQTMP=$G(@XTRCT@("VALUE",2,.1657,0)) D SCR
|
|---|
| 41 | S X=$$SETSTR^VALM1("TWX Source: "_VAQINF,X,48,31)
|
|---|
| 42 | D TMP
|
|---|
| 43 | R6 ;
|
|---|
| 44 | S VAQTMP=$G(@XTRCT@("VALUE",2,.1658,0)) D SCR
|
|---|
| 45 | S X=$$SETSTR^VALM1("TWX City: "_VAQINF,"",13,35)
|
|---|
| 46 | S VAQTMP=$G(@XTRCT@("VALUE",2,.1659,0)) D SCR
|
|---|
| 47 | S X=$$SETSTR^VALM1("TWX State: "_VAQINF,X,49,30)
|
|---|
| 48 | D TMP
|
|---|
| 49 | R7 ;
|
|---|
| 50 | I ('VAQDTE) S X=$$SETSTR^VALM1("Reason: NOT APPLICABLE","",15,64) D TMP G EXIT
|
|---|
| 51 | S SEQ=""
|
|---|
| 52 | I ($O(@XTRCT@("VALUE",2.16,.01,SEQ))="") S X=$$SETSTR^VALM1("Reason: UNSPECIFIED","",15,64) D TMP G EXIT
|
|---|
| 53 | K ^UTILITY($J,"W")
|
|---|
| 54 | S SEQ=""
|
|---|
| 55 | F S SEQ=$O(@XTRCT@("VALUE",2.16,.01,SEQ)) Q:(SEQ="") D
|
|---|
| 56 | .S X=$G(@XTRCT@("VALUE",2.16,.01,SEQ))
|
|---|
| 57 | .S DIWL=23
|
|---|
| 58 | .S DIWR=79
|
|---|
| 59 | .S DIWF=""
|
|---|
| 60 | .D ^DIWP
|
|---|
| 61 | S SEQ=0
|
|---|
| 62 | F S SEQ=$O(^UTILITY($J,"W",23,SEQ)) Q:(SEQ="") D
|
|---|
| 63 | .S X=$G(^UTILITY($J,"W",23,SEQ,0))
|
|---|
| 64 | .S X=$$SETSTR^VALM1(X,"",23,56)
|
|---|
| 65 | .I (SEQ=1) S X=$$SETSTR^VALM1("Reason: ",X,15,8)
|
|---|
| 66 | .D TMP
|
|---|
| 67 | ;
|
|---|
| 68 | EXIT K VAQLN,VAQCTR,VAQINF,VAQTMP,X,SEQ,VAQDTE
|
|---|
| 69 | K ^UTILITY($J,"W"),DIWL,DIWR,DIWF
|
|---|
| 70 | QUIT
|
|---|
| 71 | ;
|
|---|
| 72 | TMP ; -- Sets up line
|
|---|
| 73 | S VALMCNT=VALMCNT+1
|
|---|
| 74 | S @ROOT@(VALMCNT,0)=$E(X,1,79)
|
|---|
| 75 | QUIT
|
|---|
| 76 | ;
|
|---|
| 77 | SCR I ('VAQDTE) S VAQINF="NOT APPLICABLE" Q
|
|---|
| 78 | S VAQINF=$S(VAQTMP="":"UNANSWERED",1:VAQTMP)
|
|---|
| 79 | QUIT
|
|---|
| 80 | ;
|
|---|
| 81 | END ;End of code
|
|---|
| 82 | QUIT
|
|---|
