source: FOIAVistA/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQDIS32.m@ 1470

Last change on this file since 1470 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.4 KB
Line 
1VAQDIS32 ;ALB/JFP,JRP - BUILDS DISPLAY ARRAY FOR (MAS DATA);3JUL91
2 ;;1.5;PATIENT DATA EXCHANGE;**13**;NOV 17, 1993
3SCR10 ;SCREEN 10 of MAS
4R0 ; -- HEADER
5 D BLANK^VAQDIS20
6 S VAQLN=$$REPEAT^VAQUTL1(" ",79)
7 S VAQCTR=" -- INELIGIBLE/MISSING DATA -- "
8 S X=$$CENTER^VAQDIS20(VAQLN,VAQCTR)
9 D TMP,BLANK^VAQDIS20
10 K VAQLN,VAQCTR
11R1 ;
12 S VAQINF=$G(@XTRCT@("VALUE",2,.152,0))
13 S VAQDTE=$S(VAQINF="":0,1:1)
14 S:(VAQINF="") VAQINF="NOT APPLICABLE"
15 S X=$$SETSTR^VALM1("Ineligible Date: "_VAQINF,"",6,41)
16 S VAQTMP=$G(@XTRCT@("VALUE",2,.1651,0)) D SCR
17 S X=$$SETSTR^VALM1("TWX Source: "_VAQINF,X,48,31)
18 D TMP
19R2 ;
20 S VAQTMP=$G(@XTRCT@("VALUE",2,.1653,0)) D SCR
21 S X=$$SETSTR^VALM1("TWX City: "_VAQINF,"",13,35)
22 S VAQTMP=$G(@XTRCT@("VALUE",2,.1654,0)) D SCR
23 S X=$$SETSTR^VALM1("TWX State: "_VAQINF,X,49,30)
24 D TMP
25R3 ;
26 S VAQINF=$G(@XTRCT@("VALUE",2,.307,0))
27 S:('VAQDTE) VAQINF="NOT APPLICABLE"
28 S:((VAQDTE)&(VAQINF="")) VAQINF="UNSPECIFIED"
29 S X=$$SETSTR^VALM1("Reason: "_VAQINF,"",15,64)
30 D TMP
31R4 ;
32 S VAQTMP=$G(@XTRCT@("VALUE",2,.1656,0)) D SCR
33 S X=$$SETSTR^VALM1("VARO Decision: "_VAQINF,"",8,71)
34 D TMP
35R5 ;
36 S VAQINF=$G(@XTRCT@("VALUE",2,.153,0))
37 S VAQDTE=$S(VAQINF="":0,1:1)
38 S:(VAQINF="") VAQINF="NOT APPLICABLE"
39 S X=$$SETSTR^VALM1("Missing Date: "_VAQINF,"",9,38)
40 S VAQTMP=$G(@XTRCT@("VALUE",2,.1657,0)) D SCR
41 S X=$$SETSTR^VALM1("TWX Source: "_VAQINF,X,48,31)
42 D TMP
43R6 ;
44 S VAQTMP=$G(@XTRCT@("VALUE",2,.1658,0)) D SCR
45 S X=$$SETSTR^VALM1("TWX City: "_VAQINF,"",13,35)
46 S VAQTMP=$G(@XTRCT@("VALUE",2,.1659,0)) D SCR
47 S X=$$SETSTR^VALM1("TWX State: "_VAQINF,X,49,30)
48 D TMP
49R7 ;
50 I ('VAQDTE) S X=$$SETSTR^VALM1("Reason: NOT APPLICABLE","",15,64) D TMP G EXIT
51 S SEQ=""
52 I ($O(@XTRCT@("VALUE",2.16,.01,SEQ))="") S X=$$SETSTR^VALM1("Reason: UNSPECIFIED","",15,64) D TMP G EXIT
53 K ^UTILITY($J,"W")
54 S SEQ=""
55 F S SEQ=$O(@XTRCT@("VALUE",2.16,.01,SEQ)) Q:(SEQ="") D
56 .S X=$G(@XTRCT@("VALUE",2.16,.01,SEQ))
57 .S DIWL=23
58 .S DIWR=79
59 .S DIWF=""
60 .D ^DIWP
61 S SEQ=0
62 F S SEQ=$O(^UTILITY($J,"W",23,SEQ)) Q:(SEQ="") D
63 .S X=$G(^UTILITY($J,"W",23,SEQ,0))
64 .S X=$$SETSTR^VALM1(X,"",23,56)
65 .I (SEQ=1) S X=$$SETSTR^VALM1("Reason: ",X,15,8)
66 .D TMP
67 ;
68EXIT K VAQLN,VAQCTR,VAQINF,VAQTMP,X,SEQ,VAQDTE
69 K ^UTILITY($J,"W"),DIWL,DIWR,DIWF
70 QUIT
71 ;
72TMP ; -- Sets up line
73 S VALMCNT=VALMCNT+1
74 S @ROOT@(VALMCNT,0)=$E(X,1,79)
75 QUIT
76 ;
77SCR I ('VAQDTE) S VAQINF="NOT APPLICABLE" Q
78 S VAQINF=$S(VAQTMP="":"UNANSWERED",1:VAQTMP)
79 QUIT
80 ;
81END ;End of code
82 QUIT
Note: See TracBrowser for help on using the repository browser.