| 1 | OCXOCMPH ;SLC/RJS,CLA - ORDER CHECK CODE COMPILER (Build GETDF Function) ;10/29/98 12:37
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
|
|---|
| 3 | ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
|
|---|
| 4 | ;
|
|---|
| 5 | Q
|
|---|
| 6 | BLDDF ;
|
|---|
| 7 | N OCXDF,OCXGDF,OCXDR,OCXHL7
|
|---|
| 8 | S OCXGDF=$$LINE^OCXOCMP4("GETDF") Q:'OCXGDF
|
|---|
| 9 | S OCXHL7=$O(^OCXS(860.6,"B","GENERIC HL7 MESSAGE ARRAY",0)) Q:'OCXHL7
|
|---|
| 10 | ;
|
|---|
| 11 | S OCXDF=0 F S OCXDF=$O(^TMP("OCXCMP",$J,"DATA FIELD",OCXDF)) Q:'OCXDF D
|
|---|
| 12 | .S OCXDR=$G(^TMP("OCXCMP",$J,"DATA FIELD",OCXDF,OCXHL7,1))
|
|---|
| 13 | .I $L(OCXDR) D
|
|---|
| 14 | ..D IN^OCXOCMP4("GETDF"," "_OCXDR)
|
|---|
| 15 | ..S ^TMP("OCXCMP",$J,"DATA FIELD",OCXDF,OCXHL7,1)="||NOOP||"
|
|---|
| 16 | ;
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | SWAP ;
|
|---|
| 20 | Q:'$$LINE^OCXOCMP4("SWAPOUT","NAME","ARRAY") 1
|
|---|
| 21 | D IN^OCXOCMP4("SWAPOUT"," Q:'$L(NAME)")
|
|---|
| 22 | D IN^OCXOCMP4("SWAPOUT"," K ^TMP(""OCXSWAP"",$J,NAME)")
|
|---|
| 23 | D IN^OCXOCMP4("SWAPOUT"," S ^TMP(""OCXSWAP"",$J)=($P($H,"","",2)+($H*86400)+(2*60))_"" <- ^TMP ENTRY EXPIRATION DATE FOR ^OCXOPURG""")
|
|---|
| 24 | D IN^OCXOCMP4("SWAPOUT"," M ^TMP(""OCXSWAP"",$J,NAME)=ARRAY")
|
|---|
| 25 | D IN^OCXOCMP4("SWAPOUT"," K ARRAY")
|
|---|
| 26 | ;
|
|---|
| 27 | Q:'$$LINE^OCXOCMP4("SWAPIN","NAME","ARRAY") 1
|
|---|
| 28 | D IN^OCXOCMP4("SWAPIN"," Q:'$L(NAME)")
|
|---|
| 29 | D IN^OCXOCMP4("SWAPIN"," K ARRAY")
|
|---|
| 30 | D IN^OCXOCMP4("SWAPIN"," M ARRAY=^TMP(""OCXSWAP"",$J,NAME)")
|
|---|
| 31 | D IN^OCXOCMP4("SWAPIN"," K ^TMP(""OCXSWAP"",$J,NAME)")
|
|---|
| 32 | ;
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
