| 1 | CRHD ; 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 | ;=================================================================
|
|---|
| 4 | ALG(CRHDROOT,CRHDSTR) ; Allergies
|
|---|
| 5 | D ALG^CRHDUT(.CRHDROOT,.CRHDSTR)
|
|---|
| 6 | Q
|
|---|
| 7 | ACTMED(CRHDROOT,CRHDSTR) ;Active Medications
|
|---|
| 8 | D ACTMED^CRHDUT(.CRHDROOT,.CRHDSTR)
|
|---|
| 9 | Q
|
|---|
| 10 | CONSULT(CRHDROOT,CRHDSTR) ;consults orders - call from cprs
|
|---|
| 11 | D CONSULT^CRHDUT(.CRHDROOT,.CRHDSTR)
|
|---|
| 12 | Q
|
|---|
| 13 | IMAGING(CRHDROOT,CRHDSTR) ;Radiology orders - call from cprs
|
|---|
| 14 | D IMAGING^CRHDUT(.CRHDROOT,.CRHDSTR)
|
|---|
| 15 | Q
|
|---|
| 16 | LABS(CRHDROOT,CRHDSTR) ;LABS orders - call from cprs
|
|---|
| 17 | D LABS^CRHDUT(.CRHDROOT,.CRHDSTR)
|
|---|
| 18 | Q
|
|---|
| 19 | PROC(CRHDROOT,CRHDSTR) ;Procedures orders - call from cprs
|
|---|
| 20 | D PROC^CRHDUT(.CRHDROOT,.CRHDSTR)
|
|---|
| 21 | Q
|
|---|
| 22 | PROB(CRHDROOT,CRHDSTR) ;DFN,NUM,HDR) ;
|
|---|
| 23 | D PROB^CRHDUT(.CRHDROOT,.CRHDSTR)
|
|---|
| 24 | Q
|
|---|
| 25 | RECENTLR(ROOT,DFN,NUM,HDR) ;
|
|---|
| 26 | D RECNTLAB^CRHDUT(.CRHDROOT,.CRHDSTR)
|
|---|
| 27 | Q
|
|---|
| 28 | PATDEMO(CRHDROOT,CRHDSTR) ;GET PATIENTS DEMOGRAPHICS
|
|---|
| 29 | D PATDEMO^CRHDUT2(.CRHDROOT,.CRHDSTR)
|
|---|
| 30 | Q
|
|---|
| 31 | CODESTS(CRHDROOT,CRHDSTR) ; GET CODE STATUS
|
|---|
| 32 | D CODESTS^CRHD2(.CRHDROOT,.CRHDSTR)
|
|---|
| 33 | Q
|
|---|
