- ADEREQUE ; IHS/HQT/MJL - RESTART DENTAL BACKGROUND ; [ 03/24/1999 9:04 AM ]
- ;;6.0;ADE;;APRIL 1999
- D ^XBKVAR
- I '$D(DUZ(2)) W:'$D(ZTQUEUED) !,"CANNOT PROCEED: DIVISION DUZ(2) NOT SET" G END
- I DUZ(2)=0 W:'$D(ZTQUEUED) !,"CANNOT PROCEED: DIVISION SET TO ZERO (UNIVERSAL). DIVISION MUST BE SET TO THE ",!,"SITE IN THE DENTAL SITE PARAMETER FILE." G END
- PRE I '$D(^ADEPARAM(+^AUTTSITE(1,0),0))!('$D(^ADEPARAM(DUZ(2),0))) D PRE1 G END
- I $P(^ADEPARAM(DUZ(2),0),U,4)'="y" W:'$D(ZTQUEUED) !,"CANNOT PROCEED: BACKGROUND MODE MUST BE ENABLED IN DENTAL SITE PARAMETER FILE.",!,"CONSULT THE DDS DOCUMENTATION." G END
- I $S($D(^%ZTSCH("RUN"))[0:1,^("RUN")-$H:1,1:$P($H,",",2)-150>$P(^("RUN"),",",2)) W *7,!,"CANNOT PROCEED: TASK MANAGER NOT RUNNING." G END
- I '$D(^%ZOSF("TRAP")) W:'$D(ZTQUEUED) !,"CANNOT PROCEED: ^%ZOSF(""TRAP"") NODE DOES NOT EXIST. THIS NODE",!,"SHOULD BE SET TO ""$ZT=X"" ON MSM AND DSM SYSTEMS." G END
- I ^%ZOSF("TRAP")'="$ZT=X",$D(^%ZOSF("OS")),^("OS")["MSM"!(^("OS")["DSM") W:'$D(ZTQUEUED) !,"CANNOT PROCEED: ^%ZOSF(""TRAP"") IS SET TO ",$C(34),^%ZOSF("TRAP"),$C(34),!,"IT SHOULD BE SET TO ""$ZT=X"" ON MSM AND DSM SYSTEMS." G END
- S ^ADEPOST("CHECKED")=$H
- ; ^ADEPOST is a transient, non-fileman working global
- I $D(^ADEPOST(0)),$O(^(0)) S ^ADEUTL("ADEDQUE")=1,ZTRTN="^ADEDQUE",ZTDTH=$H,ZTDESC="DENTAL DISC WRITES",ZTIO="" D ^%ZTLOAD W:'$D(ZTQUEUED) !,"DENTAL BACKGROUND PROCESS QUEUED!" ;IHS/MFD MOD TO THIS LINE AND ADDED NEXT LINE
- E W:'$D(ZTQUEUED) !,"NO DENTAL DATA TO POST, BACKGROUND PROCESS NOT REQUEUED!"
- END Q
- PRE1 W:'$D(ZTQUEUED) !,"Dental Site Parameter File has not been set up for ",$S($D(^AUTTLOC(DUZ(2),0)):$P(^AUTTLOC(DUZ(2),0),U,2),1:"this site"),".",!,"Consult the DDS Documentation."
- Q
- ADEREQUE ; IHS/HQT/MJL - RESTART DENTAL BACKGROUND ; [ 03/24/1999 9:04 AM ]
- +1 ;;6.0;ADE;;APRIL 1999
- +2 DO ^XBKVAR
- +3 IF '$DATA(DUZ(2))
- IF '$DATA(ZTQUEUED)
- WRITE !,"CANNOT PROCEED: DIVISION DUZ(2) NOT SET"
- GOTO END
- +4 IF DUZ(2)=0
- IF '$DATA(ZTQUEUED)
- WRITE !,"CANNOT PROCEED: DIVISION SET TO ZERO (UNIVERSAL). DIVISION MUST BE SET TO THE ",!,"SITE IN THE DENTAL SITE PARAMETER FILE."
- GOTO END
- PRE IF '$DATA(^ADEPARAM(+^AUTTSITE(1,0),0))!('$DATA(^ADEPARAM(DUZ(2),0)))
- DO PRE1
- GOTO END
- +1 IF $PIECE(^ADEPARAM(DUZ(2),0),U,4)'="y"
- IF '$DATA(ZTQUEUED)
- WRITE !,"CANNOT PROCEED: BACKGROUND MODE MUST BE ENABLED IN DENTAL SITE PARAMETER FILE.",!,"CONSULT THE DDS DOCUMENTATION."
- GOTO END
- +2 IF $SELECT($DATA(^%ZTSCH("RUN"))[0:1,^("RUN")-$HOROLOG:1,1:$PIECE($HOROLOG,",",2)-150>$PIECE(^("RUN"),",",2))
- WRITE *7,!,"CANNOT PROCEED: TASK MANAGER NOT RUNNING."
- GOTO END
- +3 IF '$DATA(^%ZOSF("TRAP"))
- IF '$DATA(ZTQUEUED)
- WRITE !,"CANNOT PROCEED: ^%ZOSF(""TRAP"") NODE DOES NOT EXIST. THIS NODE",!,"SHOULD BE SET TO ""$ZT=X"" ON MSM AND DSM SYSTEMS."
- GOTO END
- +4 IF ^%ZOSF("TRAP")'="$ZT=X"
- IF $DATA(^%ZOSF("OS"))
- IF ^("OS")["MSM"!(^("OS")["DSM")
- IF '$DATA(ZTQUEUED)
- WRITE !,"CANNOT PROCEED: ^%ZOSF(""TRAP"") IS SET TO ",$CHAR(34),^%ZOSF("TRAP"),$CHAR(34),!,"IT SHOULD BE SET TO ""$ZT=X"" ON MSM AND DSM SYSTEMS."
- GOTO END
- +5 SET ^ADEPOST("CHECKED")=$HOROLOG
- +6 ; ^ADEPOST is a transient, non-fileman working global
- +7 ;IHS/MFD MOD TO THIS LINE AND ADDED NEXT LINE
- IF $DATA(^ADEPOST(0))
- IF $ORDER(^(0))
- SET ^ADEUTL("ADEDQUE")=1
- SET ZTRTN="^ADEDQUE"
- SET ZTDTH=$HOROLOG
- SET ZTDESC="DENTAL DISC WRITES"
- SET ZTIO=""
- DO ^%ZTLOAD
- IF '$DATA(ZTQUEUED)
- WRITE !,"DENTAL BACKGROUND PROCESS QUEUED!"
- +8 IF '$TEST
- IF '$DATA(ZTQUEUED)
- WRITE !,"NO DENTAL DATA TO POST, BACKGROUND PROCESS NOT REQUEUED!"
- END QUIT
- PRE1 IF '$DATA(ZTQUEUED)
- WRITE !,"Dental Site Parameter File has not been set up for ",$SELECT($DATA(^AUTTLOC(DUZ(2),0)):$PIECE(^AUTTLOC(DUZ(2),0),U,2),1:"this site"),".",!,"Consult the DDS Documentation."
- +1 QUIT
