- VBECDCM0 ;hoifo/gjc-VBECS MAPPING TABLE add, edit & delete utilities.;Nov 21, 2002
- ;;2.0;VBEC;;Jun 05, 2015;Build 4
- ;
- ; main entry point for VBECS MAPPING TABLE (#6005) file operations
- ;
- ;Medical Device #:
- ;Note: The food and Drug Administration classifies this software as a
- ;medical device. As such, it may not be changed in any way.
- ;Modifications to this software may result in an adulterated medical
- ;device under 21CFR820, the use of which is considered to be a
- ;violation of US Federal Statutes. Acquiring and implementing this
- ;software through the Freedom of Information Act requires the
- ;implementer to assume total responsibility for the software, and
- ;become a registered manufacturer of a medical device, subject to FDA
- ;regulations.
- ;
- ;Call to $$NEWERR^%ZTER is supported by IA: 1621
- ;Call to FILE^DIE is supported by IA: 2053
- ;Call to $$NOW^XLFDT is supported by IA: 10103
- ;Execution of ^%ZOSF("TEST") is supported by IA: 10096
- ;
- EN613 ;Initially populate the file with antigen/antibody data
- ;
- I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D ERR^VBECDCU1"
- E S X="D ERR^VBECDCU1",@^%ZOSF("TRAP")
- I +$O(^VBEC(6005,"AA","61.3-"))'=61.3 D
- .Q:'$$LOCK^VBECDCU2(61.3)
- .W !!,"Adding site configured 'Antigen/Antibody' information into the VBECS MAPPING",!,"TABLE file (#6005)."
- .S CNT=0
- .F VBECANTI="AB","AN" D ;antibodies & antigens
- ..S VBECY=0 F S VBECY=$O(^LAB(61.3,"E",VBECANTI,VBECY)) Q:'VBECY D
- ...S VBECY(0)=$G(^LAB(61.3,VBECY,0)),CNT=CNT+1
- ...D POP6005^VBECDCM2(61.3,VBECY,$P(VBECY(0),U),$P(VBECY(0),U,2),VBECANTI)
- ...W:'(CNT#100) "."
- ...Q
- ..Q
- .D UNLOCK^VBECDCU2(61.3)
- .Q
- S:+$O(^VBEC(6005,"AA","61.3-"))=61.3 VBECFLG=1
- I W !!,CNT_" antibody/antigen record"_$S(CNT=1:"",1:"s")_" added.",!
- ;
- ;handle antigen/antibody edit, delete, and add events here
- ;
- E D
- .Q:'$$LOCK^VBECDCU2(61.3) S VBECFLG=0
- .F VBECANTI="AB","AN" D ;antibodies & antigens
- ..S VBECY=0 F S VBECY=$O(^LAB(61.3,"E",VBECANTI,VBECY)) Q:'VBECY D
- ...S VBECY(0)=$G(^LAB(61.3,VBECY,0)),VBEC01=61.3_"-"_VBECY
- ...S VBECIEN=+$O(^VBEC(6005,"B",VBEC01,0))
- ...;
- ...;if antigen/antibody not filed in 6005, add it
- ...I 'VBECIEN S VBECFLG=1 D POP6005^VBECDCM2(61.3,VBECY,$P(VBECY(0),U),$P(VBECY(0),U,2),VBECANTI) Q
- ...S VBECIEN(0)=$G(^VBEC(6005,VBECIEN,0))
- ...;
- ...;check if the name or identifier attribute has been edited
- ...S VBECTOT=0,VBECTOT=$$CHECKSUM^VBECDCU2($P(VBECY(0),U))
- ...S VBECTOT=VBECTOT+$$CHECKSUM^VBECDCU2($P(VBECY(0),U,2))
- ...S VBECTOT=VBECTOT+$$CHECKSUM^VBECDCU2($P(VBECY(0),U,5))
- ...I VBECTOT'=$P(VBECIEN(0),U,6) D S VBECFLG=1 K VBECTOT
- ....S:$P(VBECY(0),U)'=$P(VBECIEN(0),U,2) VBECFDA(6005,VBECIEN_",",.02)=$P(VBECY(0),U)
- ....S:$P(VBECY(0),U,2)'=$P(VBECIEN(0),U,3) VBECFDA(6005,VBECIEN_",",.03)=$P(VBECY(0),U,2)
- ....S:$P(VBECY(0),U,5)'=$P(VBECIEN(0),U,4) VBECFDA(6005,VBECIEN_",",.04)=$P(VBECY(0),U,5)
- ....S VBECFDA(6005,VBECIEN_",",.05)="@"
- ....S VBECFDA(6005,VBECIEN_",",.06)=VBECTOT
- ....S VBECFDA(6005,VBECIEN_",",.07)=+$E($$NOW^XLFDT(),1,12)
- ....D FILE^DIE("","VBECFDA")
- ....Q
- ...;
- ...Q
- ..Q
- .D UNLOCK^VBECDCU2(61.3)
- .Q
- D DELETE^VBECDCM2(61.3)
- I $G(VBECFLG) W !!,"Antigen/Antibody information updated.",!
- E W !!,"Antigen/Antibody information current, not updated.",!
- D XIT^VBECDCM2
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVBECDCM0 3341 printed Feb 19, 2025@00:10:33 Page 2
- VBECDCM0 ;hoifo/gjc-VBECS MAPPING TABLE add, edit & delete utilities.;Nov 21, 2002
- +1 ;;2.0;VBEC;;Jun 05, 2015;Build 4
- +2 ;
- +3 ; main entry point for VBECS MAPPING TABLE (#6005) file operations
- +4 ;
- +5 ;Medical Device #:
- +6 ;Note: The food and Drug Administration classifies this software as a
- +7 ;medical device. As such, it may not be changed in any way.
- +8 ;Modifications to this software may result in an adulterated medical
- +9 ;device under 21CFR820, the use of which is considered to be a
- +10 ;violation of US Federal Statutes. Acquiring and implementing this
- +11 ;software through the Freedom of Information Act requires the
- +12 ;implementer to assume total responsibility for the software, and
- +13 ;become a registered manufacturer of a medical device, subject to FDA
- +14 ;regulations.
- +15 ;
- +16 ;Call to $$NEWERR^%ZTER is supported by IA: 1621
- +17 ;Call to FILE^DIE is supported by IA: 2053
- +18 ;Call to $$NOW^XLFDT is supported by IA: 10103
- +19 ;Execution of ^%ZOSF("TEST") is supported by IA: 10096
- +20 ;
- EN613 ;Initially populate the file with antigen/antibody data
- +1 ;
- +2 IF $$NEWERR^%ZTER
- NEW $ETRAP,$ESTACK
- SET $ETRAP="D ERR^VBECDCU1"
- +3 IF '$TEST
- SET X="D ERR^VBECDCU1"
- SET @^%ZOSF("TRAP")
- +4 IF +$ORDER(^VBEC(6005,"AA","61.3-"))'=61.3
- Begin DoDot:1
- +5 if '$$LOCK^VBECDCU2(61.3)
- QUIT
- +6 WRITE !!,"Adding site configured 'Antigen/Antibody' information into the VBECS MAPPING",!,"TABLE file (#6005)."
- +7 SET CNT=0
- +8 ;antibodies & antigens
- FOR VBECANTI="AB","AN"
- Begin DoDot:2
- +9 SET VBECY=0
- FOR
- SET VBECY=$ORDER(^LAB(61.3,"E",VBECANTI,VBECY))
- if 'VBECY
- QUIT
- Begin DoDot:3
- +10 SET VBECY(0)=$GET(^LAB(61.3,VBECY,0))
- SET CNT=CNT+1
- +11 DO POP6005^VBECDCM2(61.3,VBECY,$PIECE(VBECY(0),U),$PIECE(VBECY(0),U,2),VBECANTI)
- +12 if '(CNT#100)
- WRITE "."
- +13 QUIT
- End DoDot:3
- +14 QUIT
- End DoDot:2
- +15 DO UNLOCK^VBECDCU2(61.3)
- +16 QUIT
- End DoDot:1
- +17 if +$ORDER(^VBEC(6005,"AA","61.3-"))=61.3
- SET VBECFLG=1
- +18 IF $TEST
- WRITE !!,CNT_" antibody/antigen record"_$SELECT(CNT=1:"",1:"s")_" added.",!
- +19 ;
- +20 ;handle antigen/antibody edit, delete, and add events here
- +21 ;
- +22 IF '$TEST
- Begin DoDot:1
- +23 if '$$LOCK^VBECDCU2(61.3)
- QUIT
- SET VBECFLG=0
- +24 ;antibodies & antigens
- FOR VBECANTI="AB","AN"
- Begin DoDot:2
- +25 SET VBECY=0
- FOR
- SET VBECY=$ORDER(^LAB(61.3,"E",VBECANTI,VBECY))
- if 'VBECY
- QUIT
- Begin DoDot:3
- +26 SET VBECY(0)=$GET(^LAB(61.3,VBECY,0))
- SET VBEC01=61.3_"-"_VBECY
- +27 SET VBECIEN=+$ORDER(^VBEC(6005,"B",VBEC01,0))
- +28 ;
- +29 ;if antigen/antibody not filed in 6005, add it
- +30 IF 'VBECIEN
- SET VBECFLG=1
- DO POP6005^VBECDCM2(61.3,VBECY,$PIECE(VBECY(0),U),$PIECE(VBECY(0),U,2),VBECANTI)
- QUIT
- +31 SET VBECIEN(0)=$GET(^VBEC(6005,VBECIEN,0))
- +32 ;
- +33 ;check if the name or identifier attribute has been edited
- +34 SET VBECTOT=0
- SET VBECTOT=$$CHECKSUM^VBECDCU2($PIECE(VBECY(0),U))
- +35 SET VBECTOT=VBECTOT+$$CHECKSUM^VBECDCU2($PIECE(VBECY(0),U,2))
- +36 SET VBECTOT=VBECTOT+$$CHECKSUM^VBECDCU2($PIECE(VBECY(0),U,5))
- +37 IF VBECTOT'=$PIECE(VBECIEN(0),U,6)
- Begin DoDot:4
- +38 if $PIECE(VBECY(0),U)'=$PIECE(VBECIEN(0),U,2)
- SET VBECFDA(6005,VBECIEN_",",.02)=$PIECE(VBECY(0),U)
- +39 if $PIECE(VBECY(0),U,2)'=$PIECE(VBECIEN(0),U,3)
- SET VBECFDA(6005,VBECIEN_",",.03)=$PIECE(VBECY(0),U,2)
- +40 if $PIECE(VBECY(0),U,5)'=$PIECE(VBECIEN(0),U,4)
- SET VBECFDA(6005,VBECIEN_",",.04)=$PIECE(VBECY(0),U,5)
- +41 SET VBECFDA(6005,VBECIEN_",",.05)="@"
- +42 SET VBECFDA(6005,VBECIEN_",",.06)=VBECTOT
- +43 SET VBECFDA(6005,VBECIEN_",",.07)=+$EXTRACT($$NOW^XLFDT(),1,12)
- +44 DO FILE^DIE("","VBECFDA")
- +45 QUIT
- End DoDot:4
- SET VBECFLG=1
- KILL VBECTOT
- +46 ;
- +47 QUIT
- End DoDot:3
- +48 QUIT
- End DoDot:2
- +49 DO UNLOCK^VBECDCU2(61.3)
- +50 QUIT
- End DoDot:1
- +51 DO DELETE^VBECDCM2(61.3)
- +52 IF $GET(VBECFLG)
- WRITE !!,"Antigen/Antibody information updated.",!
- +53 IF '$TEST
- WRITE !!,"Antigen/Antibody information current, not updated.",!
- +54 DO XIT^VBECDCM2
- +55 QUIT
- +56 ;
