Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: TIUUPEDT

TIUUPEDT.m

Go to the documentation of this file.
  1. TIUUPEDT ; SLC/JER - Upload Parameter Edit ;4/23/93 14:53
  1. ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
  1. MAIN ; Controls branching
  1. N DIC,DA,DIE,DLAYGO,DR,TIUPRM0,TIUPRM1,TIUPRM3,TIUUSRC,TIU1ST,X,Y
  1. N TIUQUIT
  1. D:'$D(TIUPRM0) SETPARM^TIULE
  1. W !,"First edit Institution-wide upload parameters:",!
  1. S (DIC,DLAYGO)=8925.99,DIC(0)="AEMQL",DIC("A")="Select INSTITUTION: "
  1. D ^DIC K DLAYGO Q:+Y'>0 S DA=+Y
  1. S DIE=8925.99,DR="[TIU UPLOAD PARAMETER EDIT]"
  1. D ^DIE
  1. D SETPARM^TIULE
  1. W !,"Now edit the DOCUMENT DEFINITION file:"
  1. F D Q:+$G(TIUQUIT)
  1. . N TIUREP,TIUX,X,Y,DA,DIE,DR
  1. . S Y=$$ASKTYP^TIULA2(38,"LAST","I $P(^TIU(8925.1,+Y,0),U,4)'=""O""","DOCUMENT DEFINITION: ")
  1. . I +Y'>0 S TIUQUIT=1 Q
  1. . S DA=+Y,TIUREP=+Y_U_$$PNAME^TIULC1(+DA)
  1. . S TIUREP(0)=$G(^TIU(8925.1,+DA,0))
  1. . S DIE="^TIU(8925.1,",DR="[TIU UPLOAD FIELD EDIT]"
  1. . D ^DIE S Y=1
  1. . I $D(^TIU(8925.1,+DA,"HEAD"))>9!($D(^TIU(8925.1,+DA,"ITEM"))>9) D
  1. . . W !!,"The header for the ",$P(TIUREP,U,2)," ",$$DDH(TIUREP(0))," is now defined as:"
  1. . . I $P(TIUPRM0,U,16)="D" D DHDR^TIUTHLP(.TIUREP,TIUPRM0,TIUPRM1)
  1. . . I $P(TIUPRM0,U,16)="C" D CHDR^TIUTHLP(.TIUREP,TIUPRM0,TIUPRM1)
  1. . . W !
  1. Q
  1. DDH(TIUDDEF) ; Translate position in DDH
  1. N TIUY
  1. S TIUY=$S($P(TIUDDEF,U,4)="DOC":"TITLE",$P(TIUDDEF,U,4)="DC":"DOCUMENT CLASS",$P(TIUDDEF,U,4)="CL":"CLASS",1:"Document Definition")
  1. Q TIUY
  1. TXTFLD(TFILE,TIUFLT) ; Get Text Field # from ^DD(Target file #,
  1. N DIC,X,Y
  1. S DIC="^DD("_TFILE_",",DIC(0)="AEMQZ",DIC("A")="Select TARGET TEXT FIELD: "
  1. S DIC("S")="I +$$ISWP^TIUUPEDT(TFILE,+Y)"
  1. I $D(TIUFLT),(+$G(TIUFLT)>0) S DIC("B")=TIUFLT
  1. D ^DIC K DIC("S") G:+Y'>0 TXTFLDX
  1. S Y=+Y_";"_$P($P(Y(0),U,4),";")
  1. TXTFLDX Q Y
  1. ISWP(TFILE,TFLD) ; Is a given field a Word-processing type field
  1. N X,Y S Y=0
  1. I +$P(^DD(TFILE,TFLD,0),U,2)>0 D
  1. . N SFILE S SFILE=+$P(^DD(TFILE,TFLD,0),U,2)
  1. . S Y=$S($P(^DD(SFILE,.01,0),U,2)["W":1,1:0)
  1. Q Y