source: BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADOX2.m@ 822

Last change on this file since 822 was 645, checked in by Sam Habiel, 15 years ago

Initial Import of BMX.net code

File size: 3.2 KB
Line 
1BMXADOX2 ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
2 ;;2.1;BMX;;Jul 26, 2009
3 ; EXMAPLES OF FILEMAN SCHEMA GENERATION
4 ;
5DISP(OUT) ;
6 D DISP^BMXADOX(OUT)
7 Q
8 ;
9SCHEMA(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 ;
16FIFOLIST 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 ;
24PROBLIST ; 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 ;
31PTLIST ; 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 ;
42CLINLIST ; 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 ;
49SEGLIST ; 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 ;
56NOTELIST ; 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 ;
63PRVLIST ; 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 ;
71MLIST ; 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 ;
78RXLIST ; 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 ;
86TQLIST ; 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 ;
94UHCLIST ; 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 ;
102GSEGLIST ; 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 ;
109ICDLIST ; 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 ;
118IMAGE ; 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
Note: See TracBrowser for help on using the repository browser.