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

TIUFD1.m

Go to the documentation of this file.
  1. TIUFD1 ; SLC/MAM - LM Template DSUPLOAD(LASTLIN), DSEMBED(LASTLIN) ;03-Jan-2006 11:20;MGH
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**1003**;Jun 20, 1997
  1. ;IHS/CIA/MGH Added line to call routine to display the description
  1. ;
  1. DSEMBED(LASTLIN) ; Set/Update Display Array TIUF3 starting with Object Embedded in Titles
  1. ; See DSBASICS for required variables, etc.
  1. ; Called by subtemplate D when OBJECTDA is object
  1. ; Sets ^TMP("TIUFEMBED",$J,OBJECTDA,SUBSCPT,"ANY",FILEDA), for SUBSCPTs
  1. ;TIUFTL,TIUFCO,TIUFORPHAN.
  1. N LINENO,TITLEDA,OBJECTDA,TIUREC,NODE0,IFN,TYPE,HASIT,OLDLNO,INFO
  1. N ORPHANDA
  1. S LINENO=LASTLIN,OBJECTDA=TIUFINFO("FILEDA"),TYPE=$P(TIUFNOD0,U,4)
  1. S TIUFELIN=LASTLIN
  1. I TYPE'="O" G DSEMX
  1. K ^TMP("TIUFEMBED",$J,OBJECTDA) D EMBED^TIUFLJ(OBJECTDA,TIUFNOD0,"ANY",1)
  1. TITLE I '$O(^TMP("TIUFEMBED",$J,OBJECTDA,"TIUFTL","ANY",0)) G ORPHAN
  1. S LINENO=LINENO+1,^TMP("TIUF3",$J,LINENO,0)="",IFN=$S("NM"[TIUFWHO:"IFN",1:" ")
  1. S LINENO=LINENO+1,^TMP("TIUF3",$J,LINENO,0)=" Object is Embedded in Title(s) Status Owner "_IFN
  1. S TITLEDA=0,OLDLNO=LINENO
  1. F S TITLEDA=$O(^TMP("TIUFEMBED",$J,OBJECTDA,"TIUFTL","ANY",TITLEDA)) Q:'TITLEDA D G:$D(DTOUT) DSEMX
  1. . S LINENO=LINENO+1 D NINFO^TIUFLLM(LINENO,TITLEDA,.INFO),PARSE^TIUFLLM(.INFO),NODE0ARR^TIUFLF(TITLEDA,.NODE0) Q:$D(DTOUT)
  1. . D BUFENTRY^TIUFLLM2(.INFO,.NODE0,"O")
  1. D UPDATE^TIUFLLM1("O",LINENO-OLDLNO,OLDLNO) K ^TMP("TIUFB",$J)
  1. ORPHAN I '$O(^TMP("TIUFEMBED",$J,OBJECTDA,"TIUFORPHAN","ANY",0)) G DSEMX
  1. S LINENO=LINENO+1,^TMP("TIUF3",$J,LINENO,0)="",IFN=$S("NM"[TIUFWHO:"IFN",1:" ")
  1. S LINENO=LINENO+1,^TMP("TIUF3",$J,LINENO,0)=" Object is Embedded in Orphan Component(s) Status Owner "_IFN
  1. S ORPHANDA=0,OLDLNO=LINENO
  1. F S ORPHANDA=$O(^TMP("TIUFEMBED",$J,OBJECTDA,"TIUFORPHAN","ANY",ORPHANDA)) Q:'ORPHANDA D G:$D(DTOUT) DSEMX
  1. . S LINENO=LINENO+1 D NINFO^TIUFLLM(LINENO,ORPHANDA,.INFO),PARSE^TIUFLLM(.INFO),NODE0ARR^TIUFLF(ORPHANDA,.NODE0) Q:$D(DTOUT)
  1. . D BUFENTRY^TIUFLLM2(.INFO,.NODE0,"O")
  1. D UPDATE^TIUFLLM1("O",LINENO-OLDLNO,OLDLNO) K ^TMP("TIUFB",$J)
  1. DSEMX S LASTLIN=LINENO Q:$D(DTOUT) D DSUPLOAD(.LASTLIN)
  1. Q
  1. ;
  1. DSUPLOAD(LASTLIN) ; Set/Update Display Array TIUF3 starting with Upload.
  1. ; See DSBASICS for required variables, etc.
  1. ; CAlled by subtemp D and T
  1. N LINENO,CNT,TIUI,FILEDA,FLDNO,HEADFLG,ITEMFLG,TIUM,CAPDEL
  1. N DIC,DR,DIQ,DA,TARGET,AFILEDA,TYPE,SUBFLDNO
  1. S (TIUFULIN,LINENO)=LASTLIN,TYPE=$P(TIUFNOD0,U,4)
  1. I "NM"'[TIUFWHO G DSUPX
  1. I TYPE'="CL",TYPE'="DC",TYPE'="DOC" G DSUPX
  1. ;If called to redisplay edited screen rather than by Init, kill array starting with Upload before resetting array.
  1. S CNT=$O(^TMP("TIUF3",$J,1000000),-1)
  1. F TIUI=LASTLIN+1:1:CNT K ^TMP("TIUF3",$J,TIUI),^TMP("TIUF3IDX",$J,TIUI)
  1. S FILEDA=TIUFINFO("FILEDA")
  1. S LINENO=LINENO+1,^TMP("TIUF3",$J,LINENO,0)=""
  1. S LINENO=LINENO+1,^TMP("TIUF3",$J,LINENO,0)=" Upload"
  1. I $G(^TIU(8925.1,FILEDA,1))="",'$D(^TIU(8925.1,FILEDA,"HEAD",0)),'$D(^TIU(8925.1,FILEDA,"ITEM",0)) G DSUPX
  1. K TIUFQ
  1. S DIC=8925.1,DR="1.01:1.03;4;4.5;4.8",DIQ(0)="I,E",DA=FILEDA,DIQ="TIUFQ" D EN^DIQ1
  1. F FLDNO=1.01,1.02,1.03,4,4.5,4.8 D
  1. . D SETFLD^TIUFLD(FILEDA,.LINENO,FLDNO)
  1. . Q
  1. K TIUFQ
  1. UPHEAD ;
  1. S (HEADFLG,ITEMFLG)=0
  1. S:$O(^TIU(8925.1,FILEDA,"HEAD",0)) HEADFLG=1
  1. S:$O(^TIU(8925.1,FILEDA,"ITEM",0)) ITEMFLG=1
  1. F TIUM="HEAD","ITEM" D G:$D(VALMQUIT) DSUPX
  1. . Q:'@(TIUM_"FLG")
  1. . N TIUJ
  1. . I TIUM="HEAD" S CAPDEL=" Captioned",FLDNO=2
  1. . E S CAPDEL=" Delimited",FLDNO=1
  1. . S LINENO=LINENO+1,^TMP("TIUF3",$J,LINENO,0)=""
  1. . S LINENO=LINENO+1,^TMP("TIUF3",$J,LINENO,0)=CAPDEL_" ASCII Record Header"
  1. . S TIUJ=0 K TIUFQ
  1. . F S TIUJ=$O(^TIU(8925.1,FILEDA,TIUM,TIUJ)) Q:'TIUJ D Q:$D(VALMQUIT)
  1. . . S LINENO=LINENO+1,^TMP("TIUF3",$J,LINENO,0)=""
  1. . . S DIC=8925.1,DR=FLDNO,DA=FILEDA,DR(8925.1_FLDNO)=".01:1"
  1. . . S DA(8925.1_FLDNO)=TIUJ,DIQ(0)="I,E",DIQ="TIUFQ" D EN^DIQ1
  1. . . F SUBFLDNO=.01:.01:.04,1,.05:.01:.07 D
  1. . . . D SETFLD^TIUFLD(FILEDA,.LINENO,FLDNO,TIUJ,SUBFLDNO)
  1. . . K TIUFQ
  1. . . Q
  1. . Q
  1. DSUPX ; IHS/CIA/MGH ADDED LINES FOR DESCRIPTION MGH
  1. ;S LASTLIN=LINENO
  1. K TIUFQ S LASTLIN=LINENO Q:$D(DTOUT) D DESC^BTIUFD(.LASTLIN)
  1. Q
  1. ;