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 Sep 23, 2025@19:14:53 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
