- BLRAGC ; IHS/MSC/SAT - LABORATORY ACCESSION GUI PRE/POST ROUTINES ;
- ;;5.2;IHS LABORATORY;**1031**;NOV 01, 1997;Build 185
- ;
- PRE ;Pre-Install routine
- Q
- ;
- POST ;Post-Install routine
- D AFMSC
- D RPC
- Q
- ;
- 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",!!!
- Q
- ;
- 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)
- Q
- 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
