Routine: BLRAGC

BLRAGC ; IHS/MSC/SAT - LABORATORY ACCESSION GUI PRE/POST ROUTINES ;

 ;;5.2;IHS LABORATORY;**1031**;NOV 01, 1997;Build 185

PRE ;Pre-Install routine

POST ;Post-Install routine

 D AFMSC

 D RPC

RPC ;register RPCs into the option CIAV VUECENTRIC and OR CPRS GUI CHART

 N BLRJ,BLRK,BLROPT,BLRRPC

 N MSCIEN,MSCRPC,MSCFDA,MSCERR

 F BLRK=1:1 D  Q:BLROPT=""

 .S BLROPT=$P($T(OPTL+BLRK),";;",2)

 .Q:BLROPT=""

 .S MSCIEN=$O(^DIC(19,"B",BLROPT,0))

 .I 'MSCIEN Q  W !!,"**** COULD NOT FIND THE OPTION, CIAV VUECENTRIC! ****",!!! Q

.;

 .F BLRJ=1:1 D  Q:BLRRPC=""

 ..S BLRRPC=$P($T(RPCL+BLRJ),";;",2)

 ..Q:BLRRPC=""

 ..S MSCRPC=$O(^XWB(8994,"B",BLRRPC,0))

 ..I 'MSCRPC W !!,"**** COULD NOT FIND RPC, "_BLRRPC_"! ****",!!! Q

 ..I $D(^DIC(19,MSCIEN,"RPC","B",MSCRPC)) Q  W !!,"*** RPC, """_BLRRPC_""" ALREADY REGISTERED TO CPRS/CV! ****",!!! Q

 ..S MSCRPC=$P(^XWB(8994,MSCRPC,0),U)

 ..S MSCFDA(19.05,"+1,"_MSCIEN_",",.01)=MSCRPC

 ..D UPDATE^DIE("E","MSCFDA","","MSCERR")

 ..I $D(MSCERR) W !!,"ERROR IN ASSIGNING "_BLRRPC_" RPC TO CPRS GUI",!!!

OPTL ;

 ;;CIAV VUECENTRIC

 ;;OR CPRS GUI CHART

RPCL ;

 ;;BLR REF LAB USING LEDI

 ;;BLR ICD LOOKUP

 ;;BLR ORDER REASON LKUP

 ;;BLR PATIENT LOOKUP

 ;;BLR PRINTERS AVAILABLE

 ;;BLR USER LOOKUP

 ;;BLR ACCESSION

 ;;BLR ACCESSION PRINT

 ;;BLR ALL NON-ACCESSIONED

 ;;BLR ALL-ACCESSIONED

 ;;BLR COLLECTION INFO

 ;;BLR DELETE TEST

 ;;BLR ORDER/TEST STATUS

 ;;BLR SHIP CONFIG

 ;;BLR MANIFEST BUILD

 ;;BLR MANIFEST CLOSE/SHIP

 ;;BLR MANIFEST DISPLAY

 ;;BLR MANIFEST START

 ;;BLR MANIFEST TEST ADD

 ;;BLR MANIFEST TEST REMOVE

 ;;BLR MANIFEST TESTS TO ADD

 ;;BLR XPAR DAYS TO ACCESSION

 ;;BLRAG05G AOE

AFMSC ;build AFMSC xref from file 69

 N BLRRES,BLRXREF

 S BLRXREF("FILE")=69

 S BLRXREF("TYPE")="MU"

 S BLRXREF("NAME")="AFMSC"

 S BLRXREF("ROOT FILE")=69.03

 S BLRXREF("SHORT DESCR")="ACCESSION DATE"

 S BLRXREF("DESCR,1")="This Cross Reference is an index of ACCESSION DATEs from the TEST"

 S BLRXREF("DESCR,2")="multiple."

 S BLRXREF("DESCR,3")="For every test that has an ACCESSION DATE defined, the index will"

 S BLRXREF("DESCR,4")="be the date in FM format."

 S BLRXREF("USE")="S"

 S BLRXREF("EXECUTION")="R"

 S BLRXREF("ACTIVITY")="IR"

 S BLRXREF("SET CONDITION")=""

 S BLRXREF("KILL CONDITION")=""

 S BLRXREF("SET")="S MSCDT=+$P($G(^LRO(69,DA(2),1,DA(1),2,DA,0)),U,3) S:MSCDT'=0 ^LRO(69,""AFMSC"",MSCDT,DA(2)_""|""_DA(1)_""|""_DA)="""""

 S BLRXREF("KILL")="S MSCDT=+$P($G(^LRO(69,DA(2),1,DA(1),2,DA,0)),U,3) K ^LRO(69,""AFMSC"",MSCDT,DA(2)_""|""_DA(1)_""|""_DA)"

 S BLRXREF("WHOLE KILL")="K ^LRO(69,""AFMSC"")"

 S BLRXREF("VAL",1)=2

 S BLRXREF("VAL",1,"SUBSCRIPT")=1

 S BLRRES=""

 D CREIXN^DDMOD(.BLRXREF,"SW",.BLRRES)

BLRAGC    ; IHS/MSC/SAT - LABORATORY ACCESSION GUI PRE/POST ROUTINES ;

 +1       ;;5.2;IHS LABORATORY;**1031**;NOV 01, 1997;Build 185

 +2       ;

PRE       ;Pre-Install routine

 +1        QUIT

 +2       ;

POST      ;Post-Install routine

 +1        DO AFMSC

 +2        DO RPC

 +3        QUIT

 +4       ;

