- 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 Jan 18, 2025@02:45:28 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