VistA Analysis » VistA Reference » RPCs » ORWPCE GET SKIN TEST TYPE

ORWPCE GET SKIN TEST TYPE

Returns a list of the active skin test codes.

Properties

Property Value
Label SKTYPE
MUMPS Implementation ORWPCE2
Return Type ARRAY

MUMPS Method Description

Property Value
Method SKTYPE^ORWPCE2
Method Comment get the list of active skin test
Input Parameters ORDT
Code 
 N IEN,CNT,BINDEX S (IEN,CNT,BINDEX)=0
 S:'$G(ORDT) ORDT=DT
 F  S BINDEX=$O(^AUTTSK("B",BINDEX)) Q:BINDEX']""  F  S IEN=$O(^(BINDEX,IEN)) Q:'+IEN  D
 . I $D(^AUTTSK(IEN,0))#2,+$P(^(0),"^",3)=0 S CNT=CNT+1,ORWLST(CNT)=IEN_"^"_$P(^(0),"^")
 . ;I $D(^AUTTSK(IEN,0))#2,+$$SCREEN^XTID(9999999.28,,IEN,ORDT)=0 S CNT=CNT+1,ORWLST(CNT)=IEN_"^"_$P(^(0),"^")

CPRS

File Type Description
Pascal File Encounter/rPCE.pas


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