- VENPCCMH ; IHS/OIT/GIS - GLOBAL MANAGEMENT OF DIAGNOSES AND ICD CODES ;
- ;;2.6;PCC+;;NOV 12, 2007
- ;
- ;
- ;
- N TMP,PIEN,X,CODE,TEXT,Y,T,Z,PATH,FILE,POP,STOP,%,%Y
- S TMP="^TMP(""VEN TABLE"","_$J_")" K @TMP
- W !,"Building master table of ICD codes and diagnoses..."
- ARR S PIEN=0 F S PIEN=$O(^VEN(7.1,PIEN)) Q:'PIEN D ; BUILD THE DATA ARRAY
- . S X=$G(^VEN(7.1,PIEN,0)) I '$L(X) Q
- . S CODE=$P(X,U,2),TEXT=$P(X,U,3)
- . I CODE=""!(TEXT="") Q
- . I $D(@TMP@(CODE)) D Q
- .. S Y=0,STOP=0
- .. F S Y=$O(@TMP@(CODE,Y)) Q:'Y D I STOP=1 Q
- ... S T=@TMP@(CODE,Y)
- ... I T=TEXT S STOP=1
- ... Q
- .. I STOP Q
- .. S Z=$O(@TMP@(CODE,99999),-1)
- .. S @TMP@(CODE,Z+1)=TEXT
- .. Q
- . S @TMP@(CODE,1)=TEXT
- . Q
- LIST ; MAKE A LIST FROM THE ARRAY
- W !,"Get ready to store the ICD information in a file..."
- S DIR(0)="FO^1:8",DIR("A")="Enter the name of the file",DIR("B")="icd_info" K DA
- D ^DIR K DIR ; GET FILE NAME
- I '$L(Y) Q
- I Y?1."^" Q
- S FILE=Y_".txt"
- S PATH=$G(^VEN(7.5,$$CFG^VENPCCU,3))
- W !,"'",FILE,"' will be stored in '",PATH,"' OK"
- S %=1 D YN^DICN I %'=1 Q
- S POP=$$OPN^VENPCCP(PATH,FILE,"W","D FMT^VENPCCMH")
- I POP W !,"Unable to create this file. Sesion terminated..." Q
- W !,"Done!"
- K @TMP
- Q
- ;
- FMT ; FORMAT THE DATA FOR OUTPUT
- N ICD,X,TXT,Y,TAB
- W !!,"ICD",$C(9),"POV",!!
- S ICD="" F S ICD=$O(@TMP@(ICD)) Q:'ICD S X=0 F S X=$O(@TMP@(ICD,X)) Q:'X D
- . S TXT=@TMP@(ICD,X)
- . S Y=ICD_$C(9)_TXT
- . W Y,!
- . Q
- Q
- VENPCCMH ; IHS/OIT/GIS - GLOBAL MANAGEMENT OF DIAGNOSES AND ICD CODES ;
- +1 ;;2.6;PCC+;;NOV 12, 2007
- +2 ;
- +3 ;
- +4 ;
- +5 NEW TMP,PIEN,X,CODE,TEXT,Y,T,Z,PATH,FILE,POP,STOP,%,%Y
- +6 SET TMP="^TMP(""VEN TABLE"","_$JOB_")"
- KILL @TMP
- +7 WRITE !,"Building master table of ICD codes and diagnoses..."
- ARR ; BUILD THE DATA ARRAY
- SET PIEN=0
- FOR
- SET PIEN=$ORDER(^VEN(7.1,PIEN))
- IF 'PIEN
- QUIT
- Begin DoDot:1
- +1 SET X=$GET(^VEN(7.1,PIEN,0))
- IF '$LENGTH(X)
- QUIT
- +2 SET CODE=$PIECE(X,U,2)
- SET TEXT=$PIECE(X,U,3)
- +3 IF CODE=""!(TEXT="")
- QUIT
- +4 IF $DATA(@TMP@(CODE))
- Begin DoDot:2
- +5 SET Y=0
- SET STOP=0
- +6 FOR
- SET Y=$ORDER(@TMP@(CODE,Y))
- IF 'Y
- QUIT
- Begin DoDot:3
- +7 SET T=@TMP@(CODE,Y)
- +8 IF T=TEXT
- SET STOP=1
- +9 QUIT
- End DoDot:3
- IF STOP=1
- QUIT
- +10 IF STOP
- QUIT
- +11 SET Z=$ORDER(@TMP@(CODE,99999),-1)
- +12 SET @TMP@(CODE,Z+1)=TEXT
- +13 QUIT
- End DoDot:2
- QUIT
- +14 SET @TMP@(CODE,1)=TEXT
- +15 QUIT
- End DoDot:1
- LIST ; MAKE A LIST FROM THE ARRAY
- +1 WRITE !,"Get ready to store the ICD information in a file..."
- +2 SET DIR(0)="FO^1:8"
- SET DIR("A")="Enter the name of the file"
- SET DIR("B")="icd_info"
- KILL DA
- +3 ; GET FILE NAME
- DO ^DIR
- KILL DIR
- +4 IF '$LENGTH(Y)
- QUIT
- +5 IF Y?1."^"
- QUIT
- +6 SET FILE=Y_".txt"
- +7 SET PATH=$GET(^VEN(7.5,$$CFG^VENPCCU,3))
- +8 WRITE !,"'",FILE,"' will be stored in '",PATH,"' OK"
- +9 SET %=1
- DO YN^DICN
- IF %'=1
- QUIT
- +10 SET POP=$$OPN^VENPCCP(PATH,FILE,"W","D FMT^VENPCCMH")
- +11 IF POP
- WRITE !,"Unable to create this file. Sesion terminated..."
- QUIT
- +12 WRITE !,"Done!"
- +13 KILL @TMP
- +14 QUIT
- +15 ;
- FMT ; FORMAT THE DATA FOR OUTPUT
- +1 NEW ICD,X,TXT,Y,TAB
- +2 WRITE !!,"ICD",$CHAR(9),"POV",!!
- +3 SET ICD=""
- FOR
- SET ICD=$ORDER(@TMP@(ICD))
- IF 'ICD
- QUIT
- SET X=0
- FOR
- SET X=$ORDER(@TMP@(ICD,X))
- IF 'X
- QUIT
- Begin DoDot:1
- +4 SET TXT=@TMP@(ICD,X)
- +5 SET Y=ICD_$CHAR(9)_TXT
- +6 WRITE Y,!
- +7 QUIT
- End DoDot:1
- +8 QUIT
