source: FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/CRHD.m@ 784

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

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1CRHD ; CAIRO/CLC - GET THE PATIENT DATA ELEMENTS FOR CHANGEOVER LIST ;04-Mar-2008 16:00;CLC
2 ;;1.0;CRHD;****;Jan 28, 2008;Build 19
3 ;=================================================================
4ALG(CRHDROOT,CRHDSTR) ; Allergies
5 D ALG^CRHDUT(.CRHDROOT,.CRHDSTR)
6 Q
7ACTMED(CRHDROOT,CRHDSTR) ;Active Medications
8 D ACTMED^CRHDUT(.CRHDROOT,.CRHDSTR)
9 Q
10CONSULT(CRHDROOT,CRHDSTR) ;consults orders - call from cprs
11 D CONSULT^CRHDUT(.CRHDROOT,.CRHDSTR)
12 Q
13IMAGING(CRHDROOT,CRHDSTR) ;Radiology orders - call from cprs
14 D IMAGING^CRHDUT(.CRHDROOT,.CRHDSTR)
15 Q
16LABS(CRHDROOT,CRHDSTR) ;LABS orders - call from cprs
17 D LABS^CRHDUT(.CRHDROOT,.CRHDSTR)
18 Q
19PROC(CRHDROOT,CRHDSTR) ;Procedures orders - call from cprs
20 D PROC^CRHDUT(.CRHDROOT,.CRHDSTR)
21 Q
22PROB(CRHDROOT,CRHDSTR) ;DFN,NUM,HDR) ;
23 D PROB^CRHDUT(.CRHDROOT,.CRHDSTR)
24 Q
25RECENTLR(ROOT,DFN,NUM,HDR) ;
26 D RECNTLAB^CRHDUT(.CRHDROOT,.CRHDSTR)
27 Q
28PATDEMO(CRHDROOT,CRHDSTR) ;GET PATIENTS DEMOGRAPHICS
29 D PATDEMO^CRHDUT2(.CRHDROOT,.CRHDSTR)
30 Q
31CODESTS(CRHDROOT,CRHDSTR) ; GET CODE STATUS
32 D CODESTS^CRHD2(.CRHDROOT,.CRHDSTR)
33 Q
Note: See TracBrowser for help on using the repository browser.