- 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 Feb 19, 2025@00:19:07 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