source: WorldVistAEHR/trunk/r/CLINICAL_CASE_REGISTRIES-ROR/RORX000.m@ 1800

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

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1RORX000 ;HCIOFO/SG - DUMMY REPORT ; 9/29/03 3:51pm
2 ;;1.5;CLINICAL CASE REGISTRIES;;Feb 17, 2006
3 ;
4 Q
5 ;
6 ;*****
7BIGDUMMY(RORTSK) ;
8 N BODY,FLT,IEN,IENS,NAME,NODE,PARAMS,PATIENT,REPORT,RORBUF,RORMSG,TMP
9 ;---
10 S REPORT=$$ADDVAL^RORTSK11(RORTSK,"REPORT")
11 ;--- Dump the report parameters
12 S BODY=$$ADDVAL^RORTSK11(RORTSK,"PARAMETERS",,REPORT)
13 S NODE=$NA(RORTSK("PARAMS")),FLT=$P(NODE,")")_","
14 F S NODE=$Q(@NODE) Q:'(NODE[FLT) D
15 . S TMP=$$ADDVAL^RORTSK11(RORTSK,"PARAMETER",NODE_" = "_@NODE,BODY)
16 ;--- List of patients
17 S BODY=$$ADDVAL^RORTSK11(RORTSK,"PATIENTS",,REPORT)
18 S NAME=""
19 F S NAME=$O(^DPT("B",NAME)) Q:NAME="" D
20 . S IEN=0
21 . F S IEN=$O(^DPT("B",NAME,IEN)) Q:IEN'>0 D
22 . . S IENS=IEN_"," K RORBUF
23 . . D GETS^DIQ(2,IENS,".01;.02;.03;.06;.09;","E","RORBUF","RORMSG")
24 . . S PATIENT=$$ADDVAL^RORTSK11(RORTSK,"PATIENT",,BODY)
25 . . S TMP=$G(RORBUF(2,IENS,.01,"E"))
26 . . D ADDVAL^RORTSK11(RORTSK,"NAME",TMP,PATIENT)
27 . . S TMP=$G(RORBUF(2,IENS,.02,"E"))
28 . . D ADDVAL^RORTSK11(RORTSK,"SEX",TMP,PATIENT)
29 . . S TMP=$G(RORBUF(2,IENS,.03,"E"))
30 . . D ADDVAL^RORTSK11(RORTSK,"DOB",TMP,PATIENT)
31 . . S TMP=$G(RORBUF(2,IENS,.06,"E"))
32 . . D ADDVAL^RORTSK11(RORTSK,"RACE",TMP,PATIENT)
33 . . S TMP=$G(RORBUF(2,IENS,.09,"E"))
34 . . D ADDVAL^RORTSK11(RORTSK,"SSN",TMP,PATIENT)
35 Q 0
36 ;
37 ;*****
38DUMMY(RORTSK) ;
39 N FLT,NODE,PARAMS,REPORT,TMP
40 ;---
41 S REPORT=$$ADDVAL^RORTSK11(RORTSK,"REPORT")
42 S PARAMS=$$ADDVAL^RORTSK11(RORTSK,"PARAMETERS",,REPORT)
43 ;--- Dump the report parameters
44 S NODE=$NA(RORTSK("PARAMS")),FLT=$P(NODE,")")_","
45 F S NODE=$Q(@NODE) Q:'(NODE[FLT) D
46 . S TMP=$$ADDVAL^RORTSK11(RORTSK,"PARAMETER",NODE_" = "_@NODE,PARAMS)
47 Q 0
Note: See TracBrowser for help on using the repository browser.