Ignore:
Timestamp:
Jul 3, 2012, 11:41:26 AM (12 years ago)
Author:
Sam Habiel
Message:

a new version Work in Progress version of C0QKIDS

File:
1 edited

Legend:

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

    r1438 r1465  
    1 C0QKIDS ; VEN/SMH - Kids Utilities for transporting C0Q data ; 5/24/12 3:53pm
    2         ;;1.0;C0Q;;May 21, 2012;Build 43
     1C0QKIDS ; VEN/SMH - Kids Utilities for transporting C0Q data ; 7/3/12 8:38am
     2        ;;1.0;C0Q;;May 21, 2012;Build 47
    33        ; Licensed under package license. See Documentation.
    44        ;
    5         ; PEPs: TRAN, POST
     5        ; PEPs: PRE, TRAN, POST
    66        ;
     7PRE ; Unified Pre; PEP
     8        D PREREM
     9        QUIT
    710TRAN    ; Unified Transport; PEP
    811        ; D TRAN301  ; looks like I won't send that file over
     
    1316        D POST101
    1417        D POST201
     18        D POSTREM
    1519        QUIT
    1620        ;
     
    101105        . F  S C0QERR=$Q(@C0QERR) Q:C0QERR=""  D MES^XPDUTL(C0QERR_": "_@C0QERR)
    102106        QUIT
     107        ;
     108        ; Code below taken from PXRMP15I
     109        ;===============================================================
     110ARRAY(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        ;===============================================================
     117DELEI   ;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        ;===============================================================
     135EXFINC(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        ;
     148PREREM  ;
     149        D DELEI
     150        Q
     151POSTREM ;
     152        D SMEXINS
     153        Q
     154        ;===============================================================
     155SMEXINS ;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        ;
     171CRPL(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.