source: FOIAVistA/tag/r/ONCOLOGY-ONC/ONCSAPI.m@ 1586

Last change on this file since 1586 was 628, checked in by George Lilly, 16 years ago

initial load of FOIAVistA 6/30/08 version
File size: 5.9 KB
Line 
1ONCSAPI ;Hines OIFO/SG - ONCOLOGY WEB-SERVICE ; 12/7/06 10:37am
2 ;;2.11;ONCOLOGY;**40,47**;Mar 07, 1995;Build 19
3 ;
4 ; ONCSAPI ------------- API DESCRIPTOR
5 ;
6 ; ONCSAPI(
7 ;
8 ; "DEBUG") Debug mode
9 ; 0 Disabled
10 ; 1 Enabled
11 ;
12 ; "MSG", ""
13 ; IEN,
14 ; 0) Error Descriptor
15 ; ^01: Error Code (see MSGLIST^ONCSAPIE)
16 ; ^02: Error Message
17 ; ^03: Label+Offset (optional)
18 ; ^04: Routine (optional)
19 ; 1,i) Error details (text)
20 ; "E",
21 ; Error Code,
22 ; IEN) ""
23 ;
24 ; ^XTMP("ONCSAPI") ---- LOCAL CACHE FOR WEB-SERVICE DATA
25 ;
26 ; ^XTMP("ONCSAPI",
27 ;
28 ; 0) Node descriptor
29 ; ^01: Purge date (FileMan)
30 ; ^02: Create date (FileMan)
31 ; ^03: Description
32 ;
33 ; "EDITS", Metafile Version
34 ; IEN,
35 ; 0) Edit Descriptor
36 ; ^01: Index in the edit set
37 ; ^02: Name
38 ; "D",i) Description
39 ; "H",i) Help
40 ; "ES",
41 ; EditSetName,
42 ; EditIndex) IEN
43 ;
44 ; "SCHEMAS",
45 ; Schema#,
46 ; 0) Schema name
47 ;
48 ; "N",
49 ; Name) Schema#
50 ;
51 ; "SH",
52 ; Site,Hist) Schema#
53 ;
54 ; "TABLES", DLL Version
55 ;
56 ; IEN,
57 ; 0) Table descriptor
58 ; ^01: Number of rows
59 ; ^02: Schema number
60 ; ^03: Table number
61 ; ^04: Table pattern
62 ; ^05: Table title
63 ; ^06: Table subtitle
64 ; Row#,
65 ; 1) Codes
66 ; ^01: Row code
67 ; ^02: Additional code #1
68 ; ^03: Additional code #2
69 ; ^04: ...
70 ; 3,i) Description (text)
71 ;
72 ; "C",
73 ; RowCode) Descriptor
74 ; ^01: Row#
75 ; ^02: Upper boundary (for intervals)
76 ;
77 ; "FN",
78 ; Note#,i) Footnote (text)
79 ; "TN",
80 ; Note#,i) Note (text)
81 ;
82 ; "ST",
83 ; Schema#,
84 ; Table#) IEN
85 ;
86 ; CS TABLE NUMBER ----- TABLE DESCRIPTION
87 ;
88 ; 1 CS Tumor Size
89 ; 2 CS Extension
90 ; 3 CS Size/Ext Eval
91 ; 4 CS Lymph Nodes
92 ; 5 CS Reg Nodes Eval
93 ; 6 Regional Nodes Positive
94 ; 7 Regional Nodes Examined
95 ; 8 CS Mets at DX
96 ; 9 CS Mets Eval
97 ; 10 CS Site-Specific Factor 1
98 ; 11 CS Site-Specific Factor 2
99 ; 12 CS Site-Specific Factor 3
100 ; 13 CS Site-Specific Factor 4
101 ; 14 CS Site-Specific Factor 5
102 ; 15 CS Site-Specific Factor 6
103 ; 16 Histologies
104 ;
105 ; CS ENTRY POINT ------ DESCRIPTION
106 ;
107 ; HELP^ONCSAPI1 Displays the field's valid codes
108 ; INPUT^ONCSAPI1 Checks if the code is valid
109 ;
110 ; $$CALC^ONCSAPI3 Calculates the staging values
111 ;
112 ; $$SCHEMA^ONCSAPIS Returns schema number
113 ;
114 ; $$CODEDESC^ONCSAPIT Loads the CS code description
115 ; $$GETCSTBL^ONCSAPIT Returns table IEN (loads table if necessary)
116 ;
117 ; EDITS ENTRY POINT --- DESCRIPTION
118 ;
119 ; $$RBQEXEC^ONCSED01 Executes the 'Run Batch' EDITS request
120 ; $$RBQPREP^ONCSED01 Starts preparation of the 'Run Batch' request
121 ;
122 ; $$REPORT^ONCSED01 Prints EDITS report generated by the
123 ; $$RBQEXEC^ONCSED01
124 ;
125 ; $$GETEDESC^ONCSED04 Returns the edit description node
126 ; $$GETEDHLP^ONCSED04 Returns the edit help text node
127 ;
128 ; UTILITY ------------- DESCRIPTION
129 ;
130 ; DEMO^ONCSAPI Demonstration entry point
131 ;
132 ; CLEAR^ONCSAPIE Initializes the error stack
133 ; $$DBS^ONCSAPIE Cehcks for FileMan DBS errors
134 ; $$ERROR^ONCSAPIE Generates an error message
135 ; $$MSG^ONCSAPIE Returns the text and type of the message
136 ; PRTERRS^ONCSAPIE Displays the error messages
137 ; STORE^ONCSAPIE Stores the message into the error stack
138 ;
139 ; $$CHKERR^ONCSAPIR Checks for parsing and web-service errors
140 ; HEADER^ONCSAPIR Generates the request header
141 ; $$PARAMS^ONCSAPIR Converts input parameters into XML format
142 ; PUT^ONCSAPIR Adds element/text to the destination buffer
143 ; $$REQUEST^ONCSAPIR Sends the request and gets the response
144 ; TRAILER^ONCSAPIR Generates the request trailer
145 ;
146 ; $$GETCSURL^ONCSAPIU Returns the Oncology web-service URL
147 ; $$PAGE^ONCSAPIU Pauses the output at page end
148 ; $$UPDCSURL^ONCSAPIU Updates the Oncology web-service URL
149 ; WW^ONCSAPIU Wraps the string and prints it
150 ; ZW^ONCSAPIU Emulates and extends the ZWRITE command
151 ;
152 ; $$CHKVER^ONCSAPIV Checks version of the local cache
153 ; $$VERSION^ONCSAPIV Returns versions of web-service components
154 ;
155 ; BEGIN^ONCSNACR Starts the NAACCR record output
156 ; END^ONCSNACR Finishes the NAACCR record output
157 ; WRITE^ONCSNACR Outputs the piece of the NAACCR record
158 ;
159 ; INITIALS ------------ DEVELOPER
160 ;
161 ; SG Sergey Gavrilov
162 ;
163 Q
164 ;
165 ;***** DEMO ENTRY POINT
166DEMO ;
167 N DA,DIR,DIRUT,DTOUT,DUOUT,ONCSAPI,X,Y
168 ;
169 ;--- Debug mode?
170 K DIR S DIR(0)="Y"
171 S DIR("A")="Run in debug mode"
172 S DIR("B")="NO"
173 D ^DIR Q:$D(DIRUT)
174 S:Y ONCSAPI("DEBUG")=1
175 ;
176 ;--- Select and run a demo
177DEMOSEL K DIR S DIR(0)="SO^C:Collaborative Staging;E:EDITS"
178 S DIR("A")="Select a demo"
179 D ^DIR Q:$D(DIRUT)
180 D G DEMOSEL
181 . I Y="C" D DEMO^ONCSAPID(.ONCSAPI) Q ; Collaborative Staging
182 . I Y="E" D DEMO^ONCSEDEM(.ONCSAPI) Q ; EDITS
Note: See TracBrowser for help on using the repository browser.