IBDFHLP.m

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 ---IBDFHLP   1802     printed  Apr 09, 2024@21:50:35                                                                                                                                                                                                     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