| [613] | 1 | VAQDIS28 ;ALB/JFP - PDX, BUILDS DISPLAY ARRAY FOR MAS DATA ;01MAR93
|
|---|
| 2 | ;;1.5;PATIENT DATA EXCHANGE;**13**;NOV 17, 1993
|
|---|
| 3 | SCR5 ; -- Builds MAS DATA SCREEN 5, INSURANCE DATA
|
|---|
| 4 | ROW0 ; -- HEADER
|
|---|
| 5 | D BLANK^VAQDIS20
|
|---|
| 6 | S VAQLN=$$REPEAT^VAQUTL1(" ",79)
|
|---|
| 7 | S VAQCTR=" -- INSURANCE DATA -- "
|
|---|
| 8 | S X=$$CENTER^VAQDIS20(VAQLN,VAQCTR)
|
|---|
| 9 | D TMP,BLANK^VAQDIS20
|
|---|
| 10 | K VAQLN,VAQCTR
|
|---|
| 11 | ROW1 ;
|
|---|
| 12 | S VAQTMP=$G(@XTRCT@("VALUE",2,.3192,0))
|
|---|
| 13 | S VAQINF=$S(VAQTMP'="":VAQTMP,1:"UNANSWERED")
|
|---|
| 14 | S X=$$SETSTR^VALM1("Covered by Health Insurance: "_VAQINF,"",5,79)
|
|---|
| 15 | D TMP K VAQTMP,VAQINF
|
|---|
| 16 | ROW2 ;
|
|---|
| 17 | S VAQTMP=$G(@XTRCT@("VALUE",2,.381,0))
|
|---|
| 18 | S VAQINF=$S(VAQTMP'="":VAQTMP,1:"UNANSWERED")
|
|---|
| 19 | S X=$$SETSTR^VALM1("Eligible for MEDICAID: "_VAQINF,"",5,35)
|
|---|
| 20 | I VAQINF'="UNANSWERED" D
|
|---|
| 21 | .S VAQTMP=$G(@XTRCT@("VALUE",2,.382,0)) D SCR6A^VAQDIS29
|
|---|
| 22 | .S X=$$SETSTR^VALM1("[last updated: "_VAQINF_" ]",X,41,38)
|
|---|
| 23 | D TMP K VAQTMP,VAQINF
|
|---|
| 24 | ROW3 ;
|
|---|
| 25 | D BLANK^VAQDIS20
|
|---|
| 26 | S X=$$SETSTR^VALM1("Insurance Co.","",2,17)
|
|---|
| 27 | S X=$$SETSTR^VALM1("Policy #",X,20,20)
|
|---|
| 28 | S X=$$SETSTR^VALM1("Group",X,41,12)
|
|---|
| 29 | S X=$$SETSTR^VALM1("Holder",X,53,8)
|
|---|
| 30 | S X=$$SETSTR^VALM1("Effective",X,61,10)
|
|---|
| 31 | S X=$$SETSTR^VALM1("Expires",X,71,8)
|
|---|
| 32 | D TMP
|
|---|
| 33 | S VAQLN=$$REPEAT^VAQUTL1("=",79)
|
|---|
| 34 | S X=$$SETSTR^VALM1(VAQLN,"",2,79)
|
|---|
| 35 | D TMP
|
|---|
| 36 | S SEQ=""
|
|---|
| 37 | F J=1:1 S SEQ=$O(@XTRCT@("VALUE",2.312,.01,SEQ)) Q:SEQ="" D
|
|---|
| 38 | .S X=$$SETSTR^VALM1($G(@XTRCT@("VALUE",2.312,.01,SEQ)),"",2,17)
|
|---|
| 39 | .S X=$$SETSTR^VALM1($G(@XTRCT@("VALUE",2.312,1,SEQ)),X,20,20)
|
|---|
| 40 | .S VAQINF=$G(@XTRCT@("VALUE",355.3,.04,SEQ))
|
|---|
| 41 | .S:(VAQINF="") VAQINF=$G(@XTRCT@("VALUE",355.3,.03,SEQ))
|
|---|
| 42 | .S X=$$SETSTR^VALM1(VAQINF,X,41,12)
|
|---|
| 43 | .S X=$$SETSTR^VALM1($G(@XTRCT@("VALUE",2.312,6,SEQ)),X,53,8)
|
|---|
| 44 | .S VAQTMP=$G(@XTRCT@("VALUE",2.312,8,SEQ)) D SCR6A^VAQDIS29
|
|---|
| 45 | .S X=$$SETSTR^VALM1(VAQINF,X,61,10)
|
|---|
| 46 | .S VAQTMP=$G(@XTRCT@("VALUE",2.312,3,SEQ)) D SCR6A^VAQDIS29
|
|---|
| 47 | .S X=$$SETSTR^VALM1(VAQINF,X,71,8)
|
|---|
| 48 | .D TMP
|
|---|
| 49 | I J=1 S X=$$SETSTR^VALM1("No active (unexpired) insurance was on file","",2,79) D TMP
|
|---|
| 50 | K SEQ,J,VAQTMP,VAQINF,VAQLN
|
|---|
| 51 | ;
|
|---|
| 52 | EXIT ;
|
|---|
| 53 | QUIT
|
|---|
| 54 | ;
|
|---|
| 55 | TMP ; -- Sets up display array
|
|---|
| 56 | S VALMCNT=VALMCNT+1
|
|---|
| 57 | S @ROOT@(VALMCNT,0)=$E(X,1,79)
|
|---|
| 58 | QUIT
|
|---|
| 59 | ;
|
|---|
| 60 | END ; -- End of code
|
|---|
| 61 | QUIT
|
|---|
