Changeset 1484

Timestamp:

Jul 13, 2012, 7:25:21 PM (12 years ago)

Author:

Sam Habiel

Message:

restored old KIDS file; moved logic for reminders into new init routine C0Q1P2

Location:

qrda/C0Q/trunk/p

Files:

• C0Q1P2.m (added)
• C0QKIDS.m (modified) (4 diffs)
• C0QP1.m (added)

qrda/C0Q/trunk/p/C0QKIDS.m

@@ -1 @@
-C0QKIDS ; VEN/SMH - Kids Utilities for transporting C0Q data ; 7/3/12 8:38am
+C0QKIDS ; VEN/SMH - Kids Utilities for transporting C0Q data ; 7/13/12 11:49am
         ;;1.0;C0Q;;May 21, 2012;Build 47
         ; Licensed under package license. See Documentation.
@@ -6 +6 @@
         ;
 PRE ; Unified Pre; PEP
-        D PREREM
         QUIT
 TRAN    ; Unified Transport; PEP
@@ -16 +15 @@
         D POST101
         D POST201
-        D POSTREM
         QUIT
         ;
@@ -108 +106 @@
         ; Code below taken from PXRMP15I
         ;===============================================================
-ARRAY(MODE,ARRAY)       ;List of exchange entries used by delete and install
-        ;
-        S ARRAY(1,1)="MU NQF0024 BMI_MK"
-        I MODE S ARRAY(1,2)="07/06/2011@15:11:46"
-        Q
-        ;
-        ;===============================================================
-DELEI   ;If the Exchange File entry already exists delete it.
-        N ARRAY,IC,IND,LIST,LUVALUE,NUM
-        D ARRAY(1,.ARRAY)
-        S IC=0
-        F  S IC=$O(ARRAY(IC)) Q:'IC  D
-        .S LUVALUE(1)=ARRAY(IC,1)
-        .D FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST")
-        .I '$D(LIST) Q
-        .S NUM=$P(LIST("DILIST",0),U,1)
-        .I NUM'=0 D
-        ..F IND=1:1:NUM D
-        ... N DA,DIK
-        ... S DIK="^PXD(811.8,"
-        ... S DA=LIST("DILIST",2,IND)
-        ... D ^DIK
-        Q
-        ;
-        ;===============================================================
-EXFINC(Y)       ;Return a 1 if the Exchange file entry is in the list to
-        ;include in the build. This is used in the build to determine which
-        ;entries to include.
-        N ARRAY,FOUND,IEN,IC,LUVALUE
-        D ARRAY(1,.ARRAY)
-        S FOUND=0
-        S IC=0
-        F  S IC=+$O(ARRAY(IC)) Q:(IC=0)!(FOUND)  D
-        . M LUVALUE=ARRAY(IC)
-        . S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
-        . I IEN=Y S FOUND=1 Q
-        Q FOUND
-        ;
-PREREM  ;
-        D DELEI
-        Q
-POSTREM ;
-        D SMEXINS
-        Q
-        ;===============================================================
-SMEXINS ;Silent mode install.
-        N ARRAY,IC,IEN,LUVALUE,PXRMINST
-        S PXRMINST=1
-        D ARRAY(1,.ARRAY)
-        S IC=0
-        F  S IC=$O(ARRAY(IC)) Q:'IC  D
-        .M LUVALUE=ARRAY(IC)
-        .S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
-        .I IEN'=0 D
-        .. N TEXT
-        .. I LUVALUE(1)["PARAMETER" S TEXT="Installing entry "_LUVALUE(1)
-        .. E  S TEXT="Installing reminder "_LUVALUE(1)
-        .. D BMES^XPDUTL(TEXT)
-        .. D INSTALL^PXRMEXSI(IEN,"I",1)
-        Q
-        ;
-CRPL(PLNAME,C0QERR) ; Private ; $$ ; Create Patient List
- ; Input: PLNAME: By Value: Patient List Name
- ;        C0QERR: By Ref:   Error Array
- ; Output: IEN of Patient List, or -1 for error
- N C0QFDA,C0QIENS ; FDA, return IEN
- S C0QFDA(810.5,"?+1,",.01)=PLNAME ; Patient List Name
- S C0QFDA(810.5,"?+1,",.07)="`"_DUZ    ; Creator
- S C0QFDA(810.5,"?+1,",.08)="PUB"  ; Type: Public
- S C0QFDA(810.5,"?+1,",100)="L"    ; Class: Local
- D UPDATE^DIE("E",$NA(C0QFDA),$NA(C0QIENS),$NA(C0QERR)) ; External Flag
- I $G(C0QIENS(1)) QUIT C0QIENS(1)
- E  QUIT -1