Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: VAQDIS29

VAQDIS29.m

Go to the documentation of this file.
  1. VAQDIS29 ;ALB/JFP,JRP - BUILDS DISPLAY ARRAY FOR (MAS DATA);3JUL91
  1. ;;1.5;PATIENT DATA EXCHANGE;**13**;NOV 17, 1993
  1. SCR6 ; -- SCREEN 6 (FIRST HALF)
  1. ; Calls VAQDIS30 for second half
  1. R0 ; -- HEADER
  1. D BLANK^VAQDIS20
  1. S VAQLN=$$REPEAT^VAQUTL1(" ",79)
  1. S VAQCTR=" -- MILITARY SERVICE -- "
  1. S X=$$CENTER^VAQDIS20(VAQLN,VAQCTR)
  1. D TMP,BLANK^VAQDIS20
  1. K VAQLN,VAQCTR
  1. R1 ;
  1. S X=$$SETSTR^VALM1("Service Branch","",5,22)
  1. S X=$$SETSTR^VALM1("Service #",X,25,19)
  1. S X=$$SETSTR^VALM1("Entered",X,47,12)
  1. S X=$$SETSTR^VALM1("Separated",X,59,12)
  1. S X=$$SETSTR^VALM1("Discharge",X,70,9)
  1. D TMP
  1. R2 ;
  1. S X=$$SETSTR^VALM1("--------------","",5,22)
  1. S X=$$SETSTR^VALM1("---------",X,25,19)
  1. S X=$$SETSTR^VALM1("---------",X,47,12)
  1. S X=$$SETSTR^VALM1("---------",X,59,12)
  1. S X=$$SETSTR^VALM1("---------",X,70,9)
  1. D TMP
  1. R3 ;LAST SERVICE
  1. S VAQCHK=$G(@XTRCT@("VALUE",2,.325,0))
  1. S X=$$SETSTR^VALM1(VAQCHK,"",5,22)
  1. S X=$$SETSTR^VALM1($G(@XTRCT@("VALUE",2,.328,0)),X,25,19)
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.326,0)) D SCR6A
  1. S X=$$SETSTR^VALM1(VAQINF,X,47,12)
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.327,0)) D SCR6A
  1. S X=$$SETSTR^VALM1(VAQINF,X,59,12)
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.324,0)) D SCR6B
  1. S X=$$SETSTR^VALM1(VAQINF,X,70,9)
  1. D:VAQCHK'="" TMP
  1. R4 ;NEXT TO LAST SERVICE
  1. S VAQCHK=$G(@XTRCT@("VALUE",2,.3291,0))
  1. S X=$$SETSTR^VALM1(VAQCHK,"",5,22)
  1. S X=$$SETSTR^VALM1($G(@XTRCT@("VALUE",2,.3294,0)),X,25,19)
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.3292,0)) D SCR6A
  1. S X=$$SETSTR^VALM1(VAQINF,X,47,12)
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.3293,0)) D SCR6A
  1. S X=$$SETSTR^VALM1(VAQINF,X,59,12)
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.329,0)) D SCR6B
  1. S X=$$SETSTR^VALM1(VAQINF,X,70,9)
  1. D:VAQCHK'="" TMP
  1. R5 ;THIRD SERVICE
  1. S VAQCHK=$G(@XTRCT@("VALUE",2,.3296,0))
  1. S X=$$SETSTR^VALM1(VAQCHK,"",5,22)
  1. S X=$$SETSTR^VALM1($G(@XTRCT@("VALUE",2,.3299,0)),X,25,19)
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.3297,0)) D SCR6A
  1. S X=$$SETSTR^VALM1(VAQINF,X,47,12)
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.3298,0)) D SCR6A
  1. S X=$$SETSTR^VALM1(VAQINF,X,59,12)
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.3295,0)) D SCR6B
  1. S X=$$SETSTR^VALM1(VAQINF,X,70,9)
  1. D:VAQCHK'="" TMP
  1. R6 ;
  1. D BLANK^VAQDIS20
  1. S X=$$SETSTR^VALM1("POW: "_$G(@XTRCT@("VALUE",2,.525,0)),"",13,12)
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.527,0)) D SCR6A
  1. S X=$$SETSTR^VALM1("From: "_VAQINF,X,25,21)
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.528,0)) D SCR6A
  1. S X=$$SETSTR^VALM1("To: "_VAQINF,X,46,16)
  1. S VAQINF="War: "_$$SCRWW($G(@XTRCT@("VALUE",2,.526,0)))
  1. S X=$$SETSTR^VALM1(VAQINF,X,63,17)
  1. D TMP
  1. R7 ;
  1. S X=$$SETSTR^VALM1("Combat: "_$G(@XTRCT@("VALUE",2,.5291,0)),"",10,15)
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.5293,0)) D SCR6A
  1. S X=$$SETSTR^VALM1("From: "_VAQINF,X,25,21)
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.5294,0)) D SCR6A
  1. S X=$$SETSTR^VALM1("To: "_VAQINF,X,46,16)
  1. S VAQINF="Loc: "_$$SCRWW($G(@XTRCT@("VALUE",2,.5292,0)))
  1. S X=$$SETSTR^VALM1(VAQINF,X,63,17)
  1. D TMP
  1. R8 ;
  1. S X=$$SETSTR^VALM1("Vietnam: "_$G(@XTRCT@("VALUE",2,.32101,0)),"",9,16)
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.32104,0)) D SCR6A
  1. S X=$$SETSTR^VALM1("From: "_VAQINF,X,25,21)
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.32105,0)) D SCR6A
  1. S X=$$SETSTR^VALM1("To: "_VAQINF,X,46,33)
  1. D TMP
  1. MAS6B ;SCREEN 6 (SECOND HALF)
  1. D SCR6^VAQDIS30
  1. EXIT K VAQCHK,VAQTMP,VAQINF
  1. Q
  1. TMP ; -- Sets up display array
  1. S VALMCNT=VALMCNT+1
  1. S @ROOT@(VALMCNT,0)=$E(X,1,79)
  1. Q
  1. SCR6A ;DATE CONVERSION
  1. I VAQTMP="" S VAQINF="" QUIT
  1. S VAQTMP=$$DATE^VAQUTL99(VAQTMP)
  1. S VAQINF=$S(VAQTMP'="":$E(VAQTMP,4,5)_"/"_$E(VAQTMP,6,7)_"/"_$E(VAQTMP,2,3),1:VAQTMP)
  1. Q
  1. SCR6B I VAQTMP["OTHER THAN" S VAQINF="OTHER"
  1. S VAQINF=$E(VAQTMP,1,12)
  1. Q
  1. SCRWW(LOC) ;SCREEN FOR WWI & WWII
  1. S LOC=$G(LOC)
  1. Q:($E(LOC,1,5)'="WORLD") LOC
  1. S LOC="WWI"_$E(LOC,12,22)
  1. Q $TR(LOC," ","")