Changeset 623 for WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS.m

Timestamp:

Dec 4, 2009, 12:11:15 AM (14 years ago)

Author:

George Lilly

Message:

revised back to 6/30/08 version

File:

• WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS.m (modified) (5 diffs)

WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS.m

@@ -1 @@
-TIUEDS ; GENERATED FROM 'TIU ENTER/EDIT DS' INPUT TEMPLATE(#1491), FILE 8925;11/08/09
+TIUEDS ; GENERATED FROM 'TIU ENTER/EDIT DS' INPUT TEMPLATE(#1491), FILE 8925;03/29/06
  D DE G BEGIN
 DE S DIE="^TIU(8925,",DIC=DIE,DP=8925,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^TIU(8925,DA,""))=""
  I $D(^(0)) S %Z=^(0) S %=$P(%Z,U,2) S:%]"" DE(1)=% S %=$P(%Z,U,3) S:%]"" DE(2)=% S %=$P(%Z,U,7) S:%]"" DE(4)=% S %=$P(%Z,U,8) S:%]"" DE(7)=% S %=$P(%Z,U,9) S:%]"" DE(9)=%
- I $D(^(12)) S %Z=^(12) S %=$P(%Z,U,2) S:%]"" DE(12)=%,DE(15)=%
+ I $D(^(12)) S %Z=^(12) S %=$P(%Z,U,2) S:%]"" DE(12)=%
  K %Z Q
  ;
@@ -91 +91 @@
  D KAPTLD^TIUDD01(.02,X)
 C1S S X="" G:DG(DQ)=X C1F1 K DB
- S X=DG(DQ),DIC=DIE
- 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)=""
- S X=DG(DQ),DIC=DIE
- 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,"APT",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)=""
- S X=DG(DQ),DIC=DIE
- I $P($$DOCTYPE^TIULF(+DA),U)="DOC",$L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,3)>0) S ^TIU(8925,"AE",+X,(9999999-$P(+^AUPNVSIT($P(^TIU(8925,+DA,0),U,3),0),".")),+^TIU(8925,+DA,0),+DA)=""
- S X=DG(DQ),DIC=DIE
- S ^TIU(8925,"C",$E(X,1,30),DA)=""
- S X=DG(DQ),DIC=DIE
- I $P($$DOCTYPE^TIULF(+DA),U)="DOC",+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^(0)),U,3) S ^TIU(8925,"AV",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,3),+DA)=""
- S X=DG(DQ),DIC=DIE
- I +$$APTP^TIULX(+DA),+$P($G(^TIU(8925,+DA,15)),U) S ^TIU(8925,"APTP",+X,+$P($G(^TIU(8925,+DA,15)),U),+DA)=""
- S X=DG(DQ),DIC=DIE
- I +$P($G(^TIU(8925,+DA,0)),U,4),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ADCPT",+X,+$P(^TIU(8925,+DA,0),U,4),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)=""
- S X=DG(DQ),DIC=DIE
- I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,"APTCL",+X,+$$CLINDOC^TIULC1(+$P(^TIU(8925,+DA,0),U),+DA),(9999999-$P(^TIU(8925,+DA,13),U)),DA)=""
- S X=DG(DQ),DIC=DIE
- I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,"APTCL",+X,38,(9999999-$P(^TIU(8925,+DA,13),U)),DA)=""
- S X=DG(DQ),DIC=DIE
- D SACLPT^TIUDD0(.02,X)
- S X=DG(DQ),DIC=DIE
- D SACLAU^TIUDD0(.02,X),SACLAU1^TIUDD0(.02,X)
- S X=DG(DQ),DIC=DIE
- D SACLEC^TIUDD0(.02,X)
- S X=DG(DQ),DIC=DIE
- D SACLSB^TIUDD0(.02,X)
- S X=DG(DQ),DIC=DIE
- D SAPTLD^TIUDD0(.02,X)
+ D ^TIUEDS1
 C1F1 Q
 X1 Q
@@ -146 +119 @@
  D KAPTLD^TIUDD01(.03,X)
 C2S S X="" G:DG(DQ)=X C2F1 K DB
- D ^TIUEDS1
+ D ^TIUEDS2
 C2F1 Q
 X2 Q
@@ -195 +168 @@
  G Y
 C12 G C12S:$D(DE(12))[0 K DB
- D ^TIUEDS2
+ D ^TIUEDS3
 C12S S X="" G:DG(DQ)=X C12F1 K DB
- D ^TIUEDS3
+ D ^TIUEDS4
 C12F1 Q
 X12 S DIC("S")="I '+$$ISTERM^USRLM(+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
@@ -206 +179 @@
  Q
 14 S DQ=15 ;@8
-15 D:$D(DG)>9 F^DIE17,DE S DQ=15,DW="12;2",DV="*P200'R",DU="",DLB="AUTHOR/DICTATOR",DIFLD=1202
- S DE(DW)="C15^TIUEDS"
- S DU="VA(200,"
- S X=$S($G(TIUAUTH):$$PERSNAME^TIULC1(TIUAUTH),1:"")
- S Y=X
- G Y
-C15 G C15S:$D(DE(15))[0 K DB
- D ^TIUEDS4
-C15S S X="" G:DG(DQ)=X C15F1 K DB
- D ^TIUEDS5
-C15F1 Q
-X15 S DIC("S")="I '+$$ISTERM^USRLM(+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
- Q
- ;
-16 S DQ=17 ;@3
-17 D:$D(DG)>9 F^DIE17 G ^TIUEDS6
+15 D:$D(DG)>9 F^DIE17 G ^TIUEDS5