IBDFHLP ;MAF/ALB - HELP CODE FOR SPECIAL INSTRUCTIONS ; 06-OCT-1994
;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
EN ; -- main entry point for IBDF EF HELP SPEC INSTR.
D EN^VALM("IBDF EF HELP SPEC INSTR.")
Q
;
HDR ; -- header code
Q
;
INIT ; -- init variables and list array
S (VALMCNT,IBJCNT,IBJCNT1,IBJCOUNT)=0
K ^TMP("IBDFHP",$J)
F IBJX=1:1 S IBJVAL=$P($T(DISP+IBJX),";;",2) Q:IBJVAL="END" S X="",X=$$SETSTR^VALM1(IBJVAL,X,5,75) D TMP
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
K ^TMP("IBDFHP",$J),^TMP("HPIDX",$J) Q
;
EXPND ; -- expand code
Q
;
DISP ;Help frame for Special Instructions
;; The choices for Special Instructions are:
;;
;; R - Run Regardless
;; I - Ignore both Weekends and Holidays
;; W - Ignore Weekends
;; H - Ignore Holidays
;; T - Today
;; N - Not Active
;;
;;
;; R - Run Regardless ... The print job will run daily at the scheduled time.
;;
;; I - Ignore Weekends and Holidays... The print job will not run at it's
;; daily scheduled time if the day is a holiday or a weekend day.
;;
;; W - Ignore Weekends... The print job will not run at it's daily scheduled
;; time if the day is a weekend day.
;;
;; H - Ignore Holidays... The print job will not run at it's daily scheduled
;; time if the day is a holiday.
;;
;; T - Today... The job will run today.
;;
;; N - Not Active... The job is considered inactive and the encounter forms
;; will not be printed.
;;END
TMP S IBJCNT=IBJCNT+1,IBJCNT1=IBJCNT1+1,VALMCNT=VALMCNT+1 S ^TMP("IBDFHP",$J,IBJCNT,0)=X,^TMP("IBDFHP",$J,"IDX",VALMCNT,IBJCNT)=""
S ^TMP("HPIDX",$J,IBJCNT)=VALMCNT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDFHLP 1802 printed Dec 13, 2024@02:52:42 Page 2
IBDFHLP ;MAF/ALB - HELP CODE FOR SPECIAL INSTRUCTIONS ; 06-OCT-1994
+1 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
EN ; -- main entry point for IBDF EF HELP SPEC INSTR.
+1 DO EN^VALM("IBDF EF HELP SPEC INSTR.")
+2 QUIT
+3 ;
HDR ; -- header code
+1 QUIT
+2 ;
INIT ; -- init variables and list array
+1 SET (VALMCNT,IBJCNT,IBJCNT1,IBJCOUNT)=0
+2 KILL ^TMP("IBDFHP",$JOB)
+3 FOR IBJX=1:1
SET IBJVAL=$PIECE($TEXT(DISP+IBJX),";;",2)
if IBJVAL="END"
QUIT
SET X=""
SET X=$$SETSTR^VALM1(IBJVAL,X,5,75)
DO TMP
+4 QUIT
+5 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 KILL ^TMP("IBDFHP",$JOB),^TMP("HPIDX",$JOB)
QUIT
+2 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
DISP ;Help frame for Special Instructions
+1 ;; The choices for Special Instructions are:
+2 ;;
+3 ;; R - Run Regardless
+4 ;; I - Ignore both Weekends and Holidays
+5 ;; W - Ignore Weekends
+6 ;; H - Ignore Holidays
+7 ;; T - Today
+8 ;; N - Not Active
+9 ;;
+10 ;;
+11 ;; R - Run Regardless ... The print job will run daily at the scheduled time.
+12 ;;
+13 ;; I - Ignore Weekends and Holidays... The print job will not run at it's
+14 ;; daily scheduled time if the day is a holiday or a weekend day.
+15 ;;
+16 ;; W - Ignore Weekends... The print job will not run at it's daily scheduled
+17 ;; time if the day is a weekend day.
+18 ;;
+19 ;; H - Ignore Holidays... The print job will not run at it's daily scheduled
+20 ;; time if the day is a holiday.
+21 ;;
+22 ;; T - Today... The job will run today.
+23 ;;
+24 ;; N - Not Active... The job is considered inactive and the encounter forms
+25 ;; will not be printed.
+26 ;;END
TMP SET IBJCNT=IBJCNT+1
SET IBJCNT1=IBJCNT1+1
SET VALMCNT=VALMCNT+1
SET ^TMP("IBDFHP",$JOB,IBJCNT,0)=X
SET ^TMP("IBDFHP",$JOB,"IDX",VALMCNT,IBJCNT)=""
+1 SET ^TMP("HPIDX",$JOB,IBJCNT)=VALMCNT
+2 QUIT