source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/VAFCLAU.m@ 724

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

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1VAFCLAU ;BHAM/DRI-LIST MANAGER ROUTINE FOR MPI/PD VAFC EXCPT LOCAL AUDIT IN PDR ;3/14/02
2 ;;5.3;Registration;**477**;Aug 13, 1993
3EN ;main entry point for VAFC EXCPT AUDIT LOCAL
4 D EN^VALM("VAFC EXCPT LOCAL AUDIT")
5 Q
6HDR ; header code
7 S VALMHDR(1)="MPI/PD PATIENT AUDIT DATA"
8 S VALMHDR(2)=""
9 Q
10INIT ;
11 K @VALMAR ;K ^TMP("VAFCLAU",$J)
12 I '$D(DFN) G EXIT
13 I '$D(^TMP("VAFCRAUD",$J)) G EXIT
14 S LIN=1,X=0,STR="",TXT=""
15 F S X=$O(^TMP("VAFCRAUD",$J,X)) Q:'X D
16 . S TXT=^TMP("VAFCRAUD",$J,X)
17 . I $E(TXT,1,12)'="Enter RETURN" D
18 .. S STR=$$SETSTR^VALM1(TXT,STR,2,78)
19 .. D ADDTMP
20 S VALMCNT=LIN-1
21 Q
22ADDTMP ;
23 S ^TMP("VAFCLAU",$J,LIN,0)=STR
24 S ^TMP("VAFCLAU",$J,"IDX",LIN,LIN)=""
25 S LIN=LIN+1,STR=""
26 Q
27RSEND ;Send remote AUDIT Query
28 S VALMBCK=""
29 D FULL^VALM1
30 D SEND^VAFCRAUD(ICN,VAFCBDT,VAFCEDT)
31 D PAUSE^VALM1
32 D INIT
33 S VALMBCK="R"
34 Q
35RCHK ;Check remote AUDIT Query
36 S VALMBCK=""
37 D FULL^VALM1
38 D CHKSTAT^VAFCRAUD(ICN)
39 D PAUSE^VALM1
40 D INIT
41 S VALMBCK="R"
42 Q
43RDISP ;Display remote AUDIT Query
44 S VALMBCK=""
45 D FULL^VALM1
46 W !!,"Display data returned from remote patient audit queries."
47 S TFL="",L="",Y="",STATUS=""
48 I '$D(^XTMP("VAFCRAUD"_ICN)) W !!,"No remote query sent for this patient. " G QRD
49 D GETTFL^VAFCRAUD(ICN,.TFL)
50 W !!,"-> For Patient ",$P($G(^DPT(DFN,0)),"^",1),!
51 I $D(TFL(0)) D
52 . S X=0 F S X=$O(TFL(X)) Q:'X I '$D(^XTMP("VAFCRAUD"_ICN,X)) K TFL(X)
53 D SELTF^VAFCRAUD
54 I '$D(TFARR) W !,"No remote query sent for this patient." G QRD
55 I ((Y="")!(Y="^")) G QRD
56 D PAUSE^VALM1
57 D EN^VAFCRAU(ICN)
58QRD D PAUSE^VALM1
59 D INIT
60 S VALMBCK="R"
61 Q
62HELP ;
63 S X="?" D DISP^XQORM1 W !!
64 Q
65EXIT ;
66 S VALMBCK=""
67 K ^TMP("VAFCLAU",$J),LIN,X,STR,TXT,Y,STATUS,TFL,TFARR,L
68 S VALMBCK="R"
69 Q
Note: See TracBrowser for help on using the repository browser.