source: FOIAVistA/tag/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDECLN2.m@ 636

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

initial load of FOIAVistA 6/30/08 version
File size: 5.1 KB
Line 
1IBDECLN2 ;ALB/AAS - Clean up Data Qualifiers and Package interfaces ; 23-JUN-97
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;**14,36**;APR 24, 1997
3 ;
4 ; -- This routine contains critical data for Package Interface File
5 ; that is used in formatting the data for transmission to scanning
6 ;
7 ; Format
8 ; Line 1, Package Interface Node: File 357.6 (node,piece)
9 ; p1: Package Interface Name (0;1)
10 ; p2: PCE Interface Node (12;1)
11 ; p3: Value Piece (12;2)
12 ; p4: Narrative Piece (12;3)
13 ; p5: Header Piece (12;4)
14 ; p6: Qualifier Piece (12;5)
15 ; p7: Quantity Piece (12;6)
16 ; Subsequent Lines, for data qualifiers (357.631)
17 ; p1: Allowable Qualifier Name (0;1)
18 ; p3: Independent Mapping (0;3)
19 ; p4: PCE Interface Node (0;4)
20 ; p5: Value Piece (0;5)
21 ; p7: Header Piece (0;7)
22 ; p8: Qualifier Piece (0;8)
23 ;
24OUTPUT ;;
25PROC ;;INPUT PROCEDURE CODE (CPT4):PROCEDURE^1^6^7^3^2
26 ;;+PRIMARY:;IBD(357.98,^^0
27 ;;+SECONDARY:;IBD(357.98,^^0
28 ;;~~~
29PROV ;;INPUT PROVIDER:ENCOUNTER^4^^^15
30 ;;+PRIMARY:;IBD(357.98,^^0
31 ;;+SECONDARY:;IBD(357.98,^^0
32 ;;~~~
33PROB ;;GMP INPUT CLINIC COMMON PROBLEMS:DIAGNOSIS/PROBLEM^3^13^14^2
34 ;;+PRIMARY:;IBD(357.98,^^1^^^^^2
35 ;;+SECONDARY:;IBD(357.98,^^1^^^^^2
36 ;;+SERVICE CONNECTED:;IBD(357.98,^^1^^^^^9
37 ;;+AGENT ORANGE RELATED:;IBD(357.98,^^1^^^^^10
38 ;;+IONIZING RADIATION RELATED:;IBD(357.98,^^1^^^^^11
39 ;;+ENVIRONMENTAL CONTAMINANTS RELATED:;IBD(357.98,^^1^^^^^12
40 ;;+ADD TO PROBLEM LIST:;IBD(357.98,^^1^^^^^5
41 ;;+ACTIVE:;IBD(357.98,^^1^^^^^6
42 ;;+INACTIVE:;IBD(357.98,^^1^^^^^6
43 ;;+NON-SERVICE CONNECTED:;IBD(357.98,^^1^^^^^9
44 ;;~~~
45DIAG ;;INPUT DIAGNOSIS CODE (ICD9):DIAGNOSIS/PROBLEM^1^13^14^2
46 ;;+PRIMARY:;IBD(357.98,^^1^^^^^2
47 ;;+SECONDARY:;IBD(357.98,^^1^^^^^2
48 ;;+SERVICE CONNECTED:;IBD(357.98,^^1^^^^^9
49 ;;+ICD-9 DIAGNOSIS CODE:;IBD(359.1,^^0
50 ;;+AGENT ORANGE RELATED:;IBD(357.98,^^1^^^^^10
51 ;;+IONIZING RADIATION RELATED:;IBD(357.98,^^1^^^^^11
52 ;;+ENVIRONMENTAL CONTAMINANTS RELATED:;IBD(357.98,^^1^^^^^12
53 ;;+ADD TO PROBLEM LIST:;IBD(357.98,^^1^^^^^5
54 ;;+ACTIVE:;IBD(357.98,^^1^^^^^6
55 ;;+INACTIVE:;IBD(357.98,^^1^^^^^6
56 ;;~~~
57 ;;PX INPUT CHECKOUT TIME:ENCOUNTER^14
58 ;;+CHECKOUT DATE@TIME:;IBD(359.1,^^0
59 ;;+CHECKOUT TIME - DATE ASSUMED;IBD(359.1,^^0
60 ;;~~~
61 ;;PX INPUT EDUCATION TOPICS:PATIENT ED^1^^^2
62 ;;+POOR UNDERSTANDING:;IBD(357.98,^^0
63 ;;+FAIR UNDERSTANDING:;IBD(357.98,^^0
64 ;;+GOOD UNDERSTANDING:;IBD(357.98,^^0
65 ;;+UNDERSTANDING NOT ASSESSED:;IBD(357.98,^^0
66 ;;+PATIENT ED REFUSED:;IBD(357.98,^^0
67 ;;~~~
68 ;;PX INPUT EXAMS:EXAM^1^^^2
69 ;;+ABNORMAL RESULT:;IBD(357.98,^^0
70 ;;+NORMAL RESULT:;IBD(357.98,^^0
71 ;;~~~
72 ;;PX INPUT HEALTH FACTORS:HEALTH FACTORS^1^^^2
73 ;;+MINIMAL SEVERITY:;IBD(357.98,^^0
74 ;;+MODERATE SEVERITY:;IBD(357.98,^^0
75 ;;+HEAVY SEVERITY:;IBD(357.98,^^0
76 ;;~~~
77 ;;PX INPUT IMMUNIZATION:IMMUNIZATION^1^7
78 ;;+CONTRAINDICATED:;IBD(357.98,^^1^IMMUNIZATION^1^^^5
79 ;;+GIVEN:;IBD(357.98,^^1^IMMUNIZATION^1
80 ;;+REFUSED:;IBD(357.98,^^1^IMMUNIZATION^1^^^8
81 ;;~~~
82 ;;PX INPUT PATIENT ACTIVE PROBLEM:DIAGNOSIS/PROBLEM^4^13^14^2
83 ;;+PRIMARY:;IBD(357.98,^^1^^^^^2
84 ;;+SECONDARY:;IBD(357.98,^^1^^^^^2
85 ;;+SERVICE CONNECTED:;IBD(357.98,^^1^^^^^9
86 ;;+AGENT ORANGE RELATED:;IBD(357.98,^^1^^^^^10
87 ;;+IONIZING RADIATION RELATED:;IBD(357.98,^^1^^^^^11
88 ;;+ENVIRONMENTAL CONTAMINANTS RELATED:;IBD(357.98,^^1^^^^^12
89 ;;+ACTIVE:;IBD(357.98,^^1^^^^^6
90 ;;+INACTIVE:;IBD(357.98,^^1^^^^^6
91 ;;+NON-SERVICE CONNECTED:;IBD(357.98,^^1^^^^^9
92 ;;~~~
93 ;;PX INPUT SC TREATMENT QUESTIONS:ENCOUNTER
94 ;;+YES:;IBD(357.98,^^0
95 ;;+NO:;IBD(357.98,^^0
96 ;;~~~
97 ;;PX INPUT VISIT CLASSIFICATION:ENCOUNTER
98 ;;+ENVIRONMENTAL CONTAMINANTS RELATED:;IBD(357.98,^^0
99 ;;+SERVICE CONNECTED:;IBD(357.98,^^0
100 ;;+AGENT ORANGE RELATED:;IBD(357.98,^^0
101 ;;+IONIZING RADIATION RELATED:;IBD(357.98,^^0
102 ;;+MILITARY SEXUAL TRAUMA:;IBD(357.98,^^0
103 ;;~~~
104 ;;PX INPUT SC TREATMENT QUESTION:ENCOUNTER
105 ;;+YES:;IBD(357.98,^^0
106 ;;+NO:;IBD(357.98,^^0
107 ;;~~~
108 ;;PX INPUT NO CLASSIFICATIONS:IBD NOCLASSIFICATION
109 ;;+NO CLASSIFICATIONS:;IBD(357.98,^^0
110 ;;~~~
111 ;;PX INPUT SC TREATMENT QUESTION (MST):ENCOUNTER
112 ;;+YES:;IBD(357.98,^^0
113 ;;+NO:;IBD(357.98,^^0
114 ;;~~~
115 ;;DGMST INPUT MST CLASSIFICATION:ENCOUNTER
116 ;;+YES:;IBD(357.98,^^0
117 ;;+NO:;IBD(357.98,^^0
118 ;;~~~
119 ;;IBD INPUT CANCEL/NOSHOW^IBD-ABORT^1^2^3^4^5
120 ;;~~~
121 ;;INPUT VISIT TYPE:ENCOUNTER^5
122 ;;~~~
123 ;;INPUT SC RELATED?:ENCOUNTER^6^^^6
124 ;;~~~
125 ;;INPUT AO RELATED?:ENCOUNTER^7
126 ;;~~~
127 ;;INPUT IR RELATED?:ENCOUNTER^8^^^9
128 ;;~~~
129 ;;INPUT EC RELATED?:ENCOUNTER^^^^9
130 ;;~~~
131 ;;INPUT PROVIDER INDICATOR:ENCOUNTER^15
132 ;;~~~
133 ;;PX INPUT ATTENDING PHYSICIAN:ENCOUNTER^16
134 ;;~~~
135 ;;PX INPUT SKIN TESTS:SKIN TEST^1
136 ;;~~~
137 ;;PX INPUT VISIT TYPE:ENCOUNTER^5
138 ;;~~~
139 ;;
140 ;;GMP SELECT PATIENT ACTIVE PROBLEMS^PRIMARY^SECONDARY
141 ;;DG SELECT ICD-9 DIAGNOSIS CODES^PRIMARY^SECONDARY
142 ;;DPT SC HIDDEN TREATMENT QUESTIONS^YES^NO
143 ;;SD SELECT PROVIDER^PRIMARY^SECONDARY
Note: See TracBrowser for help on using the repository browser.