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 Dec 13, 2024@02:50:40 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 ;;
