ORWPAR1.m

ORWPAR1 ;SLC/JLC - UTILITIES FOR JSON PARAMETERS ;Jan 29, 2024@13:55

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**608**;Dec 17, 1997;Build 15

 ;

 ; Reference to ^DD supported in ICR #10155

 ;

 Q

SIGI(RESULTS) ; Return Values for SIGI

 N SC,I,A

 S SC=$P(^DD(2,.024,0),"^",3)

 F I=1:1 Q:$P(SC,";",I)=""  S A=$P(SC,";",I),RESULTS("SelfIdentifiedGender",I,"Gender")=$P(A,":",2)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ORWPAR1   382     printed  Oct 16, 2024@18:37:30                                                                                                                                                                                                      Page 2

ORWPAR1   ;SLC/JLC - UTILITIES FOR JSON PARAMETERS ;Jan 29, 2024@13:55

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**608**;Dec 17, 1997;Build 15

 +2       ;

 +3       ; Reference to ^DD supported in ICR #10155

 +4       ;

 +5        QUIT 

SIGI(RESULTS) ; Return Values for SIGI

 +1        NEW SC,I,A

 +2        SET SC=$PIECE(^DD(2,.024,0),"^",3)

 +3        FOR I=1:1

               if $PIECE(SC,";",I)=""

                   QUIT 

               SET A=$PIECE(SC,";",I)

               SET RESULTS("SelfIdentifiedGender",I,"Gender")=$PIECE(A,":",2)

 +4        QUIT