Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ORX2

ORX2.m

Go to the documentation of this file.
  1. ORX2 ;SLC/DCM,AJB - OE/RR PATIENT LOCK ENTRY POINT ;Jun 23, 2022@07:59:29
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**16,48,158,168,183,190,195,292,405**;Dec 17, 1997;Build 211
  1. ;
  1. ; $$GET1^DIQ ICR #2056 ^DIR ICR #10026
  1. ; *^XLFDT ICR #10103
  1. ;
  1. PT1 ;;Entry point to unlock patient when done adding orders - NO LONGER USED
  1. ;;Required variable ORVP.
  1. Q:'$D(ORVP) Q:'$L(ORVP) Q:ORVP'["DPT("
  1. D UNLOCK(+ORVP) K ORPTLK,ORELK
  1. Q
  1. LK ;;Entry point for locking patient when updating orders
  1. ;;Entry: X=VP to Patient "DFN;DPT(" Exit: Y=1 if lock succeeds
  1. Q:'$D(X) Q:'$L(X) Q:X'["DPT(" Q:'$D(@("^"_$P(X,";",2)_+X_",0)"))
  1. S Y=$$LOCK(+X) Q:Y
  1. W !!,$C(7),$P(Y,U,2) D READ
  1. S Y=0 K X
  1. Q
  1. ULK ;;Entry point to unlock patient
  1. ;;Required variable X=VP to patient.
  1. Q:'$D(X) Q:'$L(X) Q:X'["DPT(" Q:'$D(@("^"_$P(X,";",2)_+X_",0)"))
  1. D UNLOCK(+X)
  1. Q
  1. LOCK(DFN) ; -- Lock patient chart (silent)
  1. ; Returns 1 if successful, or 0^Message if could not get lock
  1. Q:'$G(DFN) "0^Invalid patient" N Y,ORLK,NOW,NOW1
  1. S ORLK=$G(^XTMP("ORPTLK-"_DFN,1)) Q:ORLK=(DUZ_U_$J) 1 ;locked
  1. L +^XTMP("ORPTLK-"_DFN):$S($G(DILOCKTM)>0:DILOCKTM,1:5) I '$T D Q Y
  1. . ; who and date/time of lock added to locked message *405 - various patient safety issues
  1. . S Y="0^"_$S(+ORLK=DUZ:"You have",1:$$GET1^DIQ(200,+ORLK,.01)_" has")_" this patient locked with another session. ["_$$FMTE^XLFDT($P($G(^XTMP("ORPTLK-"_DFN,0)),U,2),2)_"]"
  1. S NOW=$$NOW^XLFDT,NOW1=$$FMADD^XLFDT(NOW,1)
  1. S ^XTMP("ORPTLK-"_DFN,0)=NOW1_U_NOW_"^CPRS Chart Lock",^(1)=DUZ_U_$J
  1. Q 1
  1. UNLOCK(DFN) ; -- Unlock patient chart (silent)
  1. L -^XTMP("ORPTLK-"_DFN)
  1. I $G(^XTMP("ORPTLK-"_DFN,1))=(DUZ_U_$J) K ^XTMP("ORPTLK-"_DFN)
  1. Q
  1. INC(IFN) ;Increment zero node on file 100.2
  1. N X,X3,X4
  1. Q:'$G(IFN) 1 Q:$D(^OR(100.2,IFN)) 1
  1. L +^OR(100.2,0):5 I '$T Q 0
  1. S:'$D(^OR(100.2,0)) ^(0)="OE/RR PATIENT^100.2P" S X=^(0)
  1. S X4=+$P(X,U,4)+1,X3=$S(IFN>$P(X,U,3):IFN,1:$P(X,U,3))
  1. S $P(^OR(100.2,0),U,3,4)=X3_U_X4
  1. L -^OR(100.2,0)
  1. Q 1
  1. ;
  1. LOCK1(ORDER) ; -- Lock ORDER in file #100
  1. ; Returns 1 if successful or 0^Message if could not get lock
  1. ;
  1. N X,Y,NOW,NOW1 I '$G(ORDER) Q "0^Invalid order number"
  1. ;DBIA #4001 Private DBIA w CMOP
  1. I $D(^XTMP("ORLK-"_ORDER,0)),(^(0)["CPRS/CMOP") Q "0^CMOP Transmission"
  1. L +^OR(100,+ORDER):$S($G(DILOCKTM)>0:DILOCKTM,1:5) I '$T S X=+$G(^XTMP("ORLK-"_+ORDER,1)),Y="0^"_$S(X:$P($G(^VA(200,X,0)),U),1:"Another person")_" is working on this order." Q Y
  1. I $P($G(^OR(100,+ORDER,0)),U,12)="I" S Y=+$P($G(^(3)),U,6) I Y,$P($G(^OR(100,Y,3)),U,3)=11 D Q Y
  1. . S X=$S($P(^OR(100,Y,3),U,11)=2:"renewal",1:"edit")
  1. . S Y="0^An unreleased "_X_" exists for this order." L -^OR(100,+ORDER)
  1. S NOW=$$NOW^XLFDT,NOW1=$$FMADD^XLFDT(NOW,1)
  1. S ^XTMP("ORLK-"_+ORDER,0)=NOW1_U_NOW_"^CPRS Order Lock",^(1)=DUZ_U_$J
  1. Q 1
  1. ;
  1. UNLK1(ORDER) ; -- Unlock ORDER in file #100
  1. ;DBIA #4001 CMOP
  1. S ORDER=+ORDER Q:'ORDER
  1. I $D(^XTMP("ORLK-"_ORDER,0)),(^(0)["CPRS/CMOP") D Q
  1. . I $J'=$P($G(^XTMP("ORLK-"_ORDER,1)),U,2) Q
  1. . L -^OR(100,ORDER) K ^XTMP("ORLK-"_ORDER)
  1. L +^OR(100,ORDER):$S($G(DILOCKTM)>0:DILOCKTM,1:5)
  1. I '$T Q
  1. E L -^OR(100,ORDER)
  1. L -^OR(100,ORDER) K ^XTMP("ORLK-"_ORDER)
  1. Q
  1. ;
  1. READ ; -- instead of READ^ORUTL
  1. N X,Y,DIR
  1. S DIR(0)="EA",DIR("A")=" Press return to continue "
  1. D ^DIR
  1. Q
  1. ;
  1. LCKEVT(EVT) ;Function atttempts to lock event, added w/patch 194
  1. N J
  1. F J=1:1:5 L +^ORE(100.2,EVT,0):1 Q:$T H 1
  1. Q $T
  1. ;
  1. UNLEVT(EVT) ;Unlocks global, added w/patch 195
  1. L -^ORE(100.2,EVT,0)
  1. Q