56 lines
1.7 KiB
Mathematica
56 lines
1.7 KiB
Mathematica
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
|