RPC       ;register RPCs into the option CIAV VUECENTRIC and OR CPRS GUI CHART

 +1       ;

 +2        NEW BLRJ,BLRK,BLROPT,BLRRPC

 +3        NEW MSCIEN,MSCRPC,MSCFDA,MSCERR

 +4        FOR BLRK=1:1

               Begin DoDot:1

 +5                SET BLROPT=$PIECE($TEXT(OPTL+BLRK),";;",2)

 +6                IF BLROPT=""

                       QUIT

 +7                SET MSCIEN=$ORDER(^DIC(19,"B",BLROPT,0))

 +8                IF 'MSCIEN

                       QUIT

                       WRITE !!,"**** COULD NOT FIND THE OPTION, CIAV VUECENTRIC! ****",!!!

                       QUIT

 +9       ;

 +10               FOR BLRJ=1:1

                       Begin DoDot:2

 +11                       SET BLRRPC=$PIECE($TEXT(RPCL+BLRJ),";;",2)

 +12                       IF BLRRPC=""

                               QUIT

 +13                       SET MSCRPC=$ORDER(^XWB(8994,"B",BLRRPC,0))

 +14                       IF 'MSCRPC

                               WRITE !!,"**** COULD NOT FIND RPC, "_BLRRPC_"! ****",!!!

                               QUIT

 +15                       IF $DATA(^DIC(19,MSCIEN,"RPC","B",MSCRPC))

                               QUIT

                               WRITE !!,"*** RPC, """_BLRRPC_""" ALREADY REGISTERED TO CPRS/CV! ****",!!!

                               QUIT

 +16                       SET MSCRPC=$PIECE(^XWB(8994,MSCRPC,0),U)

 +17                       SET MSCFDA(19.05,"+1,"_MSCIEN_",",.01)=MSCRPC

 +18                       DO UPDATE^DIE("E","MSCFDA","","MSCERR")

 +19                       IF $DATA(MSCERR)

                               WRITE !!,"ERROR IN ASSIGNING "_BLRRPC_" RPC TO CPRS GUI",!!!

                       End DoDot:2

                       IF BLRRPC=""

                           QUIT

               End DoDot:1

               IF BLROPT=""

                   QUIT

 +20       QUIT

 +21      ;

OPTL      ;

 +1       ;;CIAV VUECENTRIC

 +2       ;;OR CPRS GUI CHART

 +3       ;

RPCL      ;

 +1       ;;BLR REF LAB USING LEDI

 +2       ;;BLR ICD LOOKUP

 +3       ;;BLR ORDER REASON LKUP

 +4       ;;BLR PATIENT LOOKUP

 +5       ;;BLR PRINTERS AVAILABLE

 +6       ;;BLR USER LOOKUP

 +7       ;;BLR ACCESSION

 +8       ;;BLR ACCESSION PRINT

 +9       ;;BLR ALL NON-ACCESSIONED

 +10      ;;BLR ALL-ACCESSIONED

 +11      ;;BLR COLLECTION INFO

 +12      ;;BLR DELETE TEST

 +13      ;;BLR ORDER/TEST STATUS

 +14      ;;BLR SHIP CONFIG

 +15      ;;BLR MANIFEST BUILD

 +16      ;;BLR MANIFEST CLOSE/SHIP

 +17      ;;BLR MANIFEST DISPLAY

 +18      ;;BLR MANIFEST START

 +19      ;;BLR MANIFEST TEST ADD

 +20      ;;BLR MANIFEST TEST REMOVE

 +21      ;;BLR MANIFEST TESTS TO ADD

 +22      ;;BLR XPAR DAYS TO ACCESSION

 +23      ;;BLRAG05G AOE

 +24      ;

AFMSC     ;build AFMSC xref from file 69

 +1        NEW BLRRES,BLRXREF

 +2        SET BLRXREF("FILE")=69

 +3        SET BLRXREF("TYPE")="MU"

 +4        SET BLRXREF("NAME")="AFMSC"

 +5        SET BLRXREF("ROOT FILE")=69.03

 +6        SET BLRXREF("SHORT DESCR")="ACCESSION DATE"

 +7        SET BLRXREF("DESCR,1")="This Cross Reference is an index of ACCESSION DATEs from the TEST"

 +8        SET BLRXREF("DESCR,2")="multiple."

 +9        SET BLRXREF("DESCR,3")="For every test that has an ACCESSION DATE defined, the index will"

 +10       SET BLRXREF("DESCR,4")="be the date in FM format."

 +11       SET BLRXREF("USE")="S"

 +12       SET BLRXREF("EXECUTION")="R"

 +13       SET BLRXREF("ACTIVITY")="IR"

 +14       SET BLRXREF("SET CONDITION")=""

 +15       SET BLRXREF("KILL CONDITION")=""

 +16       SET BLRXREF("SET")="S MSCDT=+$P($G(^LRO(69,DA(2),1,DA(1),2,DA,0)),U,3) S:MSCDT'=0 ^LRO(69,""AFMSC"",MSCDT,DA(2)_""|""_DA(1)_""|""_DA)="""""

 +17       SET BLRXREF("KILL")="S MSCDT=+$P($G(^LRO(69,DA(2),1,DA(1),2,DA,0)),U,3) K ^LRO(69,""AFMSC"",MSCDT,DA(2)_""|""_DA(1)_""|""_DA)"

 +18       SET BLRXREF("WHOLE KILL")="K ^LRO(69,""AFMSC"")"

 +19       SET BLRXREF("VAL",1)=2

 +20       SET BLRXREF("VAL",1,"SUBSCRIPT")=1

 +21      ;

 +22       SET BLRRES=""

 +23       DO CREIXN^DDMOD(.BLRXREF,"SW",.BLRRES)

 +24       QUIT

BLRAGC.m