| 1 | PXRMEXCO ; SLC/PKR/PJH - Exchange File component order. ;06/11/2003
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
|
|---|
| 3 | ;======================================================
|
|---|
| 4 | CORDER(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 | ;======================================================
|
|---|
| 15 | EXTRACT(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 | ;======================================================
|
|---|
| 26 | REM(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 | ;
|
|---|
