| 1 | BMXADOX2 ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
|
|---|
| 2 | ;;2.31;BMX;;Jul 25, 2011
|
|---|
| 3 | ; EXMAPLES OF FILEMAN SCHEMA GENERATION
|
|---|
| 4 | ;
|
|---|
| 5 | DISP(OUT) ;
|
|---|
| 6 | D DISP^BMXADOX(OUT)
|
|---|
| 7 | Q
|
|---|
| 8 | ;
|
|---|
| 9 | SCHEMA(NAME) ; GIVEN SCHEMA NAME, RETURN THE IEN
|
|---|
| 10 | N IEN
|
|---|
| 11 | S IEN=$O(^BMXADO("B",NAME,0))
|
|---|
| 12 | Q IEN
|
|---|
| 13 | ;
|
|---|
| 14 | ; ---------------------------------------- LISTS ------------------------------------------
|
|---|
| 15 | ;
|
|---|
| 16 | FIFOLIST N OUT,%,SIEN,NODE,NEXT
|
|---|
| 17 | S NEXT="70470;8"
|
|---|
| 18 | S SIEN=$$SCHEMA("VEN MOJO LIST DE FIFO")
|
|---|
| 19 | D SS^BMXADO(.OUT,SIEN,"","~~~") ; GET ENCOUNTER LIST TO BE PROCESSED BY DATA ENTRY
|
|---|
| 20 | D DISP(OUT) R %:$G(DTIME,60)
|
|---|
| 21 | K ^TMP("BMX ADO",$J)
|
|---|
| 22 | Q
|
|---|
| 23 | ;
|
|---|
| 24 | PROBLIST ; LIST PROBLEMS
|
|---|
| 25 | S SIEN=$$SCHEMA("VEN MOJO DE DX PROBLEM")
|
|---|
| 26 | D SS^BMXADO(.OUT,SIEN,"","AC~5~5~") ; GET PROBLEM LIST TO BE PROCESSED BY DATA ENTRY
|
|---|
| 27 | D DISP(OUT) R %:$G(DTIME,60)
|
|---|
| 28 | K ^TMP("BMX ADO",$J)
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
| 31 | PTLIST ; LIST PATIENT WITH A SPECIFIC LOOKUP VALUE
|
|---|
| 32 | N VAL
|
|---|
| 33 | R "PATIENT: ",VAL:DTIME E Q
|
|---|
| 34 | I '$L(VAL) Q
|
|---|
| 35 | I VAL?1."^" Q
|
|---|
| 36 | S SIEN=$$SCHEMA("VEN MOJO LIST PATIENTS")
|
|---|
| 37 | D SS^BMXADO(.OUT,SIEN,"","~~~~~PT~BMXADOV2~"_VAL)
|
|---|
| 38 | D DISP(OUT) R %:$G(DTIME,60)
|
|---|
| 39 | K ^TMP("BMX ADO",$J)
|
|---|
| 40 | Q
|
|---|
| 41 | ;
|
|---|
| 42 | CLINLIST ; LIST CLINICS
|
|---|
| 43 | S SIEN=$$SCHEMA("VEN MOJO LIST CLINICS")
|
|---|
| 44 | D SS^BMXADO(.OUT,SIEN,"","B~~~") ; GET PROBLEM LIST TO BE PROCESSED BY DATA ENTRY
|
|---|
| 45 | D DISP(OUT) R %:$G(DTIME,60)
|
|---|
| 46 | K ^TMP("BMX ADO",$J)
|
|---|
| 47 | Q
|
|---|
| 48 | ;
|
|---|
| 49 | SEGLIST ; LIST DE SEGMENTS
|
|---|
| 50 | S SIEN=$$SCHEMA("VEN MOJO DE SEGMENT")
|
|---|
| 51 | D SS^BMXADO(.OUT,SIEN,"","~~~") ; GET PROBLEM LIST TO BE PROCESSED BY DATA ENTRY
|
|---|
| 52 | D DISP(OUT) R %:$G(DTIME,60)
|
|---|
| 53 | K ^TMP("BMX ADO",$J)
|
|---|
| 54 | Q
|
|---|
| 55 | ;
|
|---|
| 56 | NOTELIST ; LIST NOTES
|
|---|
| 57 | ;N SIEN
|
|---|
| 58 | ;D NOTELIST^VENPCCTG(.OUT,"70470")
|
|---|
| 59 | ;D DISP(OUT) R %:$G(DTIME,60)
|
|---|
| 60 | ;K ^TMP("BMX ADO",$J)
|
|---|
| 61 | Q
|
|---|
| 62 | ;
|
|---|
| 63 | PRVLIST ; PROVIDER LIST
|
|---|
| 64 | N SIEN,OUT
|
|---|
| 65 | S SIEN=$$SCHEMA("VEN MOJO LIST PROVIDERS")
|
|---|
| 66 | D SS^BMXADO(.OUT,SIEN,"","B~~~5000") ; GET NOTE LIST TO BE PROCESSED BY DATA ENTRY
|
|---|
| 67 | D DISP(OUT) R %:$G(DTIME,60)
|
|---|
| 68 | K ^TMP("BMX ADO",$J)
|
|---|
| 69 | Q
|
|---|
| 70 | ;
|
|---|
| 71 | MLIST ; LIST MEASUREMNTS
|
|---|
| 72 | S SIEN=$$SCHEMA("VEN MOJO LIST MEASUREMENTS")
|
|---|
| 73 | D SS^BMXADO(.OUT,SIEN,"","B~~~") ; GET PROBLEM LIST TO BE PROCESSED BY DATA ENTRY
|
|---|
| 74 | D DISP(OUT) R %:$G(DTIME,60)
|
|---|
| 75 | K ^TMP("BMX ADO",$J)
|
|---|
| 76 | Q
|
|---|
| 77 | ;
|
|---|
| 78 | RXLIST ; A RX LIST FOR A PATIENT
|
|---|
| 79 | N SIEN,OUT
|
|---|
| 80 | S SIEN=$$SCHEMA("VEN MOJO RX LIST")
|
|---|
| 81 | D SS^BMXADO(.OUT,SIEN,"","~~~~~MED~MOJORX~3") ; GET RX LIST
|
|---|
| 82 | D DISP(OUT) R %:$G(DTIME,60)
|
|---|
| 83 | K ^TMP("BMX ADO",$J)
|
|---|
| 84 | Q
|
|---|
| 85 | ;
|
|---|
| 86 | TQLIST ; TABLET QUEUE LIST
|
|---|
| 87 | N SIEN,OUT
|
|---|
| 88 | S SIEN=$$SCHEMA("VEN MOJO LIST TABLET QUEUE")
|
|---|
| 89 | D SS^BMXADO(.OUT,SIEN,"","ATS~~~") ; GET PATIENT LIST
|
|---|
| 90 | D DISP(OUT) R %:$G(DTIME,60)
|
|---|
| 91 | K ^TMP("BMX ADO",$J)
|
|---|
| 92 | Q
|
|---|
| 93 | ;
|
|---|
| 94 | UHCLIST ; LIST HIDDEN COLUMNS
|
|---|
| 95 | N SIEN,OUT
|
|---|
| 96 | ; S SIEN=$$SCHEMA("VEN MOJO DE GFMT UHC")
|
|---|
| 97 | D SS^BMXADO(.OUT,"VEN MOJO DE FMT GRID","","~~~") ; GET RX LIST
|
|---|
| 98 | D DISP(OUT) R %:$G(DTIME,60)
|
|---|
| 99 | K ^TMP("BMX ADO",$J)
|
|---|
| 100 | Q
|
|---|
| 101 | ;
|
|---|
| 102 | GSEGLIST ; LIST GRID PROPERTIES FOR SEGMENTS
|
|---|
| 103 | N SIEN,OUT
|
|---|
| 104 | D SS^BMXADO(.OUT,"VEN MOJO DE GRID FMT","","B~~~") ; GET RX LIST
|
|---|
| 105 | D DISP(OUT) R %:$G(DTIME,60)
|
|---|
| 106 | K ^TMP("BMX ADO",$J)
|
|---|
| 107 | Q
|
|---|
| 108 | ;
|
|---|
| 109 | ICDLIST ; LIST ICD CODE MATCHES
|
|---|
| 110 | ;N NARR,OUT
|
|---|
| 111 | ;W !,"Provider narrative: " R NARR:60 E Q
|
|---|
| 112 | ;I '$L(NARR) Q
|
|---|
| 113 | ;D ICDMATCH^VENPCCTP(.OUT,NARR) W !!
|
|---|
| 114 | ;D DISP(OUT) R %:$G(DTIME,60)
|
|---|
| 115 | ;K ^TMP("BMX ADO",$J)
|
|---|
| 116 | Q
|
|---|
| 117 | ;
|
|---|
| 118 | IMAGE ; LIST SEGMENT IMAGE CONTROL PARAMETERS
|
|---|
| 119 | N SIEN,OUT
|
|---|
| 120 | D SS^BMXADO(.OUT,"VEN MOJO DE SEG IMAGE","1,","~~~") ; GET RX LIST
|
|---|
| 121 | D DISP(OUT) R %:$G(DTIME,60)
|
|---|
| 122 | K ^TMP("BMX ADO",$J)
|
|---|
| 123 | Q
|
|---|
