VistA Analysis » VistA Reference » RPCs » ORWDAL32 SYMPTOMS

ORWDAL32 SYMPTOMS

Properties

Property Value
Label SYMPTOMS
MUMPS Implementation ORWDAL32
Return Type ARRAY

MUMPS Method Description

Property Value
Method SYMPTOMS^ORWDAL32
Method Comment Return a subset of symptoms
Input Parameters FROM, DIR
First Comment
 .Return Array, Starting Text, Direction
Code
 N I,IEN,CNT,X,NAME,SUB S I=0,CNT=44 ;233
K ^TMP($J,"SIGNS") ;233
M ^TMP($J,"SIGNS","B")=^GMRD(120.83,"B") ;233
S SYN="" F S SYN=$O(^GMRD(120.83,"D",SYN)) Q:SYN="" S SUB=0 F S SUB=$O(^GMRD(120.83,"D",SYN,SUB)) Q:'+SUB D ;233
.S NAME=$P(^GMRD(120.83,SUB,0),U) S ^TMP($J,"SIGNS","B",(SYN_$C(9)_"<"_NAME_">"_U_NAME),SUB)="" ;233
F Q:I' . I FROM="OTHER REACTION" Q ;Don't send this entry
. S IEN=0 F S IEN=$O(^TMP($J,"SIGNS","B",FROM,IEN)) Q:'IEN D ;233
. . I $L($T(SCREEN^XTID)) I $$SCREEN^XTID(120.83,.01,IEN_",") Q ;233 Is term active
. . S I=I+1
. . S Y(I)=IEN_U_FROM

CPRS

File Type Description
Pascal File Orders/rODAllergy.pas


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