source: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUSRVG.m@ 636

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

initial load of FOIAVistA 6/30/08 version
File size: 5.0 KB
Line 
1TIUSRVG ; SLC/JER - Silent Server Calls ;12/21/94 17:50
2 ;;1.0;TEXT INTEGRATION UTILITIES;**173**;Jun 20, 1997
3MULTIPLE(TIUY,TIUDA,TIUECHO) ; Get multiple records
4 N TIUI,TIUX,TIULAST S TIUI=0
5 K ^TMP("TIUVIEW",$J)
6 F S TIUI=$O(TIUDA(TIUI)) Q:+TIUI'>0 D
7 . S TIUX=$G(TIUDA(TIUI)) D GET(.TIUY,TIUX,TIUI,+$G(TIUECHO),1)
8 Q
9GET(TIUY,TIUDA,TIUITEM,TIUECHO,TIUACCUM) ; Get a record
10 N DIC,DIQ,X,Y
11 N TIUI,TIUJ,TIUL,TIUREC S (TIUDADD,TIUI)=0
12 N DA,DIC,DIQ,DR,TIUFILE,TIUNAM
13 K:'+$G(TIUACCUM) ^TMP("TIUVIEW",$J)
14 S DA=TIUDA
15 I '$D(^TIU(8925,+TIUDA,0)) S VALMQUIT=1,TIUY="-1^NONEXISTENT RECORD" Q
16 S (TIUFILE,DIC)=8925,DIQ="TIUREC("
17 S DR=".01;.02;.05;.07:.1;1202;1204;1301;1302;1305;1306;1501;1502;1505;1506;1601:1604"
18 D EN^DIQ1
19 I $D(TIUREC)>9 D
20 . W:+$G(TIUECHO) !!,"Opening "_TIUREC(8925,+TIUDA,.01)_" record for review..."
21 . F TIUJ=1:1:3 S ^TMP("TIUVIEW",$J,TIUITEM,TIUJ,0)=$$SETREC(TIUJ)
22 . S (TIUJ,TIUL)=4,^TMP("TIUVIEW",$J,TIUITEM,TIUJ,0)=" "
23 D LOADREC(TIUDA,TIUITEM,.TIUJ,.TIUL)
24 I $L($G(TIUREC(8925,+TIUDA,1601))) D
25 . N TIUMODE
26 . S TIUJ=+$G(TIUJ)+1,^TMP("TIUVIEW",$J,TIUITEM,TIUJ,0)="",TIUL=+$G(TIUL)+1
27 . S TIUJ=+$G(TIUJ)+1
28 . S ^TMP("TIUVIEW",$J,TIUITEM,TIUJ,0)=$G(TIUREC(8925,TIUDA,1601))_" AMENDMENT FILED:"
29 . S TIUL=+$G(TIUL)+1
30 . S TIUJ=+$G(TIUJ)+1,^TMP("TIUVIEW",$J,TIUITEM,TIUJ,0)="",TIUL=+$G(TIUL)+1
31 . S TIUJ=+$G(TIUJ)+1
32 . S TIUMODE=$S($G(TIUREC(8925,TIUDA,1603))]"":"/es/ ",1:"/chart/ ")
33 . S ^TMP("TIUVIEW",$J,TIUITEM,TIUJ,0)=TIUMODE_$G(TIUREC(8925,TIUDA,1602))
34 . S TIUL=+$G(TIUL)+1
35 . S TIUJ=+$G(TIUJ)+1
36 . ;S ^TMP("TIUVIEW",$J,TIUITEM,TIUJ,0)=$P(TIUPRM1,U,5)
37 . S TIUL=+$G(TIUL)+1
38 I +$G(TIUACCUM) D
39 . S TIUJ=+$G(TIUJ)+1
40 . S ^TMP("TIUVIEW",$J,TIUITEM,TIUJ,0)=" "
41 . S TIUL=+$G(TIUL)+1
42 . S TIUJ=+$G(TIUJ)+1
43 . S $P(^TMP("TIUVIEW",$J,TIUITEM,TIUJ,0),"=",79)=""
44 . S TIUL=+$G(TIUL)+1
45 ; S ^TMP("TIUVIEW",$J,TIUITEM,0)=$G(^TIU(8925,+TIUDA,"TEXT",0))
46 S TIUY="^TMP(""TIUVIEW"","_$J_")",TIUL=+$P($G(^TMP("TIUVIEW",$J,0)),U,3)+TIUL
47 S ^TMP("TIUVIEW",$J,0)="^^"_TIUL_U_TIUL_U_DT,VALMCNT=TIUL
48 Q
49LOADREC(TIUDA,TIUITEM,TIUJ,TIUL,TIUDAD) ; Load ^TMP
50 N TIUKID,TIUDADT,TIUI S TIUI=0
51 F S TIUI=$O(^TIU(8925,+TIUDA,"TEXT",TIUI)) Q:+TIUI'>0 D
52 . S TIUJ=+$G(TIUJ)+1
53 . S ^TMP("TIUVIEW",$J,TIUITEM,TIUJ,0)=$G(^TIU(8925,+TIUDA,"TEXT",+TIUI,0))
54 . S TIUL=+$G(TIUL)+1
55 S TIUKID=0
56 F S TIUKID=$O(^TIU(8925,"DAD",+TIUDA,TIUKID)) Q:+TIUKID'>0 D
57 . N TIUTYP S TIUTYP=$P($G(^TIU(8925.1,+$G(^TIU(8925,+TIUKID,0)),0)),U)
58 . I TIUTYP="ADDENDUM" D LOADADD(TIUKID,.TIUL) I 1
59 . E D LOADREC(TIUKID,TIUITEM,.TIUJ,.TIUL,TIUDA)
60 Q
61LOADADD(TIUDADD,TIUL) ; Load addenda
62 N TIUDAUTH,TIUDATT,TIUJ,TIUSIG,TIUCSIG
63 ;I +$$CANSEE^TIULP(+TIUDADD)'>0 Q
64 S TIUJ=0,TIUI=+$G(TIUL)+1,^TMP("TIUVIEW",$J,TIUDADD,TIUI,0)=" "
65 S TIUDADT=$$DATE^TIULS($P(^TIU(8925,+TIUDADD,13),U),"MM/DD/YY")
66 S TIUI=TIUI+1,^TMP("TIUVIEW",$J,TIUDADD,TIUI,0)=TIUDADT_" ADDENDUM:"
67 F S TIUJ=$O(^TIU(8925,+TIUDADD,"TEXT",TIUJ)) Q:+TIUJ'>0 D
68 . S (TIUI,TIUL)=+$G(TIUI)+1
69 . S ^TMP("TIUVIEW",$J,TIUDADD,TIUI,0)=$G(^TIU(8925,+TIUDADD,"TEXT",TIUJ,0))
70 S (TIUI,TIUL)=TIUL+1
71 S TIUSIG=$S(+$P(^TIU(8925,+TIUDADD,15),U)&($P(^(15),U,3)="E"):"/es/ ",1:" ")_$$SIGNAME^TIULS($P(^TIU(8925,+TIUDADD,15),U,2))
72 S TIUCSIG=$S(+$P(^TIU(8925,+TIUDADD,15),U,5)&($P(^(15),U,7)="E"):"/es/ ",1:" ")_$$SIGNAME^TIULS($P(^TIU(8925,+TIUDADD,15),U,6))
73 S TIUSIG=$$SETSTR^VALM1(TIUSIG,$G(TIUSIG),1,35)
74 S TIUSIG=$$SETSTR^VALM1(TIUCSIG,$G(TIUSIG),40,35)
75 S ^TMP("TIUVIEW",$J,TIUDADD,TIUI,0)=TIUSIG
76 S (TIUI,TIUL)=TIUL+1
77 S TIUDAUTH=$$SIGNAME^TIULS($P(^TIU(8925,+TIUDADD,12),U,2))
78 S TIUDATT=$$SIGNAME^TIULS($P(^TIU(8925,+TIUDADD,12),U,4))
79 S TIUDAUTH=$$SETSTR^VALM1($S(TIUSIG]" "&(TIUSIG'[TIUDAUTH):"for ",1:" ")_TIUDAUTH,$G(TIUDAUTH),1,35)
80 S TIUDAUTH=$$SETSTR^VALM1($S(TIUCSIG]" "&(TIUCSIG'[TIUDATT):"for ",1:" ")_TIUDATT,$G(TIUDAUTH),40,35)
81 S ^TMP("TIUVIEW",$J,TIUDADD,TIUI,0)=TIUDAUTH
82 Q
83SETREC(LINE) ; Calls $$SETSTR^VALM1 for each line of ^TMP("TIUVIEW",$J,
84 N Y
85 I LINE="HDR" D
86 . S Y=$$SETSTR^VALM1($$NAME^TIULS(TIU("PNM"),"LAST,FI MI"),$G(Y),1,15)
87 . S Y=$$SETSTR^VALM1(TIU("SSN"),$G(Y),16,12)
88 . S Y=$$SETSTR^VALM1($P(TIU("WARD"),U,2),$G(Y),30,20)
89 . I +TIU("DOCTYP")=1 D
90 . . S Y=$$SETSTR^VALM1("Adm: "_$$DATE^TIULS(+TIU("EDT"),"MM/DD/YY"),$G(Y),51,13)
91 . . S Y=$$SETSTR^VALM1("Dis: "_$$DATE^TIULS(+TIU("LDT"),"MM/DD/YY"),$G(Y),66,13)
92 . I +TIU("DOCTYP")'=1 D
93 . . S Y=$$SETSTR^VALM1("Visit Date: "_$$DATE^TIULS(+TIU("EDT"),"MM/DD/YY@HR:MIN"),$G(Y),53,26)
94 I LINE=1 D
95 . S Y=$$SETSTR^VALM1("DICT DATE: "_$G(TIUREC(8925,+TIUDA,1301)),$G(Y),3,39)
96 . S Y=$$SETSTR^VALM1("TRANSC DATE: "_$G(TIUREC(8925,+TIUDA,1201)),$G(Y),37,39)
97 I LINE=2 D
98 . S Y=$$SETSTR^VALM1("ATTENDING: "_$G(TIUREC(8925,+TIUDA,1204)),$G(Y),39,40)
99 . I +$G(^TIU(8925,+TIUDA,0))=$$CHKFILE^TIUADCL(8925.1,"OPERATION REPORT","I $P(^(0),U,4)=""DOC""") S Y=$$SETSTR^VALM1("SURGEON: "_$G(TIUREC(8925,+TIUDA,1202)),$G(Y),1,32) Q
100 . S Y=$$SETSTR^VALM1("DICTATED BY: "_$G(TIUREC(8925,+TIUDA,1202)),$G(Y),1,32)
101 I LINE=3 D
102 . S Y=$$SETSTR^VALM1("URGENCY: "_$G(TIUREC(8925,+TIUDA,.09)),$G(Y),5,36)
103 . S Y=$$SETSTR^VALM1("DOC STATUS: "_$G(TIUREC(8925,+TIUDA,.05)),$G(Y),38,41)
104 Q Y
Note: See TracBrowser for help on using the repository browser.