OCXOCMPP ;SLC/RJS,CLA - ORDER CHECK CODE COMPILER (Generate Active Data Purge Logic) ;10/29/98 12:37
;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
;
EN ;
;
Q:'$$LINE^OCXOCMP4("PURGE") 1
;
S D0=0 F S D0=$O(^OCXS(860.2,D0)) Q:'D0 D
.Q:$G(^OCXS(860.2,D0,"INACT"))
.S D1=0 F S D1=$O(^OCXS(860.2,D0,"C",D1)) Q:'D1 D
..S SEL=$G(^OCXS(860.2,D0,"C",D1,"SEL"))
..S ELE=$P(^OCXS(860.2,D0,"C",D1,0),U,2)
..I $L(SEL),'(SEL="LAST"),ELE S OCXSEL(ELE)=""
;
D IN^OCXOCMP4("PURGE"," N OCXE0,OCXE1,OCXS")
D IN^OCXOCMP4("PURGE"," I $G(DFN) S OCXE0=0 F S OCXE0=$O(^OCXD(860.1,DFN,1,""C"",OCXE0)) Q:'OCXE0 D")
;
S D0=0 F S D0=$O(OCXSEL(D0)) Q:'D0 D IN^OCXOCMP4("PURGE"," .Q:(OCXE0="_D0_")")
;
D IN^OCXOCMP4("PURGE"," .S OCXE1=$O(^OCXD(860.1,DFN,1,""C"",OCXE0,""""),-1) Q:'OCXE1")
D IN^OCXOCMP4("PURGE"," .S OCXE1=$O(^OCXD(860.1,DFN,1,""C"",OCXE0,OCXE1),-1) Q:'OCXE1")
D IN^OCXOCMP4("PURGE"," .S OCXE1=$O(^OCXD(860.1,DFN,1,""C"",OCXE0,OCXE1),-1) Q:'OCXE1")
D IN^OCXOCMP4("PURGE"," .F S OCXE1=$O(^OCXD(860.1,DFN,1,""C"",OCXE0,OCXE1),-1) Q:'OCXE1 D")
D IN^OCXOCMP4("PURGE"," ..K ^OCXD(860.1,DFN,1,OCXE1)")
D IN^OCXOCMP4("PURGE"," ..K ^OCXD(860.1,DFN,1,""B"",OCXE1,OCXE1)")
D IN^OCXOCMP4("PURGE"," ..K ^OCXD(860.1,DFN,1,""C"",OCXE0,OCXE1)")
;
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXOCMPP 1359 printed Dec 13, 2024@02:25:01 Page 2
OCXOCMPP ;SLC/RJS,CLA - ORDER CHECK CODE COMPILER (Generate Active Data Purge Logic) ;10/29/98 12:37
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
+2 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
+3 ;
EN ;
+1 ;
+2 if '$$LINE^OCXOCMP4("PURGE")
QUIT 1
+3 ;
+4 SET D0=0
FOR
SET D0=$ORDER(^OCXS(860.2,D0))
if 'D0
QUIT
Begin DoDot:1
+5 if $GET(^OCXS(860.2,D0,"INACT"))
QUIT
+6 SET D1=0
FOR
SET D1=$ORDER(^OCXS(860.2,D0,"C",D1))
if 'D1
QUIT
Begin DoDot:2
+7 SET SEL=$GET(^OCXS(860.2,D0,"C",D1,"SEL"))
+8 SET ELE=$PIECE(^OCXS(860.2,D0,"C",D1,0),U,2)
+9 IF $LENGTH(SEL)
IF '(SEL="LAST")
IF ELE
SET OCXSEL(ELE)=""
End DoDot:2
End DoDot:1
+10 ;
+11 DO IN^OCXOCMP4("PURGE"," N OCXE0,OCXE1,OCXS")
+12 DO IN^OCXOCMP4("PURGE"," I $G(DFN) S OCXE0=0 F S OCXE0=$O(^OCXD(860.1,DFN,1,""C"",OCXE0)) Q:'OCXE0 D")
+13 ;
+14 SET D0=0
FOR
SET D0=$ORDER(OCXSEL(D0))
if 'D0
QUIT
DO IN^OCXOCMP4("PURGE"," .Q:(OCXE0="_D0_")")
+15 ;
+16 DO IN^OCXOCMP4("PURGE"," .S OCXE1=$O(^OCXD(860.1,DFN,1,""C"",OCXE0,""""),-1) Q:'OCXE1")
+17 DO IN^OCXOCMP4("PURGE"," .S OCXE1=$O(^OCXD(860.1,DFN,1,""C"",OCXE0,OCXE1),-1) Q:'OCXE1")
+18 DO IN^OCXOCMP4("PURGE"," .S OCXE1=$O(^OCXD(860.1,DFN,1,""C"",OCXE0,OCXE1),-1) Q:'OCXE1")
+19 DO IN^OCXOCMP4("PURGE"," .F S OCXE1=$O(^OCXD(860.1,DFN,1,""C"",OCXE0,OCXE1),-1) Q:'OCXE1 D")
+20 DO IN^OCXOCMP4("PURGE"," ..K ^OCXD(860.1,DFN,1,OCXE1)")
+21 DO IN^OCXOCMP4("PURGE"," ..K ^OCXD(860.1,DFN,1,""B"",OCXE1,OCXE1)")
+22 DO IN^OCXOCMP4("PURGE"," ..K ^OCXD(860.1,DFN,1,""C"",OCXE0,OCXE1)")
+23 ;
+24 QUIT
+25 ;
