Code |
N X,ORIFN,ORID,ORCNT,ORTN,ORENT,ORRTN S ROOT="" I $G(HANDLE)="" S ROOT(0)="-1^Bad Handle" Q I '$D(^XTMP(HANDLE)) S ROOT(0)="-1^Bad Handle" Q S ORID=$O(^ORD(101.24,"AC",ID,0)) I $G(ORID)="" S ROOT(0)="-1^No ID match" Q S ORCNT=$O(^ORD(101.24,ORID,3,"C",9999),-1) I $G(ORCNT)="" S ROOT(0)="-1^No Columns for Report" Q S ORTN=$P(^ORD(101.24,ORID,4),"^",6),ORENT=$P(^(4),"^",7) I '$L(ORTN) S ROOT(0)="-1^No HDR Routine exists" Q S ORRTN=ORENT_"^"_ORTN I '$L($T(@ORRTN)) S ROOT(0)="-1^HDR Routine non-existant" Q D @ORRTN
|