source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMEXCO.m@ 1806

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1PXRMEXCO ; SLC/PKR/PJH - Exchange File component order. ;06/11/2003
2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
3 ;======================================================
4CORDER(IEN,UCOM,NUMCMPNT,COMORDR) ;Build the component order for
5 ;display and install.
6 N EXTYPE
7 S EXTYPE=$G(^PXD(811.8,IEN,115))
8 I EXTYPE="" S EXTYPE="REMINDER"
9 S NUMCMPNT=0
10 I EXTYPE="EXTRACT" D EXTRACT(.UCOM,.NUMCMPNT,.COMORDR) Q
11 I EXTYPE="REMINDER" D REM(.UCOM,.NUMCMPNT,.COMORDR)
12 Q
13 ;
14 ;======================================================
15EXTRACT(UCOM,NUMCMPNT,COMORDR) ;Build the component order for an
16 ;extract entry.
17 N FILENAME,FILENUM
18 F FILENUM=810.9,811.5,810.8,810.7,810.4,810.2 D
19 . S FILENAME=$$GET1^DID(FILENUM,"","","NAME") Q:FILENAME="" Q:'$D(UCOM(FILENAME))
20 . S NUMCMPNT=NUMCMPNT+1
21 . S COMORDR(NUMCMPNT,FILENAME)=""
22 . K UCOM(FILENAME)
23 Q
24 ;
25 ;======================================================
26REM(UCOM,NUMCMPNT,COMORDR) ;Build the component order for a reminder.
27 ;For reminders the order is Routines, Sponsors, ...,
28 ;Definition, Dialog. Where ... stands for all other components.
29 N TYPE
30 I $D(UCOM("ROUTINE")) D
31 . S NUMCMPNT=NUMCMPNT+1
32 . S COMORDR(NUMCMPNT,"ROUTINE")=""
33 . K UCOM("ROUTINE")
34 I $D(UCOM("REMINDER SPONSOR")) D
35 . S NUMCMPNT=NUMCMPNT+1
36 . S COMORDR(NUMCMPNT,"REMINDER SPONSOR")=""
37 . K UCOM("REMINDER SPONSOR")
38 S TYPE=""
39 F S TYPE=$O(UCOM(TYPE)) Q:TYPE="" D
40 . I (TYPE="REMINDER DEFINITION")!(TYPE="REMINDER DIALOG") Q
41 . S NUMCMPNT=NUMCMPNT+1
42 . S COMORDR(NUMCMPNT,TYPE)=""
43 . K UCOM(TYPE)
44 I $D(UCOM("REMINDER DEFINITION")) D
45 . S NUMCMPNT=NUMCMPNT+1
46 . S COMORDR(NUMCMPNT,"REMINDER DEFINITION")=""
47 . K UCOM("REMINDER DEFINITION")
48 I $D(UCOM("REMINDER DIALOG")) D
49 . S NUMCMPNT=NUMCMPNT+1
50 . S COMORDR(NUMCMPNT,"REMINDER DIALOG")=""
51 . K UCOM("REMINDER DIALOG")
52 Q
53 ;
Note: See TracBrowser for help on using the repository browser.