Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDF11A

IBDF11A.m

Go to the documentation of this file.
  1. IBDF11A ;ALB/CJM - ENCOUNTER FORM - (print manager setup - INFORMATION) ;April 20,1993
  1. ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
  1. ;
  1. INFO ;N I,LINE,DIR
  1. 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
  1. Q
  1. TEXT ;;Care must be taken when defining reports to the Print Manager. Please
  1. ;;follow these rules:
  1. ;;
  1. ;; 1) Entry points must involve no user interaction.
  1. ;; 2) The device must not be changed or closed.
  1. ;; 3) Local variables should be the same on exit as on entry.
  1. ;;
  1. ;;THESE VARIABLES ARE AVAILABLE:
  1. ;;
  1. ;; DFN = ien of patient in the PATIENT file
  1. ;; IBCLINIC = ien of clinic in the HOSPTIAL LOCATION file
  1. ;; IBAPPT = appointment date/time in FM format
  1. ;;
  1. ;;FEATURES OF INTEREST, IN THE ORDER PERFORMED BY THE PRINT MANAGER:
  1. ;;
  1. ;; AVAILABLE?: The Print Manager will not print the report unless
  1. ;; this is set to YES.
  1. ;;
  1. ;; REQUIRED VARIABLES: You can define a list of variables that should
  1. ;; be defined. The Print Manager won't call the entry point unless
  1. ;; they are defined.
  1. ;;
  1. ;; PROTECTED VARIABLES: You can define a list of variables (without
  1. ;; subscripts) that should be NEWed.
  1. ;;
  1. ;; ENTRY ACTION: Mumps code that should be Xecuted before calling
  1. ;; the entry point.
  1. ;;
  1. ;; EXIT ACTION: Mumps code that should be Xecuted after calling
  1. ;; the entry point.
  1. ;;
  1. ;;EXAMPLE: Supposing the entry point kills DFN. You could do this:
  1. ;;
  1. ;; REQUIRED VARIABLE: DFN
  1. ;; PROTECTED VARIABLE: IBDFN
  1. ;; ENTRY ACTION: S IBDFN=DFN
  1. ;; EXIT ACTION: S DFN=IBDFN
  1. ;;
  1. ;;