VistA Analysis » VistA Reference » RPCs » ORIMO IMOLOC

ORIMO IMOLOC

Properties

Property Value
Label IMOLOC
MUMPS Implementation ORIMO
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method IMOLOC^ORIMO
Method Comment ORY>=0: LOC is an IMO authorized location
Input Parameters ORLOC, ORDFN
Code 
 S ORY=-1
 N PACH,A
 K ^TMP($J,"ORIMO")
 S PACH=$$PATCH^XPDUTL("PSJ*5.0*111")
 Q:'PACH
 I $L($TEXT(SDIMO^SDAMA203)) D
 . ;#DBIA 4133
 . S ORY=$$SDIMO^SDAMA203(ORLOC,ORDFN)
 . ;if RSA returns an error then check against Clinic Loc.
 . I ORY=-3 D
 . .I $P($G(^SC(ORLOC,0)),U,3)'="C" Q
 . .I $D(^SC("AE",1,ORLOC))=1 S ORY=1
 . K SDIMO(1)
 I $D(^TMP($J,"OR MOB APP1")) K ^("OR MOB APP1") D ALL^PSJ53P46(+ORLOC,"ORIMO") S A=$G(^TMP($J,"ORIMO",0)) I A'>0!(+$G(^TMP($J,"ORIMO",A,3))=0) S ORY=-1

CPRS

File Type Description
Pascal File Orders/rOrders.pas


Document generated on August 31st 2022, 2:55:43 pm