DVBCTRN1.m

DVBCTRN1 ;ALB/JLU;AMIE link routine;12/21/92

 ;;2.7;AMIE;**12,193**;Apr 10, 1995;Build 84

NSFT K DVBCHK

 I $S('$D(DVBCDFN):1,DVBCDFN']"":1,1:0) S DVBCHK="-1^Patient's DFN not defined OR is null" Q

 I $S('$D(DVBCXM):1,DVBCXM']"":1,1:0) S DVBCHK="-2^Exam not defined OR is null" Q

 S DVBCDFN1=$O(^DVB(396.3,"B",DVBCDFN,0))

 I 'DVBCDFN1 S DVBCHK="-3^No 2507 request for this patient" Q

 ;for loop to handle multiple exams with same name

 N FOUND,STOP,TOXM

 S (DVBCXM1,FOUND,STOP)=0

 F  S DVBCXM1=$O(^DVB(396.6,"B",$E(DVBCXM,1,30),DVBCXM1)) Q:(DVBCXM1="")!(+$G(DVBCHK)<0)  D

 .Q:($P(^DVB(396.6,DVBCXM1,0),"^"))'=DVBCXM

 .S FOUND=1 ;an entry does exist for exam passed in DVBCXM

 .S DVBCOXM=$O(^DVB(396.4,"APS",DVBCDFN,DVBCXM1,"O",0))

 .I STOP,DVBCOXM'="" S DVBCHK="-8^More than one open exam" Q

 .I STOP,DVBCOXM="" Q

 .; ^ multiple exams with same name but different pointer values.

 .I $O(^DVB(396.4,"APS",DVBCDFN,DVBCXM1,"O",DVBCOXM)) S DVBCHK="-8^More than one open exam" Q

 .I DVBCOXM'="" S STOP=1,TOXM=DVBCOXM

 .; ^open exam found

 I +$G(DVBCHK)<0 Q

 I 'FOUND S DVBCHK="-4^No Exam by that name in the 2507 Exam file" Q

 I 'STOP S DVBCHK="-6^No open Exam for data given" Q

 S DVBCOXM=TOXM

 I '$D(^DVB(396.4,DVBCOXM,0)) S DVBCHK="-7^Exam cross reference is bad" Q

 S DVBCX=$P(^DVB(396.4,DVBCOXM,0),U,2)

 I '$$OREQ($P(^DVB(396.3,DVBCX,0),"^",18)) S DVBCHK="-5^No open requests for data given" Q

 S DVBCHK="396.3:"_DVBCX_":"_396.4_":"_DVBCOXM_";^Soft Link entry"

 Q

 ;

OREQ(DVBX) ;

 ;This function will check to see if there is an open request.

 ;DVBCX should contain the REQUEST STATUS.

 ;

 ;AJF; 2507 Request Status Conversion

 S DVBX=$$RSTAT^DVBCUTL8(DVBX)

 I $S(DVBX'="P"&(DVBX'="S")&(DVBX'="T")&(DVBX'="NT"):1,1:0) Q 0

 Q 1

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBCTRN1   1764     printed  Apr 09, 2024@20:56:07                                                                                                                                                                                                    Page 2

DVBCTRN1  ;ALB/JLU;AMIE link routine;12/21/92

 +1       ;;2.7;AMIE;**12,193**;Apr 10, 1995;Build 84

NSFT       KILL DVBCHK

 +1        IF $SELECT('$DATA(DVBCDFN):1,DVBCDFN']"":1,1:0)

               SET DVBCHK="-1^Patient's DFN not defined OR is null"

               QUIT 

 +2        IF $SELECT('$DATA(DVBCXM):1,DVBCXM']"":1,1:0)

               SET DVBCHK="-2^Exam not defined OR is null"

               QUIT 

 +3        SET DVBCDFN1=$ORDER(^DVB(396.3,"B",DVBCDFN,0))

 +4        IF 'DVBCDFN1

               SET DVBCHK="-3^No 2507 request for this patient"

               QUIT 

 +5       ;for loop to handle multiple exams with same name

 +6        NEW FOUND,STOP,TOXM

 +7        SET (DVBCXM1,FOUND,STOP)=0

 +8        FOR 

               SET DVBCXM1=$ORDER(^DVB(396.6,"B",$EXTRACT(DVBCXM,1,30),DVBCXM1))

               if (DVBCXM1="")!(+$GET(DVBCHK)<0)

                   QUIT 

               Begin DoDot:1

 +9                if ($PIECE(^DVB(396.6,DVBCXM1,0),"^"))'=DVBCXM

                       QUIT 

 +10      ;an entry does exist for exam passed in DVBCXM

                   SET FOUND=1

 +11               SET DVBCOXM=$ORDER(^DVB(396.4,"APS",DVBCDFN,DVBCXM1,"O",0))

 +12               IF STOP

                       IF DVBCOXM'=""

                           SET DVBCHK="-8^More than one open exam"

                           QUIT 

 +13               IF STOP

                       IF DVBCOXM=""

                           QUIT 

 +14      ; ^ multiple exams with same name but different pointer values.

 +15               IF $ORDER(^DVB(396.4,"APS",DVBCDFN,DVBCXM1,"O",DVBCOXM))

                       SET DVBCHK="-8^More than one open exam"

                       QUIT 

 +16               IF DVBCOXM'=""

                       SET STOP=1

                       SET TOXM=DVBCOXM

 +17      ; ^open exam found

               End DoDot:1

 +18       IF +$GET(DVBCHK)<0

               QUIT 

 +19       IF 'FOUND

               SET DVBCHK="-4^No Exam by that name in the 2507 Exam file"

               QUIT 

 +20       IF 'STOP

               SET DVBCHK="-6^No open Exam for data given"

               QUIT 

 +21       SET DVBCOXM=TOXM

 +22       IF '$DATA(^DVB(396.4,DVBCOXM,0))

               SET DVBCHK="-7^Exam cross reference is bad"

               QUIT 

 +23       SET DVBCX=$PIECE(^DVB(396.4,DVBCOXM,0),U,2)

 +24       IF '$$OREQ($PIECE(^DVB(396.3,DVBCX,0),"^",18))

               SET DVBCHK="-5^No open requests for data given"

               QUIT 

 +25       SET DVBCHK="396.3:"_DVBCX_":"_396.4_":"_DVBCOXM_";^Soft Link entry"

 +26       QUIT 

 +27      ;

OREQ(DVBX) ;

 +1       ;This function will check to see if there is an open request.

 +2       ;DVBCX should contain the REQUEST STATUS.

 +3       ;

 +4       ;AJF; 2507 Request Status Conversion

 +5        SET DVBX=$$RSTAT^DVBCUTL8(DVBX)

 +6        IF $SELECT(DVBX'="P"&(DVBX'="S")&(DVBX'="T")&(DVBX'="NT"):1,1:0)

               QUIT 0

 +7        QUIT 1