VAQDIS24.m

VAQDIS24 ;ALB/JFP - PDX, BUILDS DISPLAY ARRAY FOR MAS DATA ;01MAR93

 ;;1.5;PATIENT DATA EXCHANGE;**5**;NOV 17, 1993

SCR2 ; -- Builds MAS DATA SCREEN 2,PATIENT DATA

ROW0 ; -- HEADER

 D BLANK^VAQDIS20

 S VAQLN=$$REPEAT^VAQUTL1(" ",79)

 S VAQCTR=" -- PATIENT DATA -- "

 S X=$$CENTER^VAQDIS20(VAQLN,VAQCTR)

 D TMP,BLANK^VAQDIS20

 K VAQLN,VAQCTR

ROW1 ;

 S X=$$SETSTR^VALM1("Sex: "_$G(@XTRCT@("VALUE",2,.02,0)),"",9,45)

 S X=$$SETSTR^VALM1("POB: "_$G(@XTRCT@("VALUE",2,.092,0))_", "_$G(@XTRCT@("VALUE",2,.093,0)),X,46,33)

 D TMP

ROW2 ;

 S X=$$SETSTR^VALM1("Marital: "_$G(@XTRCT@("VALUE",2,.05,0)),"",5,42)

 S X=$$SETSTR^VALM1("Father: "_$G(@XTRCT@("VALUE",2,.2401,0)),X,43,36)

 D TMP

ROW3 ;

 S X=$$SETSTR^VALM1("Religion: "_$G(@XTRCT@("VALUE",2,.08,0)),"",4,42)

 S X=$$SETSTR^VALM1("Mother: "_$G(@XTRCT@("VALUE",2,.2402,0)),X,43,36)

 D TMP

ROW4 ;

 S VAQTMP=$G(@XTRCT@("VALUE",2,57.4,0))

 S VAQINF=$S($P(VAQTMP,"-",1)["PARA":"PARA,",$P(VAQTMP,"-",1)["QUAD":"QUAD,",VAQTMP="":"UNANSWERED",1:"NOT APPLICABLE")_$P(VAQTMP,"-",2)

 S X=$$SETSTR^VALM1("SCI: "_VAQINF,"",9,35)

 S X=$$SETSTR^VALM1("Mom's Maiden: "_$G(@XTRCT@("VALUE",2,.2403,0)),X,37,42)

 D TMP K VAQTMP,VAQINF

EXIT ;

 QUIT

TMP ; -- Sets up display array

 S VALMCNT=VALMCNT+1

 S @ROOT@(VALMCNT,0)=$E(X,1,79)

 QUIT

 ;

END ; -- End of code

 QUIT

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---VAQDIS24   1332     printed  Apr 09, 2024@21:27:12                                                                                                                                                                                                    Page 2

VAQDIS24  ;ALB/JFP - PDX, BUILDS DISPLAY ARRAY FOR MAS DATA ;01MAR93

 +1       ;;1.5;PATIENT DATA EXCHANGE;**5**;NOV 17, 1993

SCR2      ; -- Builds MAS DATA SCREEN 2,PATIENT DATA

ROW0      ; -- HEADER

 +1        DO BLANK^VAQDIS20

 +2        SET VAQLN=$$REPEAT^VAQUTL1(" ",79)

 +3        SET VAQCTR=" -- PATIENT DATA -- "

 +4        SET X=$$CENTER^VAQDIS20(VAQLN,VAQCTR)

 +5        DO TMP

           DO BLANK^VAQDIS20

 +6        KILL VAQLN,VAQCTR

ROW1      ;

 +1        SET X=$$SETSTR^VALM1("Sex: "_$GET(@XTRCT@("VALUE",2,.02,0)),"",9,45)

 +2        SET X=$$SETSTR^VALM1("POB: "_$GET(@XTRCT@("VALUE",2,.092,0))_", "_$GET(@XTRCT@("VALUE",2,.093,0)),X,46,33)

 +3        DO TMP

ROW2      ;

 +1        SET X=$$SETSTR^VALM1("Marital: "_$GET(@XTRCT@("VALUE",2,.05,0)),"",5,42)

 +2        SET X=$$SETSTR^VALM1("Father: "_$GET(@XTRCT@("VALUE",2,.2401,0)),X,43,36)

 +3        DO TMP

ROW3      ;

 +1        SET X=$$SETSTR^VALM1("Religion: "_$GET(@XTRCT@("VALUE",2,.08,0)),"",4,42)

 +2        SET X=$$SETSTR^VALM1("Mother: "_$GET(@XTRCT@("VALUE",2,.2402,0)),X,43,36)

 +3        DO TMP

ROW4      ;

 +1        SET VAQTMP=$GET(@XTRCT@("VALUE",2,57.4,0))

 +2        SET VAQINF=$SELECT($PIECE(VAQTMP,"-",1)["PARA":"PARA,",$PIECE(VAQTMP,"-",1)["QUAD":"QUAD,",VAQTMP="":"UNANSWERED",1:"NOT APPLICABLE")_$PIECE(VAQTMP,"-",2)

 +3        SET X=$$SETSTR^VALM1("SCI: "_VAQINF,"",9,35)

 +4        SET X=$$SETSTR^VALM1("Mom's Maiden: "_$GET(@XTRCT@("VALUE",2,.2403,0)),X,37,42)

 +5        DO TMP

           KILL VAQTMP,VAQINF

EXIT      ;

 +1        QUIT 

TMP       ; -- Sets up display array

 +1        SET VALMCNT=VALMCNT+1

 +2        SET @ROOT@(VALMCNT,0)=$EXTRACT(X,1,79)

 +3        QUIT 

 +4       ;

END       ; -- End of code

 +1        QUIT