RORX000 ;HCIOFO/SG - DUMMY REPORT ; 9/29/03 3:51pm
;;1.5;CLINICAL CASE REGISTRIES;**30,39**;Feb 17, 2006;Build 4
;
;ROR*1.5*30 OCT 2016 M FERRARESE Changing the dispay for "Sex" to "Birth Sex"
;ROR*1.5*39 JUL 2021 M FERRARESE Setting SSN and LAST4 to zeros
;
Q
;
;*****
BIGDUMMY(RORTSK) ;
N BODY,FLT,IEN,IENS,NAME,NODE,PARAMS,PATIENT,REPORT,RORBUF,RORMSG,TMP
;---
S REPORT=$$ADDVAL^RORTSK11(RORTSK,"REPORT")
;--- Dump the report parameters
S BODY=$$ADDVAL^RORTSK11(RORTSK,"PARAMETERS",,REPORT)
S NODE=$NA(RORTSK("PARAMS")),FLT=$P(NODE,")")_","
F S NODE=$Q(@NODE) Q:'(NODE[FLT) D
. S TMP=$$ADDVAL^RORTSK11(RORTSK,"PARAMETER",NODE_" = "_@NODE,BODY)
;--- List of patients
S BODY=$$ADDVAL^RORTSK11(RORTSK,"PATIENTS",,REPORT)
S NAME=""
F S NAME=$O(^DPT("B",NAME)) Q:NAME="" D
. S IEN=0
. F S IEN=$O(^DPT("B",NAME,IEN)) Q:IEN'>0 D
. . S IENS=IEN_"," K RORBUF
. . D GETS^DIQ(2,IENS,".01;.02;.03;.06;.09;","E","RORBUF","RORMSG")
. . S PATIENT=$$ADDVAL^RORTSK11(RORTSK,"PATIENT",,BODY)
. . S TMP=$G(RORBUF(2,IENS,.01,"E"))
. . D ADDVAL^RORTSK11(RORTSK,"NAME",TMP,PATIENT)
. . S TMP=$G(RORBUF(2,IENS,.02,"E"))
. . D ADDVAL^RORTSK11(RORTSK,"BIRTHSEX",TMP,PATIENT)
. . S TMP=$G(RORBUF(2,IENS,.03,"E"))
. . D ADDVAL^RORTSK11(RORTSK,"DOB",TMP,PATIENT)
. . S TMP=$G(RORBUF(2,IENS,.06,"E"))
. . D ADDVAL^RORTSK11(RORTSK,"RACE",TMP,PATIENT)
. . S TMP=$G(RORBUF(2,IENS,.09,"E"))
. . D ADDVAL^RORTSK11(RORTSK,"SSN",TMP,PATIENT)
Q 0
;
;*****
DUMMY(RORTSK) ;
N FLT,NODE,PARAMS,REPORT,TMP
;---
S REPORT=$$ADDVAL^RORTSK11(RORTSK,"REPORT")
S PARAMS=$$ADDVAL^RORTSK11(RORTSK,"PARAMETERS",,REPORT)
;--- Dump the report parameters
S NODE=$NA(RORTSK("PARAMS")),FLT=$P(NODE,")")_","
F S NODE=$Q(@NODE) Q:'(NODE[FLT) D
. S TMP=$$ADDVAL^RORTSK11(RORTSK,"PARAMETER",NODE_" = "_@NODE,PARAMS)
Q 0
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRORX000 1886 printed Dec 13, 2024@01:44:15 Page 2
RORX000 ;HCIOFO/SG - DUMMY REPORT ; 9/29/03 3:51pm
+1 ;;1.5;CLINICAL CASE REGISTRIES;**30,39**;Feb 17, 2006;Build 4
+2 ;
+3 ;ROR*1.5*30 OCT 2016 M FERRARESE Changing the dispay for "Sex" to "Birth Sex"
+4 ;ROR*1.5*39 JUL 2021 M FERRARESE Setting SSN and LAST4 to zeros
+5 ;
+6 QUIT
+7 ;
+8 ;*****
BIGDUMMY(RORTSK) ;
+1 NEW BODY,FLT,IEN,IENS,NAME,NODE,PARAMS,PATIENT,REPORT,RORBUF,RORMSG,TMP
+2 ;---
+3 SET REPORT=$$ADDVAL^RORTSK11(RORTSK,"REPORT")
+4 ;--- Dump the report parameters
+5 SET BODY=$$ADDVAL^RORTSK11(RORTSK,"PARAMETERS",,REPORT)
+6 SET NODE=$NAME(RORTSK("PARAMS"))
SET FLT=$PIECE(NODE,")")_","
+7 FOR
SET NODE=$QUERY(@NODE)
if '(NODE[FLT)
QUIT
Begin DoDot:1
+8 SET TMP=$$ADDVAL^RORTSK11(RORTSK,"PARAMETER",NODE_" = "_@NODE,BODY)
End DoDot:1
+9 ;--- List of patients
+10 SET BODY=$$ADDVAL^RORTSK11(RORTSK,"PATIENTS",,REPORT)
+11 SET NAME=""
+12 FOR
SET NAME=$ORDER(^DPT("B",NAME))
if NAME=""
QUIT
Begin DoDot:1
+13 SET IEN=0
+14 FOR
SET IEN=$ORDER(^DPT("B",NAME,IEN))
if IEN'>0
QUIT
Begin DoDot:2
+15 SET IENS=IEN_","
KILL RORBUF
+16 DO GETS^DIQ(2,IENS,".01;.02;.03;.06;.09;","E","RORBUF","RORMSG")
+17 SET PATIENT=$$ADDVAL^RORTSK11(RORTSK,"PATIENT",,BODY)
+18 SET TMP=$GET(RORBUF(2,IENS,.01,"E"))
+19 DO ADDVAL^RORTSK11(RORTSK,"NAME",TMP,PATIENT)
+20 SET TMP=$GET(RORBUF(2,IENS,.02,"E"))
+21 DO ADDVAL^RORTSK11(RORTSK,"BIRTHSEX",TMP,PATIENT)
+22 SET TMP=$GET(RORBUF(2,IENS,.03,"E"))
+23 DO ADDVAL^RORTSK11(RORTSK,"DOB",TMP,PATIENT)
+24 SET TMP=$GET(RORBUF(2,IENS,.06,"E"))
+25 DO ADDVAL^RORTSK11(RORTSK,"RACE",TMP,PATIENT)
+26 SET TMP=$GET(RORBUF(2,IENS,.09,"E"))
+27 DO ADDVAL^RORTSK11(RORTSK,"SSN",TMP,PATIENT)
End DoDot:2
End DoDot:1
+28 QUIT 0
+29 ;
+30 ;*****
DUMMY(RORTSK) ;
+1 NEW FLT,NODE,PARAMS,REPORT,TMP
+2 ;---
+3 SET REPORT=$$ADDVAL^RORTSK11(RORTSK,"REPORT")
+4 SET PARAMS=$$ADDVAL^RORTSK11(RORTSK,"PARAMETERS",,REPORT)
+5 ;--- Dump the report parameters
+6 SET NODE=$NAME(RORTSK("PARAMS"))
SET FLT=$PIECE(NODE,")")_","
+7 FOR
SET NODE=$QUERY(@NODE)
if '(NODE[FLT)
QUIT
Begin DoDot:1
+8 SET TMP=$$ADDVAL^RORTSK11(RORTSK,"PARAMETER",NODE_" = "_@NODE,PARAMS)
End DoDot:1
+9 QUIT 0
