| [613] | 1 | VAQDIS24 ;ALB/JFP - PDX, BUILDS DISPLAY ARRAY FOR MAS DATA ;01MAR93
|
|---|
| 2 | ;;1.5;PATIENT DATA EXCHANGE;**5**;NOV 17, 1993
|
|---|
| 3 | SCR2 ; -- Builds MAS DATA SCREEN 2,PATIENT DATA
|
|---|
| 4 | ROW0 ; -- HEADER
|
|---|
| 5 | D BLANK^VAQDIS20
|
|---|
| 6 | S VAQLN=$$REPEAT^VAQUTL1(" ",79)
|
|---|
| 7 | S VAQCTR=" -- PATIENT DATA -- "
|
|---|
| 8 | S X=$$CENTER^VAQDIS20(VAQLN,VAQCTR)
|
|---|
| 9 | D TMP,BLANK^VAQDIS20
|
|---|
| 10 | K VAQLN,VAQCTR
|
|---|
| 11 | ROW1 ;
|
|---|
| 12 | S X=$$SETSTR^VALM1("Sex: "_$G(@XTRCT@("VALUE",2,.02,0)),"",9,45)
|
|---|
| 13 | S X=$$SETSTR^VALM1("POB: "_$G(@XTRCT@("VALUE",2,.092,0))_", "_$G(@XTRCT@("VALUE",2,.093,0)),X,46,33)
|
|---|
| 14 | D TMP
|
|---|
| 15 | ROW2 ;
|
|---|
| 16 | S X=$$SETSTR^VALM1("Marital: "_$G(@XTRCT@("VALUE",2,.05,0)),"",5,42)
|
|---|
| 17 | S X=$$SETSTR^VALM1("Father: "_$G(@XTRCT@("VALUE",2,.2401,0)),X,43,36)
|
|---|
| 18 | D TMP
|
|---|
| 19 | ROW3 ;
|
|---|
| 20 | S X=$$SETSTR^VALM1("Religion: "_$G(@XTRCT@("VALUE",2,.08,0)),"",4,42)
|
|---|
| 21 | S X=$$SETSTR^VALM1("Mother: "_$G(@XTRCT@("VALUE",2,.2402,0)),X,43,36)
|
|---|
| 22 | D TMP
|
|---|
| 23 | ROW4 ;
|
|---|
| 24 | S VAQTMP=$G(@XTRCT@("VALUE",2,57.4,0))
|
|---|
| 25 | S VAQINF=$S($P(VAQTMP,"-",1)["PARA":"PARA,",$P(VAQTMP,"-",1)["QUAD":"QUAD,",VAQTMP="":"UNANSWERED",1:"NOT APPLICABLE")_$P(VAQTMP,"-",2)
|
|---|
| 26 | S X=$$SETSTR^VALM1("SCI: "_VAQINF,"",9,35)
|
|---|
| 27 | S X=$$SETSTR^VALM1("Mom's Maiden: "_$G(@XTRCT@("VALUE",2,.2403,0)),X,37,42)
|
|---|
| 28 | D TMP K VAQTMP,VAQINF
|
|---|
| 29 | EXIT ;
|
|---|
| 30 | QUIT
|
|---|
| 31 | TMP ; -- Sets up display array
|
|---|
| 32 | S VALMCNT=VALMCNT+1
|
|---|
| 33 | S @ROOT@(VALMCNT,0)=$E(X,1,79)
|
|---|
| 34 | QUIT
|
|---|
| 35 | ;
|
|---|
| 36 | END ; -- End of code
|
|---|
| 37 | QUIT
|
|---|
