Changeset 636 for FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 33 edited
- 1 copied
-
. (copied) (copied from FOIAVistA/trunk/r )
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUDD1.m (modified) (9 diffs)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS1.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS10.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS11.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS12.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS13.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS14.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS2.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS3.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS4.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS5.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS6.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS7.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS8.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS9.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUFLF4.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIULMED.m (modified) (4 diffs)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIULP.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPR200.m (modified) (2 diffs)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPR222.m (modified) (2 diffs)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPRPN8.m (modified) (2 diffs)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUR.m (modified) (3 diffs)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIURL.m (modified) (3 diffs)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIURM.m (modified) (4 diffs)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUSRVA.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC1.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC2.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC3.m (modified) (2 diffs)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC4.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC5.m (modified) (1 diff)
-
TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC6.m (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUDD1.m
r628 r636 1 1 TIUDD1 ; SLC/JER - XREFs for file 8925.1 ;19-OCT-2001 10:05:37 [7/28/04 9:08am] 2 ;;1.0;TEXT INTEGRATION UTILITIES;**7,51,115,163 ,224**;Jun 20, 1997;Build72 ;;1.0;TEXT INTEGRATION UTILITIES;**7,51,115,163**;Jun 20, 1997 3 3 SACL(X,FLD) ; Set logic for ACL cross-reference 4 4 ; Called from fields .01 (NAME), .07 (STATUS), .03 (PRINT NAME), … … 31 31 . I $P($G(^TIU(8925.1,+TIUDA,0)),U,4)'="DOC" Q 32 32 . S TIUSTTS=$P($G(^TIU(8925.1,+TIUDA,0)),U,7) 33 . ;VMPELR P 224 allow the update of inactive titles 34 . ; Include only TEST or ACTIVE or INACTIVE TITLES 35 . I $S(TIUSTTS=10:0,TIUSTTS=11:0,TIUSTTS=13:0,1:1) Q 33 . ; Include only TEST or ACTIVE titles 34 . I $S(TIUSTTS=10:0,TIUSTTS=11:0,1:1) Q 36 35 . S TIUTTL=$P($G(^TIU(8925.1,+TIUDA,0)),U) 37 36 . Q:TIUTTL']"" … … 73 72 . I $P($G(^TIU(8925.1,+TIUDA,0)),U,4)'="DOC" Q 74 73 . S TIUSTTS=$P($G(^TIU(8925.1,+TIUDA,0)),U,7) 75 . ; Include only TEST or ACTIVE OR inactivetitles76 . I $S(TIUSTTS=10:0,TIUSTTS=11:0, TIUSTTS=13:0,1:1) Q74 . ; Include only TEST or ACTIVE titles 75 . I $S(TIUSTTS=10:0,TIUSTTS=11:0,1:1) Q 77 76 . ; First build x-ref for Clinical Documents & Immediate descendents 78 77 . S TIUCLASS=+$$CLINDOC^TIULC1(+TIUDA) … … 80 79 . S ^TIU(8925.1,"ACL",TIUCLASS,X,+TIUDA)="" 81 80 . S ^TIU(8925.1,"ACL",38,X,+TIUDA)="" 82 . S TIUABV=$P($G(^TIU(8925.1,+TIUDA,0)),U,2)83 . I TIUABV]"" S TIUABV=TIUABV_" <"_X_">" S ^TIU(8925.1,"ACL",TIUCLASS,TIUABV,+TIUDA)="",^TIU(8925.1,"ACL",38,TIUABV,+TIUDA)=""84 . S TIUPN=$P($G(^TIU(8925.1,+TIUDA,0)),U,3)85 . I TIUPN]"" S TIUPN=TIUPN_" <"_X_">" S ^TIU(8925.1,"ACL",TIUCLASS,TIUPN,+TIUDA)="",^TIU(8925.1,"ACL",38,TIUPN,+TIUDA)=""86 81 . D SACLKWIC(X,TIUCLASS,+TIUDA) 87 82 . ; Now build x-ref for document classes … … 89 84 . I TIUCLASS'>0 Q 90 85 . S ^TIU(8925.1,"ACL",TIUCLASS,X,+TIUDA)="" 91 . ;VMP/ELR PATCH 224 ADDED NEXT 4 LINES92 . S TIUABV=$P($G(^TIU(8925.1,+TIUDA,0)),U,2)93 . I TIUABV]"" S TIUABV=TIUABV_" <"_X_">" S ^TIU(8925.1,"ACL",TIUCLASS,TIUABV,+TIUDA)=""94 . S TIUPN=$P($G(^TIU(8925.1,+TIUDA,0)),U,3)95 . I TIUPN]"" S TIUPN=TIUPN_" <"_X_">" S ^TIU(8925.1,"ACL",TIUCLASS,TIUPN,+TIUDA)=""96 86 . D SACLKWIC(X,TIUCLASS,+TIUDA) 97 87 Q … … 124 114 . I $P($G(^TIU(8925.1,+TIUDA,0)),U,4)'="DOC" Q 125 115 . S TIUSTTS=$P($G(^TIU(8925.1,+TIUDA,0)),U,7) 126 . ; Include only TEST or ACTIVE or INACTIVEtitles127 . I $S(TIUSTTS=10:0,TIUSTTS=11:0, TIUSTTS=13:0,1:1) Q116 . ; Include only TEST or ACTIVE titles 117 . I $S(TIUSTTS=10:0,TIUSTTS=11:0,1:1) Q 128 118 . S TIUTTL=$P($G(^TIU(8925.1,+TIUDA,0)),U) 129 119 . Q:TIUTTL']"" … … 153 143 . D KACLKWIC(TIUTTL,TIUCLASS,+TIUDA) 154 144 I FLD=.01 D 155 . N TIUDA ,TIUABV,TIUPN145 . N TIUDA 156 146 . S TIUDA=$S(+$G(DA(1)):+$G(DA(1)),1:+$G(DA)) 157 147 . ; First remove x-ref for Clinical Documents & Immediate descendents … … 159 149 . K ^TIU(8925.1,"ACL",TIUCLASS,X,+TIUDA) 160 150 . K ^TIU(8925.1,"ACL",38,X,+TIUDA) 161 . S TIUABV=$P($G(^TIU(8925.1,+TIUDA,0)),U,2)162 . I TIUABV]"" S TIUABV=TIUABV_" <"_X_">" K ^TIU(8925.1,"ACL",TIUCLASS,TIUABV,+TIUDA),^TIU(8925.1,"ACL",38,TIUABV,+TIUDA)163 . S TIUPN=$P($G(^TIU(8925.1,+TIUDA,0)),U,3)164 . I TIUPN]"" S TIUPN=TIUPN_" <"_X_">" K ^TIU(8925.1,"ACL",TIUCLASS,TIUPN,+TIUDA),^TIU(8925.1,"ACL",38,TIUPN,+TIUDA)165 151 . D KACLKWIC(X,TIUCLASS,+TIUDA) 166 152 . ; Now remove x-ref for document classes 167 153 . S TIUCLASS=+$$DOCCLASS^TIULC1(+TIUDA) 168 154 . K ^TIU(8925.1,"ACL",TIUCLASS,X,+TIUDA) 169 . ;VMP/ELR PATCH 224 ADDED NEXT 4 LINES170 . S TIUABV=$P($G(^TIU(8925.1,+TIUDA,0)),U,2)171 . I TIUABV]"" S TIUABV=TIUABV_" <"_X_">" K ^TIU(8925.1,"ACL",TIUCLASS,TIUABV,+TIUDA)172 . S TIUPN=$P($G(^TIU(8925.1,+TIUDA,0)),U,3)173 . I TIUPN]"" S TIUPN=TIUPN_" <"_X_">" K ^TIU(8925.1,"ACL",TIUCLASS,TIUPN,+TIUDA)174 155 . D KACLKWIC(X,TIUCLASS,+TIUDA) 175 156 Q … … 180 161 . I "(,.?! '-/&:;)"[TIUC S TIUC=$E($E(X,TIUI,TIUJ-1),1,30),TIUI=TIUJ+1 181 162 . I I $L(TIUC)>2 K ^TIU(8925.1,"ACL",TIUCLASS,TIUC_" <"_X_">",TIUDA),^TIU(8925.1,"ACL",38,TIUC_" <"_X_">",TIUDA) 182 Q 163 Q -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS.m
r628 r636 1 TIUEDS ; GENERATED FROM 'TIU ENTER/EDIT DS' INPUT TEMPLATE(#1491), FILE 8925;0 1/12/061 TIUEDS ; GENERATED FROM 'TIU ENTER/EDIT DS' INPUT TEMPLATE(#1491), FILE 8925;03/29/06 2 2 D DE G BEGIN 3 3 DE S DIE="^TIU(8925,",DIC=DIE,DP=8925,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^TIU(8925,DA,""))="" -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS1.m
r628 r636 1 TIUEDS1 ; ;0 1/12/061 TIUEDS1 ; ;03/29/06 2 2 S X=DG(DQ),DIC=DIE 3 3 I $P($$DOCTYPE^TIULF(+DA),U)="DOC",$L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,3)>0) S ^TIU(8925,"AA",+X,+^TIU(8925,+DA,0),(9999999-$P(+^AUPNVSIT($P(^TIU(8925,+DA,0),U,3),0),".")),+DA)="" -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS10.m
r628 r636 1 TIUEDS10 ; ;0 1/12/061 TIUEDS10 ; ;03/29/06 2 2 D DE G BEGIN 3 3 DE S DIE="^TIU(8925,",DIC=DIE,DP=8925,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^TIU(8925,DA,""))="" -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS11.m
r628 r636 1 TIUEDS11 ; ;0 1/12/061 TIUEDS11 ; ;03/29/06 2 2 S X=DE(12),DIC=DIE 3 3 I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ALOC",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA) -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS12.m
r628 r636 1 TIUEDS12 ; ;0 1/12/061 TIUEDS12 ; ;03/29/06 2 2 S X=DG(DQ),DIC=DIE 3 3 I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ALOC",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)="" -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS13.m
r628 r636 1 TIUEDS13 ; ;0 1/12/061 TIUEDS13 ; ;03/29/06 -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS14.m
r628 r636 1 TIUEDS14 ; ;0 1/12/061 TIUEDS14 ; ;03/29/06 2 2 ;; 3 3 1 N X,X1,X2 S DIXR=247 D X1(U) K X2 M X2=X D X1("F") K X1 M X1=X -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS2.m
r628 r636 1 TIUEDS2 ; ;0 1/12/061 TIUEDS2 ; ;03/29/06 2 2 S X=DG(DQ),DIC=DIE 3 3 I $P($$DOCTYPE^TIULF(+DA),U)="DOC",$L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,2)>0) S ^TIU(8925,"AA",$P(^(0),U,2),+$P(^(0),U),(9999999-$P(+$G(^AUPNVSIT(X,0)),".")),DA)="" -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS3.m
r628 r636 1 TIUEDS3 ; ;0 1/12/061 TIUEDS3 ; ;03/29/06 2 2 S X=DE(12),DIC=DIE 3 3 K ^TIU(8925,"CA",$E(X,1,30),DA) -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS4.m
r628 r636 1 TIUEDS4 ; ;0 1/12/061 TIUEDS4 ; ;03/29/06 2 2 S X=DG(DQ),DIC=DIE 3 3 S ^TIU(8925,"CA",$E(X,1,30),DA)="" -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS5.m
r628 r636 1 TIUEDS5 ; ;0 1/12/061 TIUEDS5 ; ;03/29/06 2 2 D DE G BEGIN 3 3 DE S DIE="^TIU(8925,",DIC=DIE,DP=8925,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^TIU(8925,DA,""))="" -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS6.m
r628 r636 1 TIUEDS6 ; ;0 1/12/061 TIUEDS6 ; ;03/29/06 2 2 S X=DE(9),DIC=DIE 3 3 I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"AAU",+$P(^TIU(8925,+DA,12),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA) -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS7.m
r628 r636 1 TIUEDS7 ; ;0 1/12/061 TIUEDS7 ; ;03/29/06 2 2 S X=DG(DQ),DIC=DIE 3 3 I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"AAU",+$P(^TIU(8925,+DA,12),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)="" -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS8.m
r628 r636 1 TIUEDS8 ; ;0 1/12/061 TIUEDS8 ; ;03/29/06 2 2 S X=DE(17),DIC=DIE 3 3 K ^TIU(8925,"F",$E(X,1,30),DA) -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS9.m
r628 r636 1 TIUEDS9 ; ;0 1/12/061 TIUEDS9 ; ;03/29/06 2 2 S X=DG(DQ),DIC=DIE 3 3 S ^TIU(8925,"F",$E(X,1,30),DA)="" -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUFLF4.m
r628 r636 1 1 TIUFLF4 ; SLC/MAM - Lib; ANCESTOR(FILEDA,NODE0,ANCESTOR,DOCFLAG), ORPHAN(FILEDA,NODE0,ANCESTOR), STUFFLDS(FILEDA,PFILEDA), ADDTEN(PFILEDA,FILEDA,NODE0,TENDA),NUMITEMS(FILEDA), MISSITEM(FILEDA) ;4/23/97 11:02 2 ;;1.0;TEXT INTEGRATION UTILITIES;**11,43 ,236**;Jun 20, 1997;Build 22 ;;1.0;TEXT INTEGRATION UTILITIES;**11,43**;Jun 20, 1997 3 3 ; 4 4 NUMITEMS(FILEDA) ; Function returns Number of Items of FILEDA; Possibly 0 -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIULMED.m
r628 r636 1 TIULMED ; SLC/JM,JH ,AJB - Active/Recent Med Objects Routine ; 12/18/072 ;;1.0;TEXT INTEGRATION UTILITIES;**38,73,92,94,183,193,197,198,202,213 ,238**;Jun 20, 1997;Build 61 TIULMED ; SLC/JM,JH - Active/Recent Med Objects Routine ;1/23/07 2 ;;1.0;TEXT INTEGRATION UTILITIES;**38,73,92,94,183,193,197,198,202,213**;Jun 20, 1997;Build 3 3 3 Q 4 4 LIST(DFN,TARGET,ACTVONLY,DETAILED,ALLMEDS,ONELIST,CLASSORT,SUPPLIES) ; … … 62 62 ; 63 63 ; *** Scan medication data and skip unwanted meds *** 64 ; Changes for *238 required by PSO*7*29465 D66 . I $$PATCH^XPDUTL("PSO*7.0*294"),+$D(TIUDATE) S TIUDATE=$$FMADD^XLFDT(DT,-$G(TIUDATE)) D OCL^PSOQ0496(DFN,TIUDATE,"") Q ; IA 240067 . D OCL^PSOORRL(DFN,"","") ; IA 240068 64 ; 65 D OCL^PSOORRL(DFN,"","") ; IA 2400 69 66 S INDEX=0 70 67 F S INDEX=$O(^TMP("PS",$J,INDEX)) Q:INDEX'>0 D … … 81 78 ..I ACTVONLY=2 S KEEPMED=(STATIDX=3) 82 79 ..I +ONELIST S STATIDX=1 83 ..; Changes for *238 required by PSO*7*29484 ..I $$PATCH^XPDUTL("PSO*7.0*294"),+$D(TIUDATE),STATUS["DISCONTINUED" S KEEPMED=085 80 .I KEEPMED D 86 81 ..S TYPE=$P($P(NODE,U),";",2) … … 180 175 ; 181 176 D SORTSAVE^TIULMED3 K @TARGET@("B"),@TARGET@("C") ;P213 182 LISTX K ^TMP("PS",$J),^TMP($J,"TIULMED") ,TIUDATE ; K TIUDATE added for PSO*7*294177 LISTX K ^TMP("PS",$J),^TMP($J,"TIULMED") 183 178 Q "~@"_$NA(@TARGET) 184 179 ; -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIULP.m
r628 r636 1 1 TIULP ; SLC/JER - Functions determining privilege ;7/29/05 2 ;;1.0;TEXT INTEGRATION UTILITIES;**98,100,116,109,138,152,175,157,182,184,217 ,236**;Jun 20, 1997;Build 22 ;;1.0;TEXT INTEGRATION UTILITIES;**98,100,116,109,138,152,175,157,182,184,217**;Jun 20, 1997 3 3 CANDO(TIUDA,TIUACT,PERSON) ; Can PERSON perform action now 4 4 ; Receives: TIUDA=Record number in file 8925 -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPR200.m
r628 r636 2 2 ;;1.0;TEXT INTEGRATION UTILITIES;**200**;Jun 20, 1997 3 3 ; 4 Q4 N LINE,TIUABORT,TIUCNSLT,TIUCOCOR,TIUFPRIV,TIUNAME,TIUPGNTS,TIUPRNT,TITLE,X,Y 5 5 W !,"Verifying installation environment..." 6 6 S TIUCOCOR=$$LU(8930,"CLINICAL COORDINATOR","X") I '+TIUCOCOR W !,"Installation Error: CLINICAL COORDINATOR (Class Owner) cannot be defined." S TIUABORT=1 … … 10 10 W "complete." 11 11 Q 12 EN Q12 EN ; 13 13 N LINE,TIUABORT,TIUCNSLT,TIUCOCOR,TIUFPRIV,TIUNAME,TIUPGNTS,TIUPRNT,TITLE,X,Y 14 14 X ^%ZOSF("EON") W $G(IOCUON) W:+$L($G(IOF)) @IOF -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPR222.m
r628 r636 1 TIUPR222 ; SLC/AJB - TIU Form Letter Update;06Mar07 1 TIUPR222 ; SLC/AJB - TIU Form Letter Update;06Mar07 ;12/27/07 18:20 2 2 ;;1.0;TEXT INTEGRATION UTILITIES;**222**;Jun 20, 1997 3 3 Q … … 8 8 . . I $$CHKTITLE(8925.1,NAME)>0 S TIUQUIT=1 9 9 I +$G(TIUQUIT) W !!,"Titles have already been installed and will not be installed again." Q 10 I '$D(ZTQUEUED) X ^%ZOSF("EON") W IOCUON,@IOF10 I '$D(ZTQUEUED) X ^%ZOSF("EON") W $G(IOCUON),@IOF ;WVEHR/VOE IOCUON TO $G(IOCUON) 11 11 I $$CHKTITLE(8925.1,"PROGRESS NOTES")<0 G EXIT 12 12 W !!,"Creating the new DOCUMENT CLASS ""FORM LETTERS"" and" -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPRPN8.m
r628 r636 1 1 TIUPRPN8 ;SLC/MAM - Print SF 509-Progress Notes, Cont ;11/10/04 [1/4/05 12:17pm] 2 ;;1.0;TEXT INTEGRATION UTILITIES;**100,176,157,182 ,224**;Jun 20, 1997;Build72 ;;1.0;TEXT INTEGRATION UTILITIES;**100,176,157,182**;Jun 20, 1997 3 3 ; 4 4 SIGBLK(TIUFOOT,TIUMISC,TIUCONT1,TIUCONT,TIUSIG,TIUROOT) ; Print signature block info … … 55 55 . N TIUI S TIUI=0 56 56 . S TIUCONT=$$SETCONT^TIUPRPN1(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) Q:'TIUCONT 57 . W !?4,"Receipt Acknowledged By:" 57 58 . F S TIUI=$O(@TIUROOT@("EXTRASGNR",TIUI)) Q:'TIUI D 58 . . W !!?4,"Receipt Acknowledged By:" 59 . . ;VMP/ELR P224 ADDED code to print awaiting signature and expected additional signer name 60 . . I +$G(@TIUROOT@("EXTRASGNR",TIUI,"DATE"))'>0 D Q 61 . . . W !,?4,"* AWAITING SIGNATURE *",?30,$G(@TIUROOT@("EXTRASGNR",TIUI,"EXPNAME")) 59 . . I +$G(@TIUROOT@("EXTRASGNR",TIUI,"DATE"))'>0 Q 62 60 . . I TIUI>1 S TIUCONT=$$SETCONT^TIUPRPN1(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) Q:'TIUCONT 63 61 . . W !?29,"/es/ ",$G(@TIUROOT@("EXTRASGNR",TIUI,"NAME")) -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUR.m
r628 r636 1 1 TIUR ; SLC/JER - Integrated Document Review ;11/01/03 2 ;;1.0;TEXT INTEGRATION UTILITIES;**74,79,58,100,113,112,207 ,224**;Jun 20, 1997;Build72 ;;1.0;TEXT INTEGRATION UTILITIES;**74,79,58,100,113,112,207**;Jun 20, 1997 3 3 ; 11/30/00 Moved PUTLIST & ADDELMNT to TIUR1 4 4 MAKELIST(TIUCLASS,TIUCHVW) ; Get Search Criteria … … 10 10 I +$G(ORVP),(+$G(TIUCHVW)'>0) D EN^TIURPN(TIUCLASS,+ORVP) Q 11 11 STATUS S STATUS=$$STAT 12 ;VMP/ELR changed status ck from <0 TO <1 to account for entering an * p224 13 I +STATUS<1 S VALMQUIT=1 Q 12 I +STATUS<0 S VALMQUIT=1 Q 14 13 S TIUI=0 15 14 F S TIUI=$O(TIUSTAT(TIUI)) Q:'TIUI!(+$G(TIUOUT)) D … … 148 147 S STATUS("IFNS")=$P(TIURIDX0,U,3) 149 148 S TIUEDT=$P(TIURIDX0,U),TIULDT=$P(TIURIDX0,U,2),NOWFLAG=+$P(TIURIDX0,U,4) 150 ;VMP/ELR ADDED THE FOLLOWING LINE IN PATCH 224151 S TIUSCRN="ALL"152 149 D BUILD(TIUCLASS,.STATUS,.TIUSCRN,TIUEDT,TIULDT,NOWFLAG) 153 150 ; Reexpand previously expanded items: -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIURL.m
r628 r636 1 1 TIURL ; SLC/JER - List Management Library ;2/21/01 2 ;;1.0;TEXT INTEGRATION UTILITIES;**88,100 ,224**;Jun 20, 1997;Build72 ;;1.0;TEXT INTEGRATION UTILITIES;**88,100**;Jun 20, 1997 3 3 ; 11/14/00 Moved UPDATEID, etc to TIURL1 4 4 ; … … 22 22 ; rebuilt, not updated: 23 23 I RTN="TIUROR",$G(TIUCHNG("UPDATE")) S TIUCHNG("RBLD")=1 24 ;VMP/ELR ADDED THE FOLLOWING 2 LINES IN PATCH 22425 I RTN="TIUR",$G(TIUCHNG("UPDATE")) S TIUCHNG("RBLD")=126 I RTN="TIURM",$G(TIUCHNG("UPDATE")) S TIUCHNG("RBLD")=127 24 ; -- Rebuild, Update, or Refresh list: 28 25 ; (In cases (e.g.browse) where more than one action … … 44 41 . F S TIUI=$O(ITEMS(TIUI)) Q:'TIUI D 45 42 . . D SETREC(TIUI,.TIUREC) 46 . . ;VMP/ELR ADDED THE FOLLOWING LINE IN PATCH 22447 . . I $G(TIUREC)="" Q48 43 . . S ^TMP("TIUR",$J,TIUI,0)=TIUREC 49 44 I $G(TIUCHNG("REFRESH")) D Q -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIURM.m
r628 r636 1 1 TIURM ; SLC/JER - MIS Document Review ;9/24/03 2 ;;1.0;TEXT INTEGRATION UTILITIES;**74,79,58,100,113,216 ,224**;Jun 20, 1997;Build72 ;;1.0;TEXT INTEGRATION UTILITIES;**74,79,58,100,113,216**;Jun 20, 1997 3 3 ;12/7/00 split TIURM into TIURM & TIURM1 4 4 MAKELIST(TIUCLASS) ; Get Search Criteria … … 15 15 E S TIUDI("ENTRIES")="ALL DIVISIONS" 16 16 STATUS S STATUS=$S($D(TIUQUIK):$$SELSTAT^TIULA(.TIUSTAT,"F","UNSIGNED,UNCOSIGNED"),1:$$SELSTAT^TIULA(.TIUSTAT,"A",$$DFLTSTAT(DUZ))) 17 ;VMP/ELR changed status ck from <0 TO <1 to account for entering an * p224 18 I +STATUS<1 S VALMQUIT=1 Q 17 I +STATUS<0 S VALMQUIT=1 Q 19 18 S TIUI=0 20 19 F S TIUI=$O(TIUSTAT(TIUI)) Q:'TIUI D … … 104 103 RBLD ; Rebuild list after actions 11/30/00 105 104 N TIUEXP,TIUR0,TIURIDX0,TIUEDT,TIULDT 106 N TIURBLD,TIUI,TIUCLASS,TIUDI ,TIUSCRN105 N TIURBLD,TIUI,TIUCLASS,TIUDI 107 106 S TIURBLD=1 108 107 D FIXLSTNW^TIULM ;restore video for elements added to end of list … … 115 114 S TIUEDT=$P(TIURIDX0,U),TIULDT=$P(TIURIDX0,U,2),NOWFLAG=+$P(TIURIDX0,U,4) 116 115 M TIUDI=^TMP("TIUR",$J,"DIV") 117 ;VMP/ELR ADDED THE FOLLOWING LINE IN PATCH 224118 S TIUSCRN="ALL"119 116 D BUILD(TIUCLASS,.STATUS,TIUEDT,TIULDT,NOWFLAG,.TIUDI) 120 117 ; Reexpand previously expanded items: -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUSRVA.m
r628 r636 1 1 TIUSRVA ; SLC/JER,AJB - API's for Authorization ; 03/18/04 [10/19/04 1:21pm] 2 ;;1.0;TEXT INTEGRATION UTILITIES;**19,28,47,80,100,116,152,160,178,175,157 ,236**;Jun 20, 1997;Build 22 ;;1.0;TEXT INTEGRATION UTILITIES;**19,28,47,80,100,116,152,160,178,175,157**;Jun 20, 1997 3 3 ; 4 4 ;External reference to File ^AUPNVSIT supported by DBIA 3580 -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC.m
r628 r636 1 TIUXRC ; DRIVER FOR COMPILED XREFS FOR FILE #8925 ; 12/ 11/061 TIUXRC ; DRIVER FOR COMPILED XREFS FOR FILE #8925 ; 12/25/06 2 2 ; 3 3 N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2 -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC1.m
r628 r636 1 TIUXRC1 ; COMPILED XREF FOR FILE #8925 ; 12/ 11/061 TIUXRC1 ; COMPILED XREF FOR FILE #8925 ; 12/25/06 2 2 ; 3 3 S DIKZK=2 -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC2.m
r628 r636 1 TIUXRC2 ; COMPILED XREF FOR FILE #8925 ; 12/ 11/061 TIUXRC2 ; COMPILED XREF FOR FILE #8925 ; 12/25/06 2 2 ; 3 3 I X'="" I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"AAU",+$P(^TIU(8925,+DA,12),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA) -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC3.m
r628 r636 1 TIUXRC3 ; COMPILED XREF FOR FILE #8925 ; 12/ 11/061 TIUXRC3 ; COMPILED XREF FOR FILE #8925 ; 12/25/06 2 2 ; 3 3 I X'="" I +$P($G(^TIU(8925,+DA,14)),U,4),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ASVC",+$P($G(^TIU(8925,+DA,14)),U,4),+X,+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA) … … 37 37 . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4))="" 38 38 . K ^TIU(8925,"ADIV",X(1),X(2),X(3),X(4),DA) 39 CR2 S DIXR= 30839 CR2 S DIXR=413 40 40 K X 41 41 S DIKZ(12)=$G(^TIU(8925,DA,12)) -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC4.m
r628 r636 1 TIUXRC4 ; COMPILED XREF FOR FILE #8925 ; 12/ 11/061 TIUXRC4 ; COMPILED XREF FOR FILE #8925 ; 12/25/06 2 2 ; 3 3 S DIKZK=1 -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC5.m
r628 r636 1 TIUXRC5 ; COMPILED XREF FOR FILE #8925 ; 12/ 11/061 TIUXRC5 ; COMPILED XREF FOR FILE #8925 ; 12/25/06 2 2 ; 3 3 I X'="" I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,"AAU",+$P(^TIU(8925,+DA,12),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),+DA)="" -
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC6.m
r628 r636 1 TIUXRC6 ; COMPILED XREF FOR FILE #8925 ; 12/ 11/061 TIUXRC6 ; COMPILED XREF FOR FILE #8925 ; 12/25/06 2 2 ; 3 3 I X'="" I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ALOC",+$P(^TIU(8925,+DA,12),U,5),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)="" … … 70 70 . K X1,X2 M X1=X,X2=X 71 71 . S ^TIU(8925,"ADIV",X(1),X(2),X(3),X(4),DA)="" 72 CR2 S DIXR= 30872 CR2 S DIXR=413 73 73 K X 74 74 S DIKZ(12)=$G(^TIU(8925,DA,12))
Note:
See TracChangeset
for help on using the changeset viewer.
