BMXADOX2.m

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