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

VAQDIS25.m

Go to the documentation of this file.
  1. VAQDIS25 ;ALB/JFP,JRP - PDX, BUILDS DISPLAY ARRAY FOR MAS DATA ;01MAR93
  1. ;;1.5;PATIENT DATA EXCHANGE;**13**;NOV 17, 1993
  1. SCR3 ; -- Builds MAS DATA SCREEN 3, NEXT OF KIN
  1. ROW0 ; -- Header
  1. D BLANK^VAQDIS20
  1. S VAQLN=$$REPEAT^VAQUTL1(" ",79)
  1. S VAQCTR=" -- NEXT OF KIN -- "
  1. S X=$$CENTER^VAQDIS20(VAQLN,VAQCTR)
  1. D TMP,BLANK^VAQDIS20
  1. K VAQLN,VAQCTR
  1. ROW1 ;
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.211,0))
  1. S VAQINF=$S(VAQTMP="":"UNANSWERED",1:VAQTMP)
  1. S X=$$SETSTR^VALM1("Nok: "_VAQINF,"",10,46)
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.2191,0))
  1. S VAQINF=$S(VAQTMP="":"UNANSWERED",1:VAQTMP)
  1. S X=$$SETSTR^VALM1("Nok-2: "_VAQINF,X,47,32)
  1. D TMP K VAQTMP,VAQINF
  1. ROW2 ;
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.212,0))
  1. S VAQINF=$S(VAQTMP="":"UNANSWERED",1:VAQTMP)
  1. S X=$$SETSTR^VALM1("Relation: "_VAQINF,"",5,43)
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.2192,0))
  1. S VAQINF=$S(VAQTMP="":"UNANSWERED",1:VAQTMP)
  1. S X=$$SETSTR^VALM1("Relation: "_VAQINF,X,44,37)
  1. D TMP K VAQTMP,VAQINF
  1. ;
  1. NOK ; -- NOK Address
  1. K ADDR
  1. S VAQTMP=1
  1. F VAQX=.213,.214,.215 D Q:(VAQINF="")
  1. .S VAQINF=$G(@XTRCT@("VALUE",2,VAQX,0))
  1. .I ((VAQX=.213)&(VAQINF="")) S VAQINF="STREET ADDRESS UNKNOWN"
  1. .Q:(VAQINF="")
  1. .S ADDR(VAQTMP)=VAQINF
  1. .S VAQTMP=VAQTMP+1
  1. S CTY=$G(@XTRCT@("VALUE",2,.216,0))
  1. S ZIP=$G(@XTRCT@("VALUE",2,.2207,0))
  1. S STATE=$$STATE^VAQDIS20($G(@XTRCT@("VALUE",2,.217,0)))
  1. S VAQINF=$S((CTY="")&(STATE="")&(ZIP=""):"CITY/STATE/ZIP UNKNOWN",1:CTY_$S(STATE="":" ",1:", ")_STATE_" "_ZIP)
  1. S ADDR(VAQTMP)=VAQINF
  1. NOK2 ;NOK-2 Address
  1. K ADDRT
  1. S VAQTMP=1
  1. F VAQX=.2193,.2194,.2195 D Q:(VAQINF="")
  1. .S VAQINF=$G(@XTRCT@("VALUE",2,VAQX,0))
  1. .I ((VAQX=.2193)&(VAQINF="")) S VAQINF="STREET ADDRESS UNKNOWN"
  1. .Q:(VAQINF="")
  1. .S ADDRT(VAQTMP)=VAQINF
  1. .S VAQTMP=VAQTMP+1
  1. S CTY=$G(@XTRCT@("VALUE",2,.2196,0))
  1. S ZIP=$G(@XTRCT@("VALUE",2,.2203,0))
  1. S STATE=$$STATE^VAQDIS20($G(@XTRCT@("VALUE",2,.2197,0)))
  1. S VAQINF=$S((CTY="")&(STATE="")&(ZIP=""):"CITY/STATE/ZIP UNKNOWN",1:CTY_$S(STATE="":" ",1:", ")_STATE_" "_ZIP)
  1. S ADDRT(VAQTMP)=VAQINF
  1. D ADRLOAD
  1. K ADDR,ADDRT,VAQTMP,VAQINF,VAQX,CTY,STATE,ZIP
  1. ;
  1. ROW5 ; -- Phone
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.219,0))
  1. S VAQINF=$S(VAQTMP="":"UNANSWERED",1:VAQTMP)
  1. S X=$$SETSTR^VALM1("Phone: "_VAQINF,"",8,46)
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.2199,0))
  1. S VAQINF=$S(VAQTMP="":"UNANSWERED",1:VAQTMP)
  1. S X=$$SETSTR^VALM1("Phone: "_VAQINF,X,47,32)
  1. D TMP K VAQTMP,VAQINF
  1. ;
  1. ROW6 ; -- Work Phone
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.21011,0))
  1. S VAQINF=$S(VAQTMP="":"UNANSWERED",1:VAQTMP)
  1. S X=$$SETSTR^VALM1("Work Phone: "_VAQINF,"",3,41)
  1. S VAQTMP=$G(@XTRCT@("VALUE",2,.211011,0))
  1. S VAQINF=$S(VAQTMP="":"UNANSWERED",1:VAQTMP)
  1. S X=$$SETSTR^VALM1("Work Phone: "_VAQINF,X,42,37)
  1. D TMP K VAQTMP,VAQINF
  1. ;
  1. D BLANK^VAQDIS20
  1. EXIT ; -- Sets the number of lines in display
  1. QUIT
  1. ;
  1. ADRLOAD ; -- Loads addresses into display array
  1. F VAQX=1:1:4 D
  1. .S VAQINF=""
  1. .S:($D(ADDR(VAQX))) VAQINF=$$SETSTR^VALM1(ADDR(VAQX),VAQINF,15,53)
  1. .S:($D(ADDRT(VAQX))) VAQINF=$$SETSTR^VALM1(ADDRT(VAQX),VAQINF,54,25)
  1. .Q:(VAQINF="")
  1. .S VALMCNT=VALMCNT+1
  1. .S @ROOT@(VALMCNT,0)=$E(VAQINF,1,79)
  1. Q
  1. ;
  1. TMP ; -- Sets up display array
  1. S VALMCNT=VALMCNT+1
  1. S @ROOT@(VALMCNT,0)=$E(X,1,79)
  1. QUIT
  1. ;
  1. END ; -- End of code
  1. QUIT