|
Last change
on this file since 877 was 628, checked in by George Lilly, 16 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
885 bytes
|
| Line | |
|---|
| 1 | PXRMP6IL ; SLC/PKR - Inits for PXRM*2.0*6 ;11/06/2007
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123
|
|---|
| 3 | Q
|
|---|
| 4 | ;
|
|---|
| 5 | ;==========================================
|
|---|
| 6 | INILT ;Initialize list templates
|
|---|
| 7 | N IEN,IND,LIST,TEMP0
|
|---|
| 8 | D LTL^PXRMP6IL(.LIST)
|
|---|
| 9 | S IND=0
|
|---|
| 10 | ;IA #4123
|
|---|
| 11 | F S IND=$O(LIST(IND)) Q:IND="" D
|
|---|
| 12 | . S IEN=$O(^SD(409.61,"B",LIST(IND),"")) Q:IEN=""
|
|---|
| 13 | . S TEMP0=$G(^SD(409.61,IEN,0))
|
|---|
| 14 | . K ^SD(409.61,IEN)
|
|---|
| 15 | . S ^SD(409.61,IEN,0)=TEMP0
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | ;==========================================
|
|---|
| 19 | LTL(LIST) ;This is the list of list templates that being distributed
|
|---|
| 20 | ;in the patch.
|
|---|
| 21 | S LIST(1)="PXRM EX INSTALLATION DETAIL"
|
|---|
| 22 | S LIST(2)="PXRM EX INSTALLATION HISTORY"
|
|---|
| 23 | S LIST(3)="PXRM EX REMINDER EXCHANGE"
|
|---|
| 24 | S LIST(4)="PXRM EXTRACT HISTORY"
|
|---|
| 25 | S LIST(5)="PXRM LIST RULE MANAGEMENT"
|
|---|
| 26 | S LIST(6)="PXRM PATIENT LIST CREATION DOC"
|
|---|
| 27 | S LIST(7)="PXRM PATIENT LIST PATIENTS"
|
|---|
| 28 | S LIST(8)="PXRM PATIENT LIST USER"
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
