source: WorldVistAEHR/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDFHLP.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1IBDFHLP ;MAF/ALB - HELP CODE FOR SPECIAL INSTRUCTIONS ; 06-OCT-1994
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
3EN ; -- main entry point for IBDF EF HELP SPEC INSTR.
4 D EN^VALM("IBDF EF HELP SPEC INSTR.")
5 Q
6 ;
7HDR ; -- header code
8 Q
9 ;
10INIT ; -- 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 ;
16HELP ; -- help code
17 S X="?" D DISP^XQORM1 W !!
18 Q
19 ;
20EXIT ; -- exit code
21 K ^TMP("IBDFHP",$J),^TMP("HPIDX",$J) Q
22 ;
23EXPND ; -- expand code
24 Q
25 ;
26DISP ;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
53TMP 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
Note: See TracBrowser for help on using the repository browser.