- IBDECLN2 ;ALB/AAS - Clean up Data Qualifiers and Package interfaces ; 23-JUN-97
- ;;3.0;AUTOMATED INFO COLLECTION SYS;**14,36**;APR 24, 1997
- ;
- ; -- This routine contains critical data for Package Interface File
- ; that is used in formatting the data for transmission to scanning
- ;
- ; Format
- ; Line 1, Package Interface Node: File 357.6 (node,piece)
- ; p1: Package Interface Name (0;1)
- ; p2: PCE Interface Node (12;1)
- ; p3: Value Piece (12;2)
- ; p4: Narrative Piece (12;3)
- ; p5: Header Piece (12;4)
- ; p6: Qualifier Piece (12;5)
- ; p7: Quantity Piece (12;6)
- ; Subsequent Lines, for data qualifiers (357.631)
- ; p1: Allowable Qualifier Name (0;1)
- ; p3: Independent Mapping (0;3)
- ; p4: PCE Interface Node (0;4)
- ; p5: Value Piece (0;5)
- ; p7: Header Piece (0;7)
- ; p8: Qualifier Piece (0;8)
- ;
- OUTPUT ;;
- PROC ;;INPUT PROCEDURE CODE (CPT4):PROCEDURE^1^6^7^3^2
- ;;+PRIMARY:;IBD(357.98,^^0
- ;;+SECONDARY:;IBD(357.98,^^0
- ;;~~~
- PROV ;;INPUT PROVIDER:ENCOUNTER^4^^^15
- ;;+PRIMARY:;IBD(357.98,^^0
- ;;+SECONDARY:;IBD(357.98,^^0
- ;;~~~
- PROB ;;GMP INPUT CLINIC COMMON PROBLEMS:DIAGNOSIS/PROBLEM^3^13^14^2
- ;;+PRIMARY:;IBD(357.98,^^1^^^^^2
- ;;+SECONDARY:;IBD(357.98,^^1^^^^^2
- ;;+SERVICE CONNECTED:;IBD(357.98,^^1^^^^^9
- ;;+AGENT ORANGE RELATED:;IBD(357.98,^^1^^^^^10
- ;;+IONIZING RADIATION RELATED:;IBD(357.98,^^1^^^^^11
- ;;+ENVIRONMENTAL CONTAMINANTS RELATED:;IBD(357.98,^^1^^^^^12
- ;;+ADD TO PROBLEM LIST:;IBD(357.98,^^1^^^^^5
- ;;+ACTIVE:;IBD(357.98,^^1^^^^^6
- ;;+INACTIVE:;IBD(357.98,^^1^^^^^6
- ;;+NON-SERVICE CONNECTED:;IBD(357.98,^^1^^^^^9
- ;;~~~
- DIAG ;;INPUT DIAGNOSIS CODE (ICD9):DIAGNOSIS/PROBLEM^1^13^14^2
- ;;+PRIMARY:;IBD(357.98,^^1^^^^^2
- ;;+SECONDARY:;IBD(357.98,^^1^^^^^2
- ;;+SERVICE CONNECTED:;IBD(357.98,^^1^^^^^9
- ;;+ICD-9 DIAGNOSIS CODE:;IBD(359.1,^^0
- ;;+AGENT ORANGE RELATED:;IBD(357.98,^^1^^^^^10
- ;;+IONIZING RADIATION RELATED:;IBD(357.98,^^1^^^^^11
- ;;+ENVIRONMENTAL CONTAMINANTS RELATED:;IBD(357.98,^^1^^^^^12
- ;;+ADD TO PROBLEM LIST:;IBD(357.98,^^1^^^^^5
- ;;+ACTIVE:;IBD(357.98,^^1^^^^^6
- ;;+INACTIVE:;IBD(357.98,^^1^^^^^6
- ;;~~~
- ;;PX INPUT CHECKOUT TIME:ENCOUNTER^14
- ;;+CHECKOUT DATE@TIME:;IBD(359.1,^^0
- ;;+CHECKOUT TIME - DATE ASSUMED;IBD(359.1,^^0
- ;;~~~
- ;;PX INPUT EDUCATION TOPICS:PATIENT ED^1^^^2
- ;;+POOR UNDERSTANDING:;IBD(357.98,^^0
- ;;+FAIR UNDERSTANDING:;IBD(357.98,^^0
- ;;+GOOD UNDERSTANDING:;IBD(357.98,^^0
- ;;+UNDERSTANDING NOT ASSESSED:;IBD(357.98,^^0
- ;;+PATIENT ED REFUSED:;IBD(357.98,^^0
- ;;~~~
- ;;PX INPUT EXAMS:EXAM^1^^^2
- ;;+ABNORMAL RESULT:;IBD(357.98,^^0
- ;;+NORMAL RESULT:;IBD(357.98,^^0
- ;;~~~
- ;;PX INPUT HEALTH FACTORS:HEALTH FACTORS^1^^^2
- ;;+MINIMAL SEVERITY:;IBD(357.98,^^0
- ;;+MODERATE SEVERITY:;IBD(357.98,^^0
- ;;+HEAVY SEVERITY:;IBD(357.98,^^0
- ;;~~~
- ;;PX INPUT IMMUNIZATION:IMMUNIZATION^1^7
- ;;+CONTRAINDICATED:;IBD(357.98,^^1^IMMUNIZATION^1^^^5
- ;;+GIVEN:;IBD(357.98,^^1^IMMUNIZATION^1
- ;;+REFUSED:;IBD(357.98,^^1^IMMUNIZATION^1^^^8
- ;;~~~
- ;;PX INPUT PATIENT ACTIVE PROBLEM:DIAGNOSIS/PROBLEM^4^13^14^2
- ;;+PRIMARY:;IBD(357.98,^^1^^^^^2
- ;;+SECONDARY:;IBD(357.98,^^1^^^^^2
- ;;+SERVICE CONNECTED:;IBD(357.98,^^1^^^^^9
- ;;+AGENT ORANGE RELATED:;IBD(357.98,^^1^^^^^10
- ;;+IONIZING RADIATION RELATED:;IBD(357.98,^^1^^^^^11
- ;;+ENVIRONMENTAL CONTAMINANTS RELATED:;IBD(357.98,^^1^^^^^12
- ;;+ACTIVE:;IBD(357.98,^^1^^^^^6
- ;;+INACTIVE:;IBD(357.98,^^1^^^^^6
- ;;+NON-SERVICE CONNECTED:;IBD(357.98,^^1^^^^^9
- ;;~~~
- ;;PX INPUT SC TREATMENT QUESTIONS:ENCOUNTER
- ;;+YES:;IBD(357.98,^^0
- ;;+NO:;IBD(357.98,^^0
- ;;~~~
- ;;PX INPUT VISIT CLASSIFICATION:ENCOUNTER
- ;;+ENVIRONMENTAL CONTAMINANTS RELATED:;IBD(357.98,^^0
- ;;+SERVICE CONNECTED:;IBD(357.98,^^0
- ;;+AGENT ORANGE RELATED:;IBD(357.98,^^0
- ;;+IONIZING RADIATION RELATED:;IBD(357.98,^^0
- ;;+MILITARY SEXUAL TRAUMA:;IBD(357.98,^^0
- ;;~~~
- ;;PX INPUT SC TREATMENT QUESTION:ENCOUNTER
- ;;+YES:;IBD(357.98,^^0
- ;;+NO:;IBD(357.98,^^0
- ;;~~~
- ;;PX INPUT NO CLASSIFICATIONS:IBD NOCLASSIFICATION
- ;;+NO CLASSIFICATIONS:;IBD(357.98,^^0
- ;;~~~
- ;;PX INPUT SC TREATMENT QUESTION (MST):ENCOUNTER
- ;;+YES:;IBD(357.98,^^0
- ;;+NO:;IBD(357.98,^^0
- ;;~~~
- ;;DGMST INPUT MST CLASSIFICATION:ENCOUNTER
- ;;+YES:;IBD(357.98,^^0
- ;;+NO:;IBD(357.98,^^0
- ;;~~~
- ;;IBD INPUT CANCEL/NOSHOW^IBD-ABORT^1^2^3^4^5
- ;;~~~
- ;;INPUT VISIT TYPE:ENCOUNTER^5
- ;;~~~
- ;;INPUT SC RELATED?:ENCOUNTER^6^^^6
- ;;~~~
- ;;INPUT AO RELATED?:ENCOUNTER^7
- ;;~~~
- ;;INPUT IR RELATED?:ENCOUNTER^8^^^9
- ;;~~~
- ;;INPUT EC RELATED?:ENCOUNTER^^^^9
- ;;~~~
- ;;INPUT PROVIDER INDICATOR:ENCOUNTER^15
- ;;~~~
- ;;PX INPUT ATTENDING PHYSICIAN:ENCOUNTER^16
- ;;~~~
- ;;PX INPUT SKIN TESTS:SKIN TEST^1
- ;;~~~
- ;;PX INPUT VISIT TYPE:ENCOUNTER^5
- ;;~~~
- ;;
- ;;GMP SELECT PATIENT ACTIVE PROBLEMS^PRIMARY^SECONDARY
- ;;DG SELECT ICD-9 DIAGNOSIS CODES^PRIMARY^SECONDARY
- ;;DPT SC HIDDEN TREATMENT QUESTIONS^YES^NO
- ;;SD SELECT PROVIDER^PRIMARY^SECONDARY
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDECLN2 5369 printed Jan 18, 2025@02:40:08 Page 2
- IBDECLN2 ;ALB/AAS - Clean up Data Qualifiers and Package interfaces ; 23-JUN-97
- +1 ;;3.0;AUTOMATED INFO COLLECTION SYS;**14,36**;APR 24, 1997
- +2 ;
- +3 ; -- This routine contains critical data for Package Interface File
- +4 ; that is used in formatting the data for transmission to scanning
- +5 ;
- +6 ; Format
- +7 ; Line 1, Package Interface Node: File 357.6 (node,piece)
- +8 ; p1: Package Interface Name (0;1)
- +9 ; p2: PCE Interface Node (12;1)
- +10 ; p3: Value Piece (12;2)
- +11 ; p4: Narrative Piece (12;3)
- +12 ; p5: Header Piece (12;4)
- +13 ; p6: Qualifier Piece (12;5)
- +14 ; p7: Quantity Piece (12;6)
- +15 ; Subsequent Lines, for data qualifiers (357.631)
- +16 ; p1: Allowable Qualifier Name (0;1)
- +17 ; p3: Independent Mapping (0;3)
- +18 ; p4: PCE Interface Node (0;4)
- +19 ; p5: Value Piece (0;5)
- +20 ; p7: Header Piece (0;7)
- +21 ; p8: Qualifier Piece (0;8)
- +22 ;
- OUTPUT ;;
- PROC ;;INPUT PROCEDURE CODE (CPT4):PROCEDURE^1^6^7^3^2
- +1 ;;+PRIMARY:;IBD(357.98,^^0
- +2 ;;+SECONDARY:;IBD(357.98,^^0
- +3 ;;~~~
- PROV ;;INPUT PROVIDER:ENCOUNTER^4^^^15
- +1 ;;+PRIMARY:;IBD(357.98,^^0
- +2 ;;+SECONDARY:;IBD(357.98,^^0
- +3 ;;~~~
- PROB ;;GMP INPUT CLINIC COMMON PROBLEMS:DIAGNOSIS/PROBLEM^3^13^14^2
- +1 ;;+PRIMARY:;IBD(357.98,^^1^^^^^2
- +2 ;;+SECONDARY:;IBD(357.98,^^1^^^^^2
- +3 ;;+SERVICE CONNECTED:;IBD(357.98,^^1^^^^^9
- +4 ;;+AGENT ORANGE RELATED:;IBD(357.98,^^1^^^^^10
- +5 ;;+IONIZING RADIATION RELATED:;IBD(357.98,^^1^^^^^11
- +6 ;;+ENVIRONMENTAL CONTAMINANTS RELATED:;IBD(357.98,^^1^^^^^12
- +7 ;;+ADD TO PROBLEM LIST:;IBD(357.98,^^1^^^^^5
- +8 ;;+ACTIVE:;IBD(357.98,^^1^^^^^6
- +9 ;;+INACTIVE:;IBD(357.98,^^1^^^^^6
- +10 ;;+NON-SERVICE CONNECTED:;IBD(357.98,^^1^^^^^9
- +11 ;;~~~
- DIAG ;;INPUT DIAGNOSIS CODE (ICD9):DIAGNOSIS/PROBLEM^1^13^14^2
- +1 ;;+PRIMARY:;IBD(357.98,^^1^^^^^2
- +2 ;;+SECONDARY:;IBD(357.98,^^1^^^^^2
- +3 ;;+SERVICE CONNECTED:;IBD(357.98,^^1^^^^^9
- +4 ;;+ICD-9 DIAGNOSIS CODE:;IBD(359.1,^^0
- +5 ;;+AGENT ORANGE RELATED:;IBD(357.98,^^1^^^^^10
- +6 ;;+IONIZING RADIATION RELATED:;IBD(357.98,^^1^^^^^11
- +7 ;;+ENVIRONMENTAL CONTAMINANTS RELATED:;IBD(357.98,^^1^^^^^12
- +8 ;;+ADD TO PROBLEM LIST:;IBD(357.98,^^1^^^^^5
- +9 ;;+ACTIVE:;IBD(357.98,^^1^^^^^6
- +10 ;;+INACTIVE:;IBD(357.98,^^1^^^^^6
- +11 ;;~~~
- +12 ;;PX INPUT CHECKOUT TIME:ENCOUNTER^14
- +13 ;;+CHECKOUT DATE@TIME:;IBD(359.1,^^0
- +14 ;;+CHECKOUT TIME - DATE ASSUMED;IBD(359.1,^^0
- +15 ;;~~~
- +16 ;;PX INPUT EDUCATION TOPICS:PATIENT ED^1^^^2
- +17 ;;+POOR UNDERSTANDING:;IBD(357.98,^^0
- +18 ;;+FAIR UNDERSTANDING:;IBD(357.98,^^0
- +19 ;;+GOOD UNDERSTANDING:;IBD(357.98,^^0
- +20 ;;+UNDERSTANDING NOT ASSESSED:;IBD(357.98,^^0
- +21 ;;+PATIENT ED REFUSED:;IBD(357.98,^^0
- +22 ;;~~~
- +23 ;;PX INPUT EXAMS:EXAM^1^^^2
- +24 ;;+ABNORMAL RESULT:;IBD(357.98,^^0
- +25 ;;+NORMAL RESULT:;IBD(357.98,^^0
- +26 ;;~~~
- +27 ;;PX INPUT HEALTH FACTORS:HEALTH FACTORS^1^^^2
- +28 ;;+MINIMAL SEVERITY:;IBD(357.98,^^0
- +29 ;;+MODERATE SEVERITY:;IBD(357.98,^^0
- +30 ;;+HEAVY SEVERITY:;IBD(357.98,^^0
- +31 ;;~~~
- +32 ;;PX INPUT IMMUNIZATION:IMMUNIZATION^1^7
- +33 ;;+CONTRAINDICATED:;IBD(357.98,^^1^IMMUNIZATION^1^^^5
- +34 ;;+GIVEN:;IBD(357.98,^^1^IMMUNIZATION^1
- +35 ;;+REFUSED:;IBD(357.98,^^1^IMMUNIZATION^1^^^8
- +36 ;;~~~
- +37 ;;PX INPUT PATIENT ACTIVE PROBLEM:DIAGNOSIS/PROBLEM^4^13^14^2
- +38 ;;+PRIMARY:;IBD(357.98,^^1^^^^^2
- +39 ;;+SECONDARY:;IBD(357.98,^^1^^^^^2
- +40 ;;+SERVICE CONNECTED:;IBD(357.98,^^1^^^^^9
- +41 ;;+AGENT ORANGE RELATED:;IBD(357.98,^^1^^^^^10
- +42 ;;+IONIZING RADIATION RELATED:;IBD(357.98,^^1^^^^^11
- +43 ;;+ENVIRONMENTAL CONTAMINANTS RELATED:;IBD(357.98,^^1^^^^^12
- +44 ;;+ACTIVE:;IBD(357.98,^^1^^^^^6
- +45 ;;+INACTIVE:;IBD(357.98,^^1^^^^^6
- +46 ;;+NON-SERVICE CONNECTED:;IBD(357.98,^^1^^^^^9
- +47 ;;~~~
- +48 ;;PX INPUT SC TREATMENT QUESTIONS:ENCOUNTER
- +49 ;;+YES:;IBD(357.98,^^0
- +50 ;;+NO:;IBD(357.98,^^0
- +51 ;;~~~
- +52 ;;PX INPUT VISIT CLASSIFICATION:ENCOUNTER
- +53 ;;+ENVIRONMENTAL CONTAMINANTS RELATED:;IBD(357.98,^^0
- +54 ;;+SERVICE CONNECTED:;IBD(357.98,^^0
- +55 ;;+AGENT ORANGE RELATED:;IBD(357.98,^^0
- +56 ;;+IONIZING RADIATION RELATED:;IBD(357.98,^^0
- +57 ;;+MILITARY SEXUAL TRAUMA:;IBD(357.98,^^0
- +58 ;;~~~
- +59 ;;PX INPUT SC TREATMENT QUESTION:ENCOUNTER
- +60 ;;+YES:;IBD(357.98,^^0
- +61 ;;+NO:;IBD(357.98,^^0
- +62 ;;~~~
- +63 ;;PX INPUT NO CLASSIFICATIONS:IBD NOCLASSIFICATION
- +64 ;;+NO CLASSIFICATIONS:;IBD(357.98,^^0
- +65 ;;~~~
- +66 ;;PX INPUT SC TREATMENT QUESTION (MST):ENCOUNTER
- +67 ;;+YES:;IBD(357.98,^^0
- +68 ;;+NO:;IBD(357.98,^^0
- +69 ;;~~~
- +70 ;;DGMST INPUT MST CLASSIFICATION:ENCOUNTER
- +71 ;;+YES:;IBD(357.98,^^0
- +72 ;;+NO:;IBD(357.98,^^0
- +73 ;;~~~
- +74 ;;IBD INPUT CANCEL/NOSHOW^IBD-ABORT^1^2^3^4^5
- +75 ;;~~~
- +76 ;;INPUT VISIT TYPE:ENCOUNTER^5
- +77 ;;~~~
- +78 ;;INPUT SC RELATED?:ENCOUNTER^6^^^6
- +79 ;;~~~
- +80 ;;INPUT AO RELATED?:ENCOUNTER^7
- +81 ;;~~~
- +82 ;;INPUT IR RELATED?:ENCOUNTER^8^^^9
- +83 ;;~~~
- +84 ;;INPUT EC RELATED?:ENCOUNTER^^^^9
- +85 ;;~~~
- +86 ;;INPUT PROVIDER INDICATOR:ENCOUNTER^15
- +87 ;;~~~
- +88 ;;PX INPUT ATTENDING PHYSICIAN:ENCOUNTER^16
- +89 ;;~~~
- +90 ;;PX INPUT SKIN TESTS:SKIN TEST^1
- +91 ;;~~~
- +92 ;;PX INPUT VISIT TYPE:ENCOUNTER^5
- +93 ;;~~~
- +94 ;;
- +95 ;;GMP SELECT PATIENT ACTIVE PROBLEMS^PRIMARY^SECONDARY
- +96 ;;DG SELECT ICD-9 DIAGNOSIS CODES^PRIMARY^SECONDARY
- +97 ;;DPT SC HIDDEN TREATMENT QUESTIONS^YES^NO
- +98 ;;SD SELECT PROVIDER^PRIMARY^SECONDARY