source: FOIAVistA/trunk/r/CLINICAL_MONITORING_SYSTEM-QAM/QAMC0.m@ 1800

Last change on this file since 1800 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.4 KB
Line 
1QAMC0 ;HISC/DAD-CONDITION: DESCRIPTION ;2/10/92 07:33
2 ;;1.0;Clinical Monitoring System;;09/13/1993
3 ;
4EN1 ; *** CONDITION CODE
5 ;
6 ; This part of a condition routine generates the list of patients
7 ; who meet the requirements of the condition and optionally its
8 ; parameters (see below). The list generated by the condition
9 ; should be of the following form:
10 ; S ^UTILITY($J,"QAM CONDITION",QAMD1,DFN)=""
11 ; S ^UTILITY($J,"QAM CONDITION",QAMD1,DFN,DATE/TIME(FM))=D0^D1^D2^...
12 ; QAMD1 = The IEN of the condition in the CONDITION multiple
13 ; in the QA MONITOR file (#743)
14 ; DFN = The IEN of a record in the PATIENT file (#2)
15 ; DATE/TIME = The date/time in FileMan format for this condition
16 ; If the condition has no date associated with it the
17 ; variable QAMTODAY (see below) may be used
18 ; D0,D1,D2 = The internal entry numbers to get to the data.
19 ;
20 ; The following variables may be used, but should NOT be changed
21 ; QAMD0 = The IEN of a record in the QA MONITOR file (#743)
22 ; QAMD1 = See above
23 ; QAMTODAY = The date for which auto enroll is running
24 ; QAMZERO = The zero node of the monitor
25 ; QAMONE = The one node of the monitor
26 ; The following variables should NOT be used or changed
27 ; QAMRANGE, QAQNBEG, QAQNEND, QAMARUN, QAMHISD0
28 ;
29EN2 ; *** PARAMETER CODE
30 ;
31 ; The parameter code section should ask the user any parameters
32 ; associated with the condition, e.g., Sex: M or F, Age: upper
33 ; lower limit, etc. The parameters edit section should support
34 ; full FileMan editing conventions: add, edit, delete, and error
35 ; handling. The entry point EN3^QAMUTL1 may be called to perform
36 ; the edit of a parameter. This routine uses a DIR call to get the
37 ; parameter. If the edit of the involves a screened look up on a
38 ; file the entry point EN2^QAMUTL1 should be used. For this call
39 ; the appropriate DIC variables should be set, also the DIR("?")
40 ; and DIR("??") variables may be used as well.
41 ; The required variables are:
42 ; QAMPARAM = Node parameter should be stored in, P1,P2,P3,P4,P5
43 ; DIR = See FileMan documentation
44 ; Other variables:
45 ; QAMD0, QAMD1 = Same as above
46 ; QAMFIN = Do NOT use this variable or change it
47 ; Returned variables:
48 ; DIRUT = See FileMan documentation
49 ; Y = See FileMan documentation
50 ; (Y="" if deleted or ^ or some problem with the edit)
51 ; DIR is killed by this call
Note: See TracBrowser for help on using the repository browser.