| [613] | 1 | IBDFHLP ;MAF/ALB - HELP CODE FOR SPECIAL INSTRUCTIONS ; 06-OCT-1994
|
|---|
| 2 | ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
|
|---|
| 3 | EN ; -- main entry point for IBDF EF HELP SPEC INSTR.
|
|---|
| 4 | D EN^VALM("IBDF EF HELP SPEC INSTR.")
|
|---|
| 5 | Q
|
|---|
| 6 | ;
|
|---|
| 7 | HDR ; -- header code
|
|---|
| 8 | Q
|
|---|
| 9 | ;
|
|---|
| 10 | INIT ; -- init variables and list array
|
|---|
| 11 | S (VALMCNT,IBJCNT,IBJCNT1,IBJCOUNT)=0
|
|---|
| 12 | K ^TMP("IBDFHP",$J)
|
|---|
| 13 | 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
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | HELP ; -- help code
|
|---|
| 17 | S X="?" D DISP^XQORM1 W !!
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | EXIT ; -- exit code
|
|---|
| 21 | K ^TMP("IBDFHP",$J),^TMP("HPIDX",$J) Q
|
|---|
| 22 | ;
|
|---|
| 23 | EXPND ; -- expand code
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
| 26 | DISP ;Help frame for Special Instructions
|
|---|
| 27 | ;; The choices for Special Instructions are:
|
|---|
| 28 | ;;
|
|---|
| 29 | ;; R - Run Regardless
|
|---|
| 30 | ;; I - Ignore both Weekends and Holidays
|
|---|
| 31 | ;; W - Ignore Weekends
|
|---|
| 32 | ;; H - Ignore Holidays
|
|---|
| 33 | ;; T - Today
|
|---|
| 34 | ;; N - Not Active
|
|---|
| 35 | ;;
|
|---|
| 36 | ;;
|
|---|
| 37 | ;; R - Run Regardless ... The print job will run daily at the scheduled time.
|
|---|
| 38 | ;;
|
|---|
| 39 | ;; I - Ignore Weekends and Holidays... The print job will not run at it's
|
|---|
| 40 | ;; daily scheduled time if the day is a holiday or a weekend day.
|
|---|
| 41 | ;;
|
|---|
| 42 | ;; W - Ignore Weekends... The print job will not run at it's daily scheduled
|
|---|
| 43 | ;; time if the day is a weekend day.
|
|---|
| 44 | ;;
|
|---|
| 45 | ;; H - Ignore Holidays... The print job will not run at it's daily scheduled
|
|---|
| 46 | ;; time if the day is a holiday.
|
|---|
| 47 | ;;
|
|---|
| 48 | ;; T - Today... The job will run today.
|
|---|
| 49 | ;;
|
|---|
| 50 | ;; N - Not Active... The job is considered inactive and the encounter forms
|
|---|
| 51 | ;; will not be printed.
|
|---|
| 52 | ;;END
|
|---|
| 53 | TMP S IBJCNT=IBJCNT+1,IBJCNT1=IBJCNT1+1,VALMCNT=VALMCNT+1 S ^TMP("IBDFHP",$J,IBJCNT,0)=X,^TMP("IBDFHP",$J,"IDX",VALMCNT,IBJCNT)=""
|
|---|
| 54 | S ^TMP("HPIDX",$J,IBJCNT)=VALMCNT
|
|---|
| 55 | Q
|
|---|
