[613] | 1 | IBDF11A ;ALB/CJM - ENCOUNTER FORM - (print manager setup - INFORMATION) ;April 20,1993
|
---|
| 2 | ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
|
---|
| 3 | ;
|
---|
| 4 | INFO ;N I,LINE,DIR
|
---|
| 5 | F I=0:1 S LINE=$P($T(TEXT+I),";;",2) Q:LINE="" W !,LINE I $Y>(IOSL-4) S DIR(0)="E" D ^DIR W @IOF Q:'Y
|
---|
| 6 | Q
|
---|
| 7 | TEXT ;;Care must be taken when defining reports to the Print Manager. Please
|
---|
| 8 | ;;follow these rules:
|
---|
| 9 | ;;
|
---|
| 10 | ;; 1) Entry points must involve no user interaction.
|
---|
| 11 | ;; 2) The device must not be changed or closed.
|
---|
| 12 | ;; 3) Local variables should be the same on exit as on entry.
|
---|
| 13 | ;;
|
---|
| 14 | ;;THESE VARIABLES ARE AVAILABLE:
|
---|
| 15 | ;;
|
---|
| 16 | ;; DFN = ien of patient in the PATIENT file
|
---|
| 17 | ;; IBCLINIC = ien of clinic in the HOSPTIAL LOCATION file
|
---|
| 18 | ;; IBAPPT = appointment date/time in FM format
|
---|
| 19 | ;;
|
---|
| 20 | ;;FEATURES OF INTEREST, IN THE ORDER PERFORMED BY THE PRINT MANAGER:
|
---|
| 21 | ;;
|
---|
| 22 | ;; AVAILABLE?: The Print Manager will not print the report unless
|
---|
| 23 | ;; this is set to YES.
|
---|
| 24 | ;;
|
---|
| 25 | ;; REQUIRED VARIABLES: You can define a list of variables that should
|
---|
| 26 | ;; be defined. The Print Manager won't call the entry point unless
|
---|
| 27 | ;; they are defined.
|
---|
| 28 | ;;
|
---|
| 29 | ;; PROTECTED VARIABLES: You can define a list of variables (without
|
---|
| 30 | ;; subscripts) that should be NEWed.
|
---|
| 31 | ;;
|
---|
| 32 | ;; ENTRY ACTION: Mumps code that should be Xecuted before calling
|
---|
| 33 | ;; the entry point.
|
---|
| 34 | ;;
|
---|
| 35 | ;; EXIT ACTION: Mumps code that should be Xecuted after calling
|
---|
| 36 | ;; the entry point.
|
---|
| 37 | ;;
|
---|
| 38 | ;;EXAMPLE: Supposing the entry point kills DFN. You could do this:
|
---|
| 39 | ;;
|
---|
| 40 | ;; REQUIRED VARIABLE: DFN
|
---|
| 41 | ;; PROTECTED VARIABLE: IBDFN
|
---|
| 42 | ;; ENTRY ACTION: S IBDFN=DFN
|
---|
| 43 | ;; EXIT ACTION: S DFN=IBDFN
|
---|
| 44 | ;;
|
---|
| 45 | ;;
|
---|