BEHOORUT.m

BEHOORUT ;MSC/IND/DKM/PLS - Order Dialog Utilities for EHR ;24-Apr-2013 09:40;PLS

 ;;1.1;BEH COMPONENTS;**011002,011006**;Sep 18, 2007

 ; Screen Package file lookup for BEHOORPA CLINICAL INDICATOR parameter

CLININD(IEN) ;EP

 N PFX,RET

 S PFX=$$GET1^DIQ(9.4,IEN,1),RET=0

 I PFX="PSO" D

 .S RET=$S($G(DUZ("AG"))="I":$$PATCH^XPDUTL("APSP*7.0*1006"),1:1)

 E  I PFX="LR" D

 .S RET=$S($G(DUZ("AG"))="I":$$PATCH^XPDUTL("LR*5.2*1022"),1:1)

 E  I PFX="GMRC" D

 .S RET=$S($G(DUZ("AG"))="I":$$PATCH^XPDUTL("GMRC*3.0*1004"),1:1)

 Q RET

BEHOORUT  ;MSC/IND/DKM/PLS - Order Dialog Utilities for EHR ;24-Apr-2013 09:40;PLS

 +1       ;;1.1;BEH COMPONENTS;**011002,011006**;Sep 18, 2007

 +2       ; Screen Package file lookup for BEHOORPA CLINICAL INDICATOR parameter

CLININD(IEN) ;EP

 +1        NEW PFX,RET

 +2        SET PFX=$$GET1^DIQ(9.4,IEN,1)

           SET RET=0

 +3        IF PFX="PSO"

               Begin DoDot:1

 +4                SET RET=$SELECT($GET(DUZ("AG"))="I":$$PATCH^XPDUTL("APSP*7.0*1006"),1:1)

               End DoDot:1

 +5       IF '$TEST

               IF PFX="LR"

                   Begin DoDot:1

 +6                    SET RET=$SELECT($GET(DUZ("AG"))="I":$$PATCH^XPDUTL("LR*5.2*1022"),1:1)

                   End DoDot:1

 +7       IF '$TEST

               IF PFX="GMRC"

                   Begin DoDot:1

 +8                    SET RET=$SELECT($GET(DUZ("AG"))="I":$$PATCH^XPDUTL("GMRC*3.0*1004"),1:1)

                   End DoDot:1

 +9        QUIT RET