Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDFHLP

IBDFHLP.m

Go to the documentation of this file.
  1. IBDFHLP ;MAF/ALB - HELP CODE FOR SPECIAL INSTRUCTIONS ; 06-OCT-1994
  1. ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
  1. EN ; -- main entry point for IBDF EF HELP SPEC INSTR.
  1. D EN^VALM("IBDF EF HELP SPEC INSTR.")
  1. Q
  1. ;
  1. HDR ; -- header code
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. S (VALMCNT,IBJCNT,IBJCNT1,IBJCOUNT)=0
  1. K ^TMP("IBDFHP",$J)
  1. 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
  1. Q
  1. ;
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. K ^TMP("IBDFHP",$J),^TMP("HPIDX",$J) Q
  1. ;
  1. EXPND ; -- expand code
  1. Q
  1. ;
  1. DISP ;Help frame for Special Instructions
  1. ;; The choices for Special Instructions are:
  1. ;;
  1. ;; R - Run Regardless
  1. ;; I - Ignore both Weekends and Holidays
  1. ;; W - Ignore Weekends
  1. ;; H - Ignore Holidays
  1. ;; T - Today
  1. ;; N - Not Active
  1. ;;
  1. ;;
  1. ;; R - Run Regardless ... The print job will run daily at the scheduled time.
  1. ;;
  1. ;; I - Ignore Weekends and Holidays... The print job will not run at it's
  1. ;; daily scheduled time if the day is a holiday or a weekend day.
  1. ;;
  1. ;; W - Ignore Weekends... The print job will not run at it's daily scheduled
  1. ;; time if the day is a weekend day.
  1. ;;
  1. ;; H - Ignore Holidays... The print job will not run at it's daily scheduled
  1. ;; time if the day is a holiday.
  1. ;;
  1. ;; T - Today... The job will run today.
  1. ;;
  1. ;; N - Not Active... The job is considered inactive and the encounter forms
  1. ;; will not be printed.
  1. ;;END
  1. TMP S IBJCNT=IBJCNT+1,IBJCNT1=IBJCNT1+1,VALMCNT=VALMCNT+1 S ^TMP("IBDFHP",$J,IBJCNT,0)=X,^TMP("IBDFHP",$J,"IDX",VALMCNT,IBJCNT)=""
  1. S ^TMP("HPIDX",$J,IBJCNT)=VALMCNT
  1. Q