VistA Analysis » VistA Reference » RPCs » ORWD DEF

ORWD DEF

Returns the formatting definition for an ordering dialog from the ORDERDIALOG file (101.41).

Properties

Property Value
Label DEF
MUMPS Implementation ORWD
Return Type ARRAY

MUMPS Method Description

Property Value
Method DEF^ORWD
Method Comment Return format mapping for a dialog
Input Parameters DLG
First Comment
 Y(n): CtrlName^DlgPtr^FmtSeq^Fmt^Omit^Lead^Trail^Mult?^chd1~chd2~...
Code
 I DLG="NOT IMPLEMENTED" S Y(0)="0^0" Q                 ; for testing
S DLG=$O(^ORD(101.41,"B",DLG,0))
N I,J,K,N,X0,X2,XW,DPTR
S Y(0)=$P(^ORD(101.41,DLG,0),U,5)_U_DLG
S I=0,N=0
F S I=$O(^ORD(101.41,DLG,10,I)) Q:I'>0 D
. S X0=$G(^ORD(101.41,DLG,10,I,0)),DPTR=$P(X0,U,2)
. S X2=$G(^ORD(101.41,DLG,10,I,2))
. S XW=$G(^ORD(101.41,DLG,10,I,"W"))
. S N=N+1,Y(N)=$P(XW,U,1)_U_DPTR_U_X2,CHLD=""
. S J=0 F S J=$O(^ORD(101.41,DLG,10,"DAD",DPTR,J)) Q:'J D
. . S K=0 F S K=$O(^ORD(101.41,DLG,10,"DAD",DPTR,J,K)) Q:'K D
. . . S CHLD=CHLD_$P(^ORD(101.41,DLG,10,K,0),U,2)_"~"
. S $P(Y(N),U,8)=CHLD

CPRS

File Type Description
NOT OSEHRA CPRS  


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