VistA Analysis » VistA Reference » RPCs » ORWOR PKISITE

ORWOR PKISITE

Properties

Property	Value
Label	PKISITE
MUMPS Implementation	ORWOR
Return Type	SINGLE VALUE

MUMPS Method Description

Property Value

Method PKISITE^ORWOR

Method Comment RPC determines if PKI is turned on at the site

Code

Property	Value
Method	PKISITE^ORWOR
Method Comment	RPC determines if PKI is turned on at the site
Code	`N ORPKIS,ORSITE,IEN S RETURN=0 Q:'$L($T(STORESIG^XUSSPKI)) ;Check for Kernel piece Q:'$L($T(OIDEA^PSSOPKI)) ;Check for Pharmacy piece S ORPKIS=0,ORSITE=+$$SITE^VASITE() I $D(^ORD(100.7,"B",ORSITE)) D . S IEN=$O(^ORD(100.7,"B",ORSITE,"")),ORPKIS=$P(^ORD(100.7,IEN,0),"^",2) I ORPKIS S RETURN=1`

 N ORPKIS,ORSITE,IEN
 S RETURN=0
 Q:'$L($T(STORESIG^XUSSPKI))  ;Check for Kernel piece
 Q:'$L($T(OIDEA^PSSOPKI))  ;Check for Pharmacy piece
 S ORPKIS=0,ORSITE=+$$SITE^VASITE() I $D(^ORD(100.7,"B",ORSITE)) D
 . S IEN=$O(^ORD(100.7,"B",ORSITE,"")),ORPKIS=$P(^ORD(100.7,IEN,0),"^",2)
 I ORPKIS S RETURN=1

CPRS

File Type	Description
Pascal File	Orders/rOrders.pas

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