- TIUSUPN1 ;SLC/TT - SIGNED DOCUMENT WITH UNSIGNED STATUS; 11/23/04
- ;;1.0; TEXT INTEGRATION UTILITIES;**180**;Jun 20, 1997
- ;
- Q
- ;
- UPDTDOC ;update status
- N TIULINE,TIUDA,TIUSEL,TIUC
- D FULL^VALM1
- S TIUSEL=""
- F S TIUSEL=$O(^TMP("TIUSEL",$J,TIUSEL)) Q:'TIUSEL D
- .S TIULINE=$P(^TMP("TIUSEL",$J,TIUSEL),U)
- .S TIUC(TIULINE)=$O(@VALMAR@("IDX",TIULINE,""))
- .S TIUDA=TIUC(TIULINE)
- .Q:'TIUDA
- .I $P(^TIU(8925,TIUDA,0),U,5)=7 Q
- .I $$UPDATE^TIUSUPN1(TIUDA) D
- ..D FLDTEXT^VALM10(TIULINE,"STATUS",$$GET1^DIQ(8925,TIUDA,.05))
- ..D SELECT^VALM10(TIULINE,1)
- K VALMY S VALMBCK="R"
- Q
- ;
- UPDATE(DA) ;
- N TIUSTAT,DIE,DR,TIUCOS,TIUCOSDT,TIULFLAG,TIUPFLAG,TIUD15
- S (TIULFLAG,TIUPFLAG)=0
- I DA'>0 Q 0
- S TIUD15=$G(^TIU(8925,DA,15))
- S TIUCOS=+$P(TIUD15,U,6),TIUCOSDT=+$P(TIUD15,U,7)
- I TIUCOS,TIUCOSDT'>0 S TIUSTAT="uncosigned"
- E S TIUSTAT="completed"
- L +^TIU(8925,DA):1 I '$T S TIULFLAG=1
- I 'TIULFLAG S DIE=8925,DR=".05///^S X=TIUSTAT" D ^DIE S TIUPFLAG=1
- E W !,DA," is being edited by another user."
- L -^TIU(8925,DA)
- Q TIUPFLAG
- ;
- BROWSE ;browse documents
- N TIULINE,TIUDA,TIUSEL,TIUC
- D FULL^VALM1
- S TIUSEL=""
- F S TIUSEL=$O(^TMP("TIUSEL",$J,TIUSEL)) Q:'TIUSEL D
- .S TIULINE=^TMP("TIUSEL",$J,TIUSEL)
- .S TIUC(TIULINE)=$O(@VALMAR@("IDX",TIULINE,""))
- .S TIUDA=TIUC(TIULINE)
- .Q:'TIUDA
- .D EN^VALM("TIU BROWSE FOR READ ONLY")
- K ^TMP("TIUSEL",$J),VALMY S VALMBCK="R"
- Q
- ;
- DISP ; detailed display
- N TIULINE,TIUDA,TIUSEL,TIUC,TIUVIEW,RSTRCTD
- D FULL^VALM1
- S TIUSEL=""
- F S TIUSEL=$O(^TMP("TIUSEL",$J,TIUSEL)) Q:'TIUSEL D
- .S TIULINE=^TMP("TIUSEL",$J,TIUSEL)
- .S TIUC(TIULINE)=$O(@VALMAR@("IDX",TIULINE,""))
- .S TIUDA=TIUC(TIULINE)
- .Q:'TIUDA
- .S TIUVIEW=$$CANDO^TIULP(TIUDA,"VIEW")
- .I +TIUVIEW'>0 D Q
- .. W !!,$C(7),$P(TIUVIEW,U,2),!
- .. I $$READ^TIUU("EA","RETURN to continue...") ; pause
- .S RSTRCTD=$$DOCRES^TIULRR(TIUDA)
- .I RSTRCTD D Q
- .. W !!,$C(7),"Ok, no harm done...",!
- .. I $$READ^TIUU("EA","RETURN to continue...") ; pause
- .D EN^TIUAUDIT
- .I +$G(TIUQUIT) D FIXLSTNW^TIULM Q
- K VALMY,^TMP("TIUSEL",$J) S VALMBCK="R"
- Q
- TIUSUPN1 ;SLC/TT - SIGNED DOCUMENT WITH UNSIGNED STATUS; 11/23/04
- +1 ;;1.0; TEXT INTEGRATION UTILITIES;**180**;Jun 20, 1997
- +2 ;
- +3 QUIT
- +4 ;
- UPDTDOC ;update status
- +1 NEW TIULINE,TIUDA,TIUSEL,TIUC
- +2 DO FULL^VALM1
- +3 SET TIUSEL=""
- +4 FOR
- SET TIUSEL=$ORDER(^TMP("TIUSEL",$JOB,TIUSEL))
- IF 'TIUSEL
- QUIT
- Begin DoDot:1
- +5 SET TIULINE=$PIECE(^TMP("TIUSEL",$JOB,TIUSEL),U)
- +6 SET TIUC(TIULINE)=$ORDER(@VALMAR@("IDX",TIULINE,""))
- +7 SET TIUDA=TIUC(TIULINE)
- +8 IF 'TIUDA
- QUIT
- +9 IF $PIECE(^TIU(8925,TIUDA,0),U,5)=7
- QUIT
- +10 IF $$UPDATE^TIUSUPN1(TIUDA)
- Begin DoDot:2
- +11 DO FLDTEXT^VALM10(TIULINE,"STATUS",$$GET1^DIQ(8925,TIUDA,.05))
- +12 DO SELECT^VALM10(TIULINE,1)
- End DoDot:2
- End DoDot:1
- +13 KILL VALMY
- SET VALMBCK="R"
- +14 QUIT
- +15 ;
- UPDATE(DA) ;
- +1 NEW TIUSTAT,DIE,DR,TIUCOS,TIUCOSDT,TIULFLAG,TIUPFLAG,TIUD15
- +2 SET (TIULFLAG,TIUPFLAG)=0
- +3 IF DA'>0
- QUIT 0
- +4 SET TIUD15=$GET(^TIU(8925,DA,15))
- +5 SET TIUCOS=+$PIECE(TIUD15,U,6)
- SET TIUCOSDT=+$PIECE(TIUD15,U,7)
- +6 IF TIUCOS
- IF TIUCOSDT'>0
- SET TIUSTAT="uncosigned"
- +7 IF '$TEST
- SET TIUSTAT="completed"
- +8 LOCK +^TIU(8925,DA):1
- IF '$TEST
- SET TIULFLAG=1
- +9 IF 'TIULFLAG
- SET DIE=8925
- SET DR=".05///^S X=TIUSTAT"
- DO ^DIE
- SET TIUPFLAG=1
- +10 IF '$TEST
- WRITE !,DA," is being edited by another user."
- +11 LOCK -^TIU(8925,DA)
- +12 QUIT TIUPFLAG
- +13 ;
- BROWSE ;browse documents
- +1 NEW TIULINE,TIUDA,TIUSEL,TIUC
- +2 DO FULL^VALM1
- +3 SET TIUSEL=""
- +4 FOR
- SET TIUSEL=$ORDER(^TMP("TIUSEL",$JOB,TIUSEL))
- IF 'TIUSEL
- QUIT
- Begin DoDot:1
- +5 SET TIULINE=^TMP("TIUSEL",$JOB,TIUSEL)
- +6 SET TIUC(TIULINE)=$ORDER(@VALMAR@("IDX",TIULINE,""))
- +7 SET TIUDA=TIUC(TIULINE)
- +8 IF 'TIUDA
- QUIT
- +9 DO EN^VALM("TIU BROWSE FOR READ ONLY")
- End DoDot:1
- +10 KILL ^TMP("TIUSEL",$JOB),VALMY
- SET VALMBCK="R"
- +11 QUIT
- +12 ;
- DISP ; detailed display
- +1 NEW TIULINE,TIUDA,TIUSEL,TIUC,TIUVIEW,RSTRCTD
- +2 DO FULL^VALM1
- +3 SET TIUSEL=""
- +4 FOR
- SET TIUSEL=$ORDER(^TMP("TIUSEL",$JOB,TIUSEL))
- IF 'TIUSEL
- QUIT
- Begin DoDot:1
- +5 SET TIULINE=^TMP("TIUSEL",$JOB,TIUSEL)
- +6 SET TIUC(TIULINE)=$ORDER(@VALMAR@("IDX",TIULINE,""))
- +7 SET TIUDA=TIUC(TIULINE)
- +8 IF 'TIUDA
- QUIT
- +9 SET TIUVIEW=$$CANDO^TIULP(TIUDA,"VIEW")
- +10 IF +TIUVIEW'>0
- Begin DoDot:2
- +11 WRITE !!,$CHAR(7),$PIECE(TIUVIEW,U,2),!
- +12 ; pause
- IF $$READ^TIUU("EA","RETURN to continue...")
- End DoDot:2
- QUIT
- +13 SET RSTRCTD=$$DOCRES^TIULRR(TIUDA)
- +14 IF RSTRCTD
- Begin DoDot:2
- +15 WRITE !!,$CHAR(7),"Ok, no harm done...",!
- +16 ; pause
- IF $$READ^TIUU("EA","RETURN to continue...")
- End DoDot:2
- QUIT
- +17 DO EN^TIUAUDIT
- +18 IF +$GET(TIUQUIT)
- DO FIXLSTNW^TIULM
- QUIT
- End DoDot:1
- +19 KILL VALMY,^TMP("TIUSEL",$JOB)
- SET VALMBCK="R"
- +20 QUIT
