ORWDGX LOAD

 N I,ILST,DLG,NAM,TLST
 D GETLST^XPAR(.TLST,"ALL",PAR)
 S I=0,ILST=0 F  S I=$O(TLST(I)) Q:'I  D
 . S DLG=$P(TLST(I),U,2),NAM=$P(^ORD(101.41,+DLG,0),U,2)
 . S ILST=ILST+1,LST(ILST)=DLG_U_NAM
 N DLGTYP,OIDLG,FTDLG,OITYP,I,IFN
 S DLGTYP=$P(^ORD(101.41,DLG,0),U,4)
 S OIDLG=$O(^ORD(101.41,"B","OR GTX ORDERABLE ITEM",0))
 S FTDLG=$O(^ORD(101.41,"B","OR GTX FREE TEXT OI",0))
 I DLGTYP="D" D
 . S I=0,IFN=0 F  S I=$O(^ORD(101.41,DLG,10,I)) S X=^(I,0) D  Q:IFN
 . . I $P(X,U,2)=OIDLG S IFN=I,OITYP="O"
 . . I $P(X,U,2)=FTDLG S IFN=I,OITYP="F"
 . S Y="" I $L($G(^ORD(101.41,DLG,10,IFN,7))) X ^(7)
 . I OITYP="O" S Y=$P(^ORD(101.43,+Y,0),U,1)