Routine: ORIRPC1

ORIRPC1 ; SLC/AGP,AJB - Information panel RPC ;Sep 17, 2025@14:28:58

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**508**;Dec 17, 1997;Build 39

SETSECTIONS(CL,DA,DATA,NODE) ;

 N NUM S NUM=$O(DATA("sections",""),-1)+1

 S:$P(NODE(0),U,3)'="" DATA("sections",NUM,"displayText")=$P(NODE(0),U,3)

 S:$P(NODE(0),U,4)'="" DATA("sections",NUM,"abbreviatedDisplayText")=$P(NODE(0),U,4)

 S:$P(NODE(0),U,5)'="" DATA("sections",NUM,"color")=$$GUICOMPONENT($P(NODE(0),U,5))

 S DATA("sections",NUM,"collapsible")=$S($P(NODE(0),U,7)="":"false",1:$P(NODE(0),U,7))

 I $P(NODE(0),U,8) D

 . N X S X=0 F  S X=$O(^ORI(101.73,$P(NODE(0),U,8),50,X)) Q:'X  S DATA("sections",NUM,"imageIcon")=$G(DATA("sections",NUM,"imageIcon"))_^ORI(101.73,$P(NODE(0),U,8),50,X,0)

 S DATA("sections",NUM,"disabled")="false"

 S DATA("sections",NUM,"isNational")=$S(CL="NATIONAL":"true",1:"false")

 S DATA("sections",NUM,"sectionId")=DA(0)_";"_DA(1)_";"_DA(2)

 S:$P(NODE(101.73,0),U,1)'="" DATA("sections",NUM,"name")=$P(NODE(101.73,0),U,1)

 S:$P(NODE(101.73,0),U,3)'="" DATA("sections",NUM,"tab")=$P(NODE(101.73,0),U,3),DATA("sections",NUM,"pageID")=$P(NODE(101.73,"CPRS"),U)

SETUPDATE(ORY) ;

 N ALLTAB,DATA,ERROR,NUM

 S ALLTAB=$O(^ORI(101.73,"B","ALL TAB ADMIN",""))

 S NUM=$O(DATA("sections",""),-1)+1

 S DATA("sections",1,"displayText")="Panels updating, please try again."

 S DATA("sections",1,"abbreviatedDisplayText")="UPDT"

 S DATA("sections",1,"collapsible")="false"

 S DATA("sections",1,"disabled")="false"

 S DATA("sections",1,"isNational")="true"

 S DATA("sections",1,"sectionid")="1;1;1"

 S DATA("sections",1,"name")=$P(^ORI(101.73,ALLTAB,0),U)

 S DATA("sections",1,"tab")=$P(^ORI(101.73,ALLTAB,0),U,3),DATA("sections",NUM,"pageID")=$P(^ORI(101.73,ALLTAB,"CPRS"),U)

 S DATA("presentation",1,"name")="updating"

 S DATA("presentation",1,"abbreviatedDisplayText")="  "

 S DATA("presentation",1,"displayText")="    "

 S DATA("presentation",1,"action")="actNone"

 S DATA("presentation",1,"id")="1;1;1;1"

 S DATA("presentation",1,"sectionId")=DATA("sections",1,"id")

 K @ORY D ENCODE^XLFJSON("DATA",ORY,"ERROR")

GUICOMPONENT(DA) ; return component name

 Q $S($G(DA)="":0,1:$P($G(^ORI(101.73,DA,0)),U,3))

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORIRPC1   2224     printed  May 25, 2026@12:35:09                                                                                                                                                                                                     Page 2

ORIRPC1   ; SLC/AGP,AJB - Information panel RPC ;Sep 17, 2025@14:28:58

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**508**;Dec 17, 1997;Build 39

 +2       ;

 +3        QUIT

 +4       ;

