IBDF11A.m

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

 ;;  

 ;;

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      ;;