source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOCMPH.m@ 767

Last change on this file since 767 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1OCXOCMPH ;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
6BLDDF ;
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 ;
19SWAP ;
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 ;
Note: See TracBrowser for help on using the repository browser.