BMXADOX2 ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
;;2.0;BMX;;FEB 26, 2007
; EXMAPLES OF FILEMAN SCHEMA GENERATION
;
DISP(OUT) ;
D DISP^BMXADOX(OUT)
Q
;
SCHEMA(NAME) ; GIVEN SCHEMA NAME, RETURN THE IEN
N IEN
S IEN=$O(^BMXADO("B",NAME,0))
Q IEN
;
; ---------------------------------------- LISTS ------------------------------------------
;
FIFOLIST N OUT,%,SIEN,NODE,NEXT
S NEXT="70470;8"
S SIEN=$$SCHEMA("VEN MOJO LIST DE FIFO")
D SS^BMXADO(.OUT,SIEN,"","~~~") ; GET ENCOUNTER LIST TO BE PROCESSED BY DATA ENTRY
D DISP(OUT) R %:$G(DTIME,60)
K ^TMP("BMX ADO",$J)
Q
;
PROBLIST ; LIST PROBLEMS
S SIEN=$$SCHEMA("VEN MOJO DE DX PROBLEM")
D SS^BMXADO(.OUT,SIEN,"","AC~5~5~") ; GET PROBLEM LIST TO BE PROCESSED BY DATA ENTRY
D DISP(OUT) R %:$G(DTIME,60)
K ^TMP("BMX ADO",$J)
Q
;
PTLIST ; LIST PATIENT WITH A SPECIFIC LOOKUP VALUE
N VAL
R "PATIENT: ",VAL:DTIME E Q
I '$L(VAL) Q
I VAL?1."^" Q
S SIEN=$$SCHEMA("VEN MOJO LIST PATIENTS")
D SS^BMXADO(.OUT,SIEN,"","~~~~~PT~BMXADOV2~"_VAL)
D DISP(OUT) R %:$G(DTIME,60)
K ^TMP("BMX ADO",$J)
Q
;
CLINLIST ; LIST CLINICS
S SIEN=$$SCHEMA("VEN MOJO LIST CLINICS")
D SS^BMXADO(.OUT,SIEN,"","B~~~") ; GET PROBLEM LIST TO BE PROCESSED BY DATA ENTRY
D DISP(OUT) R %:$G(DTIME,60)
K ^TMP("BMX ADO",$J)
Q
;
SEGLIST ; LIST DE SEGMENTS
S SIEN=$$SCHEMA("VEN MOJO DE SEGMENT")
D SS^BMXADO(.OUT,SIEN,"","~~~") ; GET PROBLEM LIST TO BE PROCESSED BY DATA ENTRY
D DISP(OUT) R %:$G(DTIME,60)
K ^TMP("BMX ADO",$J)
Q
;
NOTELIST ; LIST NOTES
;N SIEN
;D NOTELIST^VENPCCTG(.OUT,"70470")
;D DISP(OUT) R %:$G(DTIME,60)
;K ^TMP("BMX ADO",$J)
Q
;
PRVLIST ; PROVIDER LIST
N SIEN,OUT
S SIEN=$$SCHEMA("VEN MOJO LIST PROVIDERS")
D SS^BMXADO(.OUT,SIEN,"","B~~~5000") ; GET NOTE LIST TO BE PROCESSED BY DATA ENTRY
D DISP(OUT) R %:$G(DTIME,60)
K ^TMP("BMX ADO",$J)
Q
;
MLIST ; LIST MEASUREMNTS
S SIEN=$$SCHEMA("VEN MOJO LIST MEASUREMENTS")
D SS^BMXADO(.OUT,SIEN,"","B~~~") ; GET PROBLEM LIST TO BE PROCESSED BY DATA ENTRY
D DISP(OUT) R %:$G(DTIME,60)
K ^TMP("BMX ADO",$J)
Q
;
RXLIST ; A RX LIST FOR A PATIENT
N SIEN,OUT
S SIEN=$$SCHEMA("VEN MOJO RX LIST")
D SS^BMXADO(.OUT,SIEN,"","~~~~~MED~MOJORX~3") ; GET RX LIST
D DISP(OUT) R %:$G(DTIME,60)
K ^TMP("BMX ADO",$J)
Q
;
TQLIST ; TABLET QUEUE LIST
N SIEN,OUT
S SIEN=$$SCHEMA("VEN MOJO LIST TABLET QUEUE")
D SS^BMXADO(.OUT,SIEN,"","ATS~~~") ; GET PATIENT LIST
D DISP(OUT) R %:$G(DTIME,60)
K ^TMP("BMX ADO",$J)
Q
;
UHCLIST ; LIST HIDDEN COLUMNS
N SIEN,OUT
; S SIEN=$$SCHEMA("VEN MOJO DE GFMT UHC")
D SS^BMXADO(.OUT,"VEN MOJO DE FMT GRID","","~~~") ; GET RX LIST
D DISP(OUT) R %:$G(DTIME,60)
K ^TMP("BMX ADO",$J)
Q
;
GSEGLIST ; LIST GRID PROPERTIES FOR SEGMENTS
N SIEN,OUT
D SS^BMXADO(.OUT,"VEN MOJO DE GRID FMT","","B~~~") ; GET RX LIST
D DISP(OUT) R %:$G(DTIME,60)
K ^TMP("BMX ADO",$J)
Q
;
ICDLIST ; LIST ICD CODE MATCHES
;N NARR,OUT
;W !,"Provider narrative: " R NARR:60 E Q
;I '$L(NARR) Q
;D ICDMATCH^VENPCCTP(.OUT,NARR) W !!
;D DISP(OUT) R %:$G(DTIME,60)
;K ^TMP("BMX ADO",$J)
Q
;
IMAGE ; LIST SEGMENT IMAGE CONTROL PARAMETERS
N SIEN,OUT
D SS^BMXADO(.OUT,"VEN MOJO DE SEG IMAGE","1,","~~~") ; GET RX LIST
D DISP(OUT) R %:$G(DTIME,60)
K ^TMP("BMX ADO",$J)
Q
BMXADOX2 ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
+1 ;;2.0;BMX;;FEB 26, 2007
+2 ; EXMAPLES OF FILEMAN SCHEMA GENERATION
+3 ;
DISP(OUT) ;
+1 DO DISP^BMXADOX(OUT)
+2 QUIT
+3 ;
SCHEMA(NAME) ; GIVEN SCHEMA NAME, RETURN THE IEN
+1 NEW IEN
+2 SET IEN=$ORDER(^BMXADO("B",NAME,0))
+3 QUIT IEN
+4 ;
+5 ; ---------------------------------------- LISTS ------------------------------------------
+6 ;
FIFOLIST NEW OUT,%,SIEN,NODE,NEXT
+1 SET NEXT="70470;8"
+2 SET SIEN=$$SCHEMA("VEN MOJO LIST DE FIFO")
+3 ; GET ENCOUNTER LIST TO BE PROCESSED BY DATA ENTRY
DO SS^BMXADO(.OUT,SIEN,"","~~~")
+4 DO DISP(OUT)
READ %:$GET(DTIME,60)
+5 KILL ^TMP("BMX ADO",$JOB)
+6 QUIT
+7 ;
PROBLIST ; LIST PROBLEMS
+1 SET SIEN=$$SCHEMA("VEN MOJO DE DX PROBLEM")
+2 ; GET PROBLEM LIST TO BE PROCESSED BY DATA ENTRY
DO SS^BMXADO(.OUT,SIEN,"","AC~5~5~")
+3 DO DISP(OUT)
READ %:$GET(DTIME,60)
+4 KILL ^TMP("BMX ADO",$JOB)
+5 QUIT
+6 ;
PTLIST ; LIST PATIENT WITH A SPECIFIC LOOKUP VALUE
+1 NEW VAL
+2 READ "PATIENT: ",VAL:DTIME
IF '$TEST
QUIT
+3 IF '$LENGTH(VAL)
QUIT
+4 IF VAL?1."^"
QUIT
+5 SET SIEN=$$SCHEMA("VEN MOJO LIST PATIENTS")
+6 DO SS^BMXADO(.OUT,SIEN,"","~~~~~PT~BMXADOV2~"_VAL)
+7 DO DISP(OUT)
READ %:$GET(DTIME,60)
+8 KILL ^TMP("BMX ADO",$JOB)
+9 QUIT
+10 ;
CLINLIST ; LIST CLINICS
+1 SET SIEN=$$SCHEMA("VEN MOJO LIST CLINICS")
+2 ; GET PROBLEM LIST TO BE PROCESSED BY DATA ENTRY
DO SS^BMXADO(.OUT,SIEN,"","B~~~")
+3 DO DISP(OUT)
READ %:$GET(DTIME,60)
+4 KILL ^TMP("BMX ADO",$JOB)
+5 QUIT
+6 ;
SEGLIST ; LIST DE SEGMENTS
+1 SET SIEN=$$SCHEMA("VEN MOJO DE SEGMENT")
+2 ; GET PROBLEM LIST TO BE PROCESSED BY DATA ENTRY
DO SS^BMXADO(.OUT,SIEN,"","~~~")
+3 DO DISP(OUT)
READ %:$GET(DTIME,60)
+4 KILL ^TMP("BMX ADO",$JOB)
+5 QUIT
+6 ;
NOTELIST ; LIST NOTES
+1 ;N SIEN
+2 ;D NOTELIST^VENPCCTG(.OUT,"70470")
+3 ;D DISP(OUT) R %:$G(DTIME,60)
+4 ;K ^TMP("BMX ADO",$J)
+5 QUIT
+6 ;
PRVLIST ; PROVIDER LIST
+1 NEW SIEN,OUT
+2 SET SIEN=$$SCHEMA("VEN MOJO LIST PROVIDERS")
+3 ; GET NOTE LIST TO BE PROCESSED BY DATA ENTRY
DO SS^BMXADO(.OUT,SIEN,"","B~~~5000")
+4 DO DISP(OUT)
READ %:$GET(DTIME,60)
+5 KILL ^TMP("BMX ADO",$JOB)
+6 QUIT
+7 ;
MLIST ; LIST MEASUREMNTS
+1 SET SIEN=$$SCHEMA("VEN MOJO LIST MEASUREMENTS")
+2 ; GET PROBLEM LIST TO BE PROCESSED BY DATA ENTRY
DO SS^BMXADO(.OUT,SIEN,"","B~~~")
+3 DO DISP(OUT)
READ %:$GET(DTIME,60)
+4 KILL ^TMP("BMX ADO",$JOB)
+5 QUIT
+6 ;
RXLIST ; A RX LIST FOR A PATIENT
+1 NEW SIEN,OUT
+2 SET SIEN=$$SCHEMA("VEN MOJO RX LIST")
+3 ; GET RX LIST
DO SS^BMXADO(.OUT,SIEN,"","~~~~~MED~MOJORX~3")
+4 DO DISP(OUT)
READ %:$GET(DTIME,60)
+5 KILL ^TMP("BMX ADO",$JOB)
+6 QUIT
+7 ;
TQLIST ; TABLET QUEUE LIST
+1 NEW SIEN,OUT
+2 SET SIEN=$$SCHEMA("VEN MOJO LIST TABLET QUEUE")
+3 ; GET PATIENT LIST
DO SS^BMXADO(.OUT,SIEN,"","ATS~~~")
+4 DO DISP(OUT)
READ %:$GET(DTIME,60)
+5 KILL ^TMP("BMX ADO",$JOB)
+6 QUIT
+7 ;
UHCLIST ; LIST HIDDEN COLUMNS
+1 NEW SIEN,OUT
+2 ; S SIEN=$$SCHEMA("VEN MOJO DE GFMT UHC")
+3 ; GET RX LIST
DO SS^BMXADO(.OUT,"VEN MOJO DE FMT GRID","","~~~")
+4 DO DISP(OUT)
READ %:$GET(DTIME,60)
+5 KILL ^TMP("BMX ADO",$JOB)
+6 QUIT
+7 ;
GSEGLIST ; LIST GRID PROPERTIES FOR SEGMENTS
+1 NEW SIEN,OUT
+2 ; GET RX LIST
DO SS^BMXADO(.OUT,"VEN MOJO DE GRID FMT","","B~~~")
+3 DO DISP(OUT)
READ %:$GET(DTIME,60)
+4 KILL ^TMP("BMX ADO",$JOB)
+5 QUIT
+6 ;
ICDLIST ; LIST ICD CODE MATCHES
+1 ;N NARR,OUT
+2 ;W !,"Provider narrative: " R NARR:60 E Q
+3 ;I '$L(NARR) Q
+4 ;D ICDMATCH^VENPCCTP(.OUT,NARR) W !!
+5 ;D DISP(OUT) R %:$G(DTIME,60)
+6 ;K ^TMP("BMX ADO",$J)
+7 QUIT
+8 ;
IMAGE ; LIST SEGMENT IMAGE CONTROL PARAMETERS
+1 NEW SIEN,OUT
+2 ; GET RX LIST
DO SS^BMXADO(.OUT,"VEN MOJO DE SEG IMAGE","1,","~~~")
+3 DO DISP(OUT)
READ %:$GET(DTIME,60)
+4 KILL ^TMP("BMX ADO",$JOB)
+5 QUIT
