VistA Analysis » VistA Reference » RPCs » ORWPCE ACTIVE CODE

ORWPCE ACTIVE CODE

Properties

Property Value
Label CODACTIV
MUMPS Implementation ORWPCE2
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method CODACTIV^ORWPCE2
Method Comment Is code active on the given date?
Input Parameters ORCODE, ORAPP, ORDATE
First Comment 
 Remote procedure:  ORWPCE ACTIVE CODE
 ORCODE = ICD or CPT code to be checked
 ORAPP  = "ICD", "GMPX" or "CHP"
 ORDATE = Date to be checked (defaults to current date)
Code 
 S:'+$G(ORDATE) ORDATE=DT
 S ORY=1
 I ORAPP="ICD" D  I 1
 . N ORI F ORI=1:1:$L(ORCODE,"/") S ORY=+$$STATCHK^ICDXCODE("DIAGNOSIS",$P(ORCODE,"/",ORI),ORDATE) Q:'ORY
 I ORAPP="GMPX" D  I 1
 . N LEX
 . S ORY=+$$STATCHK^LEXSRC2(ORCODE,ORDATE,.LEX)
 E  I ORAPP="CHP" D
 . S ORY=+$$STATCHK^ICPTAPIU(ORCODE,ORDATE)

CPRS

File Type Description
Pascal File BA/UBACore.pas
Pascal File Encounter/rPCE.pas


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