SETSECTIONS(CL,DA,DATA,NODE) ;

 +1        NEW NUM

           SET NUM=$ORDER(DATA("sections",""),-1)+1

 +2        if $PIECE(NODE(0),U,3)'=""

               SET DATA("sections",NUM,"displayText")=$PIECE(NODE(0),U,3)

 +3        if $PIECE(NODE(0),U,4)'=""

               SET DATA("sections",NUM,"abbreviatedDisplayText")=$PIECE(NODE(0),U,4)

 +4        if $PIECE(NODE(0),U,5)'=""

               SET DATA("sections",NUM,"color")=$$GUICOMPONENT($PIECE(NODE(0),U,5))

 +5        SET DATA("sections",NUM,"collapsible")=$SELECT($PIECE(NODE(0),U,7)="":"false",1:$PIECE(NODE(0),U,7))

 +6        IF $PIECE(NODE(0),U,8)

               Begin DoDot:1

 +7                NEW X

                   SET X=0

FOR

                       SET X=$ORDER(^ORI(101.73,$PIECE(NODE(0),U,8),50,X))

                       if 'X

                           QUIT

                       SET DATA("sections",NUM,"imageIcon")=$GET(DATA("sections",NUM,"imageIcon"))_^ORI(101.73,$PIECE(NODE(0),U,8),50,X,0)

               End DoDot:1

 +8        SET DATA("sections",NUM,"disabled")="false"

 +9        SET DATA("sections",NUM,"isNational")=$SELECT(CL="NATIONAL":"true",1:"false")

 +10       SET DATA("sections",NUM,"sectionId")=DA(0)_";"_DA(1)_";"_DA(2)

 +11       if $PIECE(NODE(101.73,0),U,1)'=""

               SET DATA("sections",NUM,"name")=$PIECE(NODE(101.73,0),U,1)

 +12       if $PIECE(NODE(101.73,0),U,3)'=""

               SET DATA("sections",NUM,"tab")=$PIECE(NODE(101.73,0),U,3)

               SET DATA("sections",NUM,"pageID")=$PIECE(NODE(101.73,"CPRS"),U)

 +13       QUIT

SETUPDATE(ORY) ;

 +1        NEW ALLTAB,DATA,ERROR,NUM

 +2        SET ALLTAB=$ORDER(^ORI(101.73,"B","ALL TAB ADMIN",""))

 +3        SET NUM=$ORDER(DATA("sections",""),-1)+1

 +4        SET DATA("sections",1,"displayText")="Panels updating, please try again."

 +5        SET DATA("sections",1,"abbreviatedDisplayText")="UPDT"

 +6        SET DATA("sections",1,"collapsible")="false"

 +7        SET DATA("sections",1,"disabled")="false"

 +8        SET DATA("sections",1,"isNational")="true"

 +9        SET DATA("sections",1,"sectionid")="1;1;1"

 +10       SET DATA("sections",1,"name")=$PIECE(^ORI(101.73,ALLTAB,0),U)

 +11       SET DATA("sections",1,"tab")=$PIECE(^ORI(101.73,ALLTAB,0),U,3)

           SET DATA("sections",NUM,"pageID")=$PIECE(^ORI(101.73,ALLTAB,"CPRS"),U)

 +12       SET DATA("presentation",1,"name")="updating"

 +13       SET DATA("presentation",1,"abbreviatedDisplayText")="  "

 +14       SET DATA("presentation",1,"displayText")="    "

 +15       SET DATA("presentation",1,"action")="actNone"

 +16       SET DATA("presentation",1,"id")="1;1;1;1"

 +17       SET DATA("presentation",1,"sectionId")=DATA("sections",1,"id")

 +18       KILL @ORY

           DO ENCODE^XLFJSON("DATA",ORY,"ERROR")

 +19       QUIT

 +20      ;

GUICOMPONENT(DA) ; return component name

 +1        QUIT $SELECT($GET(DA)="":0,1:$PIECE($GET(^ORI(101.73,DA,0)),U,3))

 +2       ;

ORIRPC1.m