| [613] | 1 | TIUSRVP2 ; SLC/JER - More RPCs related to note actions ;8/15/05
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**184**;Jun 20, 1997
|
|---|
| 3 | MAKEADD(TIUDADD,TIUDA,TIUX,SUPPRESS) ; Create addendum
|
|---|
| 4 | N DIE,DR,DA,DIC,X,Y,DLAYGO,TIUATYP,TIUCAN,TIUFPRIV,TIU S TIUFPRIV=1
|
|---|
| 5 | N PTIEN,SUCCESS
|
|---|
| 6 | S TIUCAN=$$CANDO^TIULP(TIUDA,"MAKE ADDENDUM")
|
|---|
| 7 | I TIUCAN'>0 S TIUDADD="0^You may not MAKE AN ADDENDUM for this "_$$STATUS^TIULC(TIUDA)_" "_$$PNAME^TIULC1(+$G(^TIU(8925,+TIUDA,0))) Q
|
|---|
| 8 | S TIUATYP=+$$WHATITLE^TIUPUTU("ADDENDUM")
|
|---|
| 9 | S (DIC,DLAYGO)=8925,DIC(0)="L",X=""""_"`"_TIUATYP_""""
|
|---|
| 10 | D ^DIC
|
|---|
| 11 | S TIUDADD=+Y
|
|---|
| 12 | I +Y'>0 S TIUDADD=TIUDADD_"^Could not create addendum." Q
|
|---|
| 13 | D GETTIU^TIULD(.TIU,TIUDA)
|
|---|
| 14 | S TIU("DOCTYP")=TIUATYP_U_$$PNAME^TIULC1(TIUATYP)
|
|---|
| 15 | S PTIEN=$P(^TIU(8925,TIUDA,0),U,2)
|
|---|
| 16 | D STUFREC^TIUSRVP1(+TIUDADD,.TIUX,PTIEN,+$G(TIUDA),TIUATYP,.TIU)
|
|---|
| 17 | K ^TIU(8925,+TIUDADD,"TEMP")
|
|---|
| 18 | M ^TIU(8925,+TIUDADD,"TEMP")=TIUX("TEXT") K TIUX("TEXT")
|
|---|
| 19 | D SETXT0^TIUSRVP(+TIUDADD)
|
|---|
| 20 | D FILE^TIUSRVP(.SUCCESS,+TIUDADD,.TIUX,+$G(SUPPRESS))
|
|---|
| 21 | I +SUCCESS'>0 D DIK^TIURB2(TIUDADD) S TIUDADD="-1^Could not create addendum." Q
|
|---|
| 22 | I +$O(^TIU(8925,+TIUDADD,"TEMP",0)) D MERGTEXT^TIUEDI1(+TIUDADD,.TIU)
|
|---|
| 23 | I '+$G(SUPPRESS) D RELEASE^TIUT(+TIUDADD,1)
|
|---|
| 24 | K ^TIU(8925,+TIUDADD,"TEMP")
|
|---|
| 25 | Q
|
|---|
| 26 | SETCOS(TIUDA,TIUX,TIUD0,TIUD12) ; set cosig req
|
|---|
| 27 | N TIUDAD,TIUEXS,TIUNCS,TIUEXCS,TIURCS,TIUATT,TIUTTL,TIUDAD0
|
|---|
| 28 | S TIUEXS=$S(+$G(TIUX(1202)):+$G(TIUX(1202)),1:$P(TIUD12,U,4))
|
|---|
| 29 | S TIUNCS=$S(+$G(TIUX(1208)):+$G(TIUX(1208)),+$G(TIUX(1209)):+$G(TIUX(1209)),1:0)
|
|---|
| 30 | I TIUNCS S TIUX(1506)=$S(TIUNCS=TIUEXS:0,1:1) G SETCOSX
|
|---|
| 31 | S TIUEXCS=$P(TIUD12,U,8),TIUATT=$P(TIUD12,U,9)
|
|---|
| 32 | S TIUDAD=+$P(TIUD0,U,6),TIUDAD0=$G(^TIU(8925,+TIUDAD,0))
|
|---|
| 33 | I +$$ISDS^TIULX($S(+TIUDAD:+TIUDAD0,1:+TIUD0)) D G SETCOSX
|
|---|
| 34 | . S TIUX(1506)=$S(TIUEXS=TIUEXCS:0,1:1)
|
|---|
| 35 | S TIUTTL=$S(+$G(TIUX(.01)):+$G(TIUX(.01)),1:+TIUD0)
|
|---|
| 36 | S TIUX(1506)=+$$REQCOSIG^TIULP(TIUTTL,TIUDA,TIUEXS)
|
|---|
| 37 | SETCOSX S:'TIUX(1506) TIUX(1208)="@"
|
|---|
| 38 | Q
|
|---|
| 39 | SIGN(ERR,TIUDA,TIUX) ; API for /es/
|
|---|
| 40 | N X,TIUACT,TIUSIGN,TIUD0,TIUD12,TIUSTAT,SIGNER,COSIGNER,VALID,XTRASGNR
|
|---|
| 41 | N TIUES S ERR=0
|
|---|
| 42 | S TIUD0=$G(^TIU(8925,+TIUDA,0)),TIUD12=$G(^TIU(8925,+TIUDA,12))
|
|---|
| 43 | S SIGNER=$P(TIUD12,U,4),COSIGNER=$P(TIUD12,U,8)
|
|---|
| 44 | I (DUZ'=SIGNER),(DUZ'=COSIGNER) S XTRASGNR=+$O(^TIU(8925.7,"AE",+TIUDA,+DUZ,0))
|
|---|
| 45 | I $G(XTRASGNR),+$P($G(^TIU(8925.7,$G(XTRASGNR),0)),U,4) S XTRASGNR=""
|
|---|
| 46 | I '$G(XTRASGNR) S XTRASGNR=$$ASURG^TIUADSIG(TIUDA)
|
|---|
| 47 | S TIUSTAT=+$P(TIUD0,U,5)
|
|---|
| 48 | S TIUACT=$S(TIUSTAT'>5:"SIGNATURE",+$G(XTRASGNR):"SIGNATURE",1:"COSIGNATURE")
|
|---|
| 49 | S TIUSIGN=$$CANDO^TIULP(TIUDA,TIUACT)
|
|---|
| 50 | I +TIUSIGN'>0 S ERR="89250004^"_$P(TIUSIGN,U,2) Q
|
|---|
| 51 | S VALID=$$VALIDATE($$DECRYP^XUSRB1(TIUX))
|
|---|
| 52 | I +VALID'>0 S ERR="89250005^"_$$EZBLD^DIALOG(89250005) Q
|
|---|
| 53 | S TIUES=1_U_$$GET1^DIQ(200,+DUZ,20.2)_U_$$GET1^DIQ(200,+DUZ,20.3)
|
|---|
| 54 | I '+$G(XTRASGNR) D ES^TIURS(TIUDA,TIUES)
|
|---|
| 55 | I +$G(XTRASGNR) D ADDSIG^TIURS1(TIUDA,XTRASGNR)
|
|---|
| 56 | I +$G(^TIU(8925,TIUDA,21)),(TIUACT="SIGNATURE") D AUDLINK^TIUGR1(TIUDA,"a",+$G(^TIU(8925,TIUDA,21)))
|
|---|
| 57 | Q
|
|---|
| 58 | VALIDATE(X) ; Validate /es/-code
|
|---|
| 59 | N TIUY S TIUY=0
|
|---|
| 60 | D HASH^XUSHSHP I X]"",(X=$P($G(^VA(200,+DUZ,20)),U,4)) S TIUY=1
|
|---|
| 61 | Q TIUY
|
|---|
