VistA Analysis » VistA Reference » RPCs » ORWTPD ACTDF

ORWTPD ACTDF

Make default time/occ setting take action on each report

Properties

Property	Value
Label	ACTDF
MUMPS Implementation	ORWTPD
Return Type	SINGLE VALUE

MUMPS Method Description

Property Value

Method ACTDF^ORWTPD

Method Comment Make default setting take action for each report

Code

Property	Value
Method	ACTDF^ORWTPD
Method Comment	Make default setting take action for each report
Code	N IND,DFLT,VALUE,X,X0,X4,MAX,DFLT1 S DFLT=$$GET^XPAR("USR.`"_DUZ_"^DIV^SYS^PKG","ORWRP TIME/OCC LIMITS ALL",1,"I") S IND=0,X=$P($P(DFLT,";"),"-",2) F S IND=$O(^ORD(101.24,IND)) Q:'IND S X0=$G(^(IND,0)),X4=$G(^(4)) D . I $P(X0,"^",8)="R",$P(X0,"^",12)'="M" D .. S MAX=$P(X4,"^",2),DFLT1=DFLT .. I MAX,X,X>MAX S DFLT1="T-"_MAX_";"_$P(DFLT,";",2,99) .. D SUINDV(.Y,IND,DFLT1)

 N IND,DFLT,VALUE,X,X0,X4,MAX,DFLT1
 S DFLT=$$GET^XPAR("USR.`"_DUZ_"^DIV^SYS^PKG","ORWRP TIME/OCC LIMITS ALL",1,"I")
 S IND=0,X=$P($P(DFLT,";"),"-",2)
 F  S IND=$O(^ORD(101.24,IND)) Q:'IND  S X0=$G(^(IND,0)),X4=$G(^(4)) D
 . I $P(X0,"^",8)="R",$P(X0,"^",12)'="M" D
 .. S MAX=$P(X4,"^",2),DFLT1=DFLT
 .. I MAX,X,X>MAX S DFLT1="T-"_MAX_";"_$P(DFLT,";",2,99)
 .. D SUINDV(.Y,IND,DFLT1)

CPRS

File Type	Description
Pascal File	Options/rOptions.pas

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