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