VistA Analysis » VistA Reference » RPCs » ORWTPD GETSETS

ORWTPD GETSETS

Properties

Property	Value
Label	GETSETS
MUMPS Implementation	ORWTPD
Return Type	ARRAY

MUMPS Method Description

Property Value

Method GETSETS^ORWTPD

Method Comment Get time/occ limit set for each report

Code

Property	Value
Method	GETSETS^ORWTPD
Method Comment	Get time/occ limit set for each report
Code	`N I,CNT,CAT,SEC S I=0,CNT=1,RST="" F S I=$O(^ORD(101.24,I)) Q:'I D . I $P($G(^ORD(101.24,I,0)),U,12)'="M" D .. S CAT=$P(^ORD(101.24,I,0),U,7),SEC=$P(^(0),U,8) .. I $S(CAT=1:1,CAT=6:1,1:0)!($P(^(0),U)="ORRP IMAGING") D ... D GETINDV(.RST,I) ... I $L($P(^ORD(101.24,I,2),U,4))>0 S Y(CNT)=I_U_$P(^(2),U,4)_" ["_SEC_"]"_U_RST ... E S Y(CNT)=I_U_$P(^ORD(101.24,I,2),U,3)_" ["_SEC_"]"_U_RST ... S CNT=CNT+1 K I,CNT,RST,CAT`

 N I,CNT,CAT,SEC
 S I=0,CNT=1,RST=""
 F  S I=$O(^ORD(101.24,I)) Q:'I   D
 . I $P($G(^ORD(101.24,I,0)),U,12)'="M" D
 .. S CAT=$P(^ORD(101.24,I,0),U,7),SEC=$P(^(0),U,8)
 .. I $S(CAT=1:1,CAT=6:1,1:0)!($P(^(0),U)="ORRP IMAGING") D
 ... D GETINDV(.RST,I)
 ... I $L($P(^ORD(101.24,I,2),U,4))>0 S Y(CNT)=I_U_$P(^(2),U,4)_" ["_SEC_"]"_U_RST
 ... E  S Y(CNT)=I_U_$P(^ORD(101.24,I,2),U,3)_" ["_SEC_"]"_U_RST
 ... S CNT=CNT+1
 K I,CNT,RST,CAT

CPRS

File Type	Description
Pascal File	Options/fOptionsReportsCustom.pas

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