VistA Analysis » VistA Reference » RPCs » ORWPCE GET IMMUNIZATION TYPE

ORWPCE GET IMMUNIZATION TYPE

Returns a list of active immunizations.

Properties

Property Value
Label IMMTYPE
MUMPS Implementation ORWPCE2
Return Type ARRAY

MUMPS Method Description

Property Value
Method IMMTYPE^ORWPCE2
Method Comment get the list of active immunizations
Input Parameters ORDT
Code 
 N IEN,CNT,BINDEX S (IEN,CNT,BINDEX)=0
 S:'$G(ORDT) ORDT=DT
 F  S BINDEX=$O(^AUTTIMM("B",BINDEX)) Q:BINDEX']""  F  S IEN=$O(^(BINDEX,IEN)) Q:'+IEN  D
 . I $D(^AUTTIMM(IEN,0))#2,+$P(^(0),"^",7)=0 S CNT=CNT+1,ORWLST(CNT)=IEN_"^"_$P(^(0),"^")
 . ;I $D(^AUTTIMM(IEN,0))#2,+$$SCREEN^XTID(9999999.14,,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