- XTFCR ;SF-ISC.SEA/JLI - FLOW CHART GENERATOR FOR MUMPS ROUTINES ;9/21/93 09:53 ;
- ;;7.3;TOOLKIT;;Apr 25, 1995
- W !!,"FLOW CHART GENERATOR FOR MUMPS ROUTINES",!
- W !,"< COND > = CONDITIONAL, if 'COND' is true code to the left is performed"
- W !!,"[ LINE^ROU ] = DO or SUBROUTINE call to location LINE of routine ROU,",!," control returns to commands following this in sequence"
- W !!,"{ LINE^ROU } = GO TO, control is transferred to the location LINE in",!," routine ROU.",!
- ENTRY S XTLEV="A" K ^TMP($J),^UTILITY($J) X ^%ZOSF("RSEL") I '($D(^UTILITY($J))\10) G EXIT
- S %X="^UTILITY($J,",%Y="^TMP($J," D %XY^%RCR K ^UTILITY($J)
- S %ZIS="MQ" D ^%ZIS Q:POP G:'$D(IO("Q")) DQ S ZTRTN="DQ^XTFCR" S %DT="FXTRAQE",%DT("A")="QUEUE to run WHEN:",%DT("B")="NOW" D ^%DT G:Y'>0 EXIT
- S X=+Y D H^%DTC S Y=Y_"0000",Y=%H_","_($E(Y,9,10)*60+$E(Y,11,12)*60) S ZTDTH=Y S ZTDESC="Flow Chart Routine",ZTSAVE("^TMP($J,")="",ZTSAVE("XTLEV")="",ZTIO=ION_";"_IOM_";"_IOSL
- D ^%ZTLOAD I $D(ZTSK) W !!,"TASK QUEUED",!
- G EXIT
- ;
- DQ ; Entry point for tasked job
- S XTROU="@" F I=0:0 S XTROU=$O(^TMP($J,XTROU)) Q:XTROU="" K ^(XTROU) S ^TMP($J,0,XTROU)=""
- S XT="",XTROU="@" F I=0:0 S XTROU=$O(^TMP($J,0,XTROU)) Q:XTROU="" D ROU Q:XT=U
- D ^%ZISC K XTROU,XT
- G EXIT
- ;
- ROU ;
- K ^TMP($J,XTLEV,"FC") W:IOST["C-" !,XTROU,! S XCNP=0,DIF="^TMP($J,0,"""_XTROU_""",",X=XTROU X ^%ZOSF("LOAD") K XCNP,DIF
- S XTIFLG=0,XTENTR=0,XTCOND=0 F I=0:0 S I=$O(^TMP($J,0,XTROU,I)) Q:I'>0 S X=^(I,0) D LINE^XTFC0
- U IO D ^XTFCR1 U 0
- K XTIFLG,XTENTR,XTCOND
- Q
- ;
- EXIT ;
- K I,K,N,X,Y,Z,XTIJ,XTL1,XTL2,XTLEV,XTNAM,XTPCOND,XTTFLG,XTX1,XTX2,XTX2B,XTXCOND,XTZA,XTZX,XTZX1,^TMP($J),C
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXTFCR 1696 printed Feb 19, 2025@00:07:25 Page 2
- XTFCR ;SF-ISC.SEA/JLI - FLOW CHART GENERATOR FOR MUMPS ROUTINES ;9/21/93 09:53 ;
- +1 ;;7.3;TOOLKIT;;Apr 25, 1995
- +2 WRITE !!,"FLOW CHART GENERATOR FOR MUMPS ROUTINES",!
- +3 WRITE !,"< COND > = CONDITIONAL, if 'COND' is true code to the left is performed"
- +4 WRITE !!,"[ LINE^ROU ] = DO or SUBROUTINE call to location LINE of routine ROU,",!," control returns to commands following this in sequence"
- +5 WRITE !!,"{ LINE^ROU } = GO TO, control is transferred to the location LINE in",!," routine ROU.",!
- ENTRY SET XTLEV="A"
- KILL ^TMP($JOB),^UTILITY($JOB)
- XECUTE ^%ZOSF("RSEL")
- IF '($DATA(^UTILITY($JOB))\10)
- GOTO EXIT
- +1 SET %X="^UTILITY($J,"
- SET %Y="^TMP($J,"
- DO %XY^%RCR
- KILL ^UTILITY($JOB)
- +2 SET %ZIS="MQ"
- DO ^%ZIS
- if POP
- QUIT
- if '$DATA(IO("Q"))
- GOTO DQ
- SET ZTRTN="DQ^XTFCR"
- SET %DT="FXTRAQE"
- SET %DT("A")="QUEUE to run WHEN:"
- SET %DT("B")="NOW"
- DO ^%DT
- if Y'>0
- GOTO EXIT
- +3 SET X=+Y
- DO H^%DTC
- SET Y=Y_"0000"
- SET Y=%H_","_($EXTRACT(Y,9,10)*60+$EXTRACT(Y,11,12)*60)
- SET ZTDTH=Y
- SET ZTDESC="Flow Chart Routine"
- SET ZTSAVE("^TMP($J,")=""
- SET ZTSAVE("XTLEV")=""
- SET ZTIO=ION_";"_IOM_";"_IOSL
- +4 DO ^%ZTLOAD
- IF $DATA(ZTSK)
- WRITE !!,"TASK QUEUED",!
- +5 GOTO EXIT
- +6 ;
- DQ ; Entry point for tasked job
- +1 SET XTROU="@"
- FOR I=0:0
- SET XTROU=$ORDER(^TMP($JOB,XTROU))
- if XTROU=""
- QUIT
- KILL ^(XTROU)
- SET ^TMP($JOB,0,XTROU)=""
- +2 SET XT=""
- SET XTROU="@"
- FOR I=0:0
- SET XTROU=$ORDER(^TMP($JOB,0,XTROU))
- if XTROU=""
- QUIT
- DO ROU
- if XT=U
- QUIT
- +3 DO ^%ZISC
- KILL XTROU,XT
- +4 GOTO EXIT
- +5 ;
- ROU ;
- +1 KILL ^TMP($JOB,XTLEV,"FC")
- if IOST["C-"
- WRITE !,XTROU,!
- SET XCNP=0
- SET DIF="^TMP($J,0,"""_XTROU_""","
- SET X=XTROU
- XECUTE ^%ZOSF("LOAD")
- KILL XCNP,DIF
- +2 SET XTIFLG=0
- SET XTENTR=0
- SET XTCOND=0
- FOR I=0:0
- SET I=$ORDER(^TMP($JOB,0,XTROU,I))
- if I'>0
- QUIT
- SET X=^(I,0)
- DO LINE^XTFC0
- +3 USE IO
- DO ^XTFCR1
- USE 0
- +4 KILL XTIFLG,XTENTR,XTCOND
- +5 QUIT
- +6 ;
- EXIT ;
- +1 KILL I,K,N,X,Y,Z,XTIJ,XTL1,XTL2,XTLEV,XTNAM,XTPCOND,XTTFLG,XTX1,XTX2,XTX2B,XTXCOND,XTZA,XTZX,XTZX1,^TMP($JOB),C
- +2 QUIT
