Changeset 1484 for qrda/C0Q


Ignore:
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:
2 added
1 edited

Legend:

Unmodified
Added
Removed
  • qrda/C0Q/trunk/p/C0QKIDS.m

    r1465 r1484  
    1 C0QKIDS ; VEN/SMH - Kids Utilities for transporting C0Q data ; 7/3/12 8:38am
     1C0QKIDS ; VEN/SMH - Kids Utilities for transporting C0Q data ; 7/13/12 11:49am
    22        ;;1.0;C0Q;;May 21, 2012;Build 47
    33        ; Licensed under package license. See Documentation.
     
    66        ;
    77PRE ; Unified Pre; PEP
    8         D PREREM
    98        QUIT
    109TRAN    ; Unified Transport; PEP
     
    1615        D POST101
    1716        D POST201
    18         D POSTREM
    1917        QUIT
    2018        ;
     
    108106        ; Code below taken from PXRMP15I
    109107        ;===============================================================
    110 ARRAY(MODE,ARRAY)       ;List of exchange entries used by delete and install
    111         ;
    112         S ARRAY(1,1)="MU NQF0024 BMI_MK"
    113         I MODE S ARRAY(1,2)="07/06/2011@15:11:46"
    114         Q
    115         ;
    116         ;===============================================================
    117 DELEI   ;If the Exchange File entry already exists delete it.
    118         N ARRAY,IC,IND,LIST,LUVALUE,NUM
    119         D ARRAY(1,.ARRAY)
    120         S IC=0
    121         F  S IC=$O(ARRAY(IC)) Q:'IC  D
    122         .S LUVALUE(1)=ARRAY(IC,1)
    123         .D FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST")
    124         .I '$D(LIST) Q
    125         .S NUM=$P(LIST("DILIST",0),U,1)
    126         .I NUM'=0 D
    127         ..F IND=1:1:NUM D
    128         ... N DA,DIK
    129         ... S DIK="^PXD(811.8,"
    130         ... S DA=LIST("DILIST",2,IND)
    131         ... D ^DIK
    132         Q
    133         ;
    134         ;===============================================================
    135 EXFINC(Y)       ;Return a 1 if the Exchange file entry is in the list to
    136         ;include in the build. This is used in the build to determine which
    137         ;entries to include.
    138         N ARRAY,FOUND,IEN,IC,LUVALUE
    139         D ARRAY(1,.ARRAY)
    140         S FOUND=0
    141         S IC=0
    142         F  S IC=+$O(ARRAY(IC)) Q:(IC=0)!(FOUND)  D
    143         . M LUVALUE=ARRAY(IC)
    144         . S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
    145         . I IEN=Y S FOUND=1 Q
    146         Q FOUND
    147         ;
    148 PREREM  ;
    149         D DELEI
    150         Q
    151 POSTREM ;
    152         D SMEXINS
    153         Q
    154         ;===============================================================
    155 SMEXINS ;Silent mode install.
    156         N ARRAY,IC,IEN,LUVALUE,PXRMINST
    157         S PXRMINST=1
    158         D ARRAY(1,.ARRAY)
    159         S IC=0
    160         F  S IC=$O(ARRAY(IC)) Q:'IC  D
    161         .M LUVALUE=ARRAY(IC)
    162         .S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
    163         .I IEN'=0 D
    164         .. N TEXT
    165         .. I LUVALUE(1)["PARAMETER" S TEXT="Installing entry "_LUVALUE(1)
    166         .. E  S TEXT="Installing reminder "_LUVALUE(1)
    167         .. D BMES^XPDUTL(TEXT)
    168         .. D INSTALL^PXRMEXSI(IEN,"I",1)
    169         Q
    170         ;
    171 CRPL(PLNAME,C0QERR) ; Private ; $$ ; Create Patient List
    172  ; Input: PLNAME: By Value: Patient List Name
    173  ;        C0QERR: By Ref:   Error Array
    174  ; Output: IEN of Patient List, or -1 for error
    175  N C0QFDA,C0QIENS ; FDA, return IEN
    176  S C0QFDA(810.5,"?+1,",.01)=PLNAME ; Patient List Name
    177  S C0QFDA(810.5,"?+1,",.07)="`"_DUZ    ; Creator
    178  S C0QFDA(810.5,"?+1,",.08)="PUB"  ; Type: Public
    179  S C0QFDA(810.5,"?+1,",100)="L"    ; Class: Local
    180  D UPDATE^DIE("E",$NA(C0QFDA),$NA(C0QIENS),$NA(C0QERR)) ; External Flag
    181  I $G(C0QIENS(1)) QUIT C0QIENS(1)
    182  E  QUIT -1
Note: See TracChangeset for help on using the changeset viewer.