DG53850A ;ALB/JRC - ICD-10 PRE-INIT ;3/12/11 7:21am
;;5.3;Registration;**850**;Aug 13, 1993;Build 171
;
Q
;
EN ;Delete updated fields to remove screens.
N DGFIELD,X,Y,DA,DIK,DGDUZSV,DGPATCH,DGIDX
I $G(DUZ)="" W !,"Your DUZ is not defined. It must be defined to run this routine." Q
S DGDUZSV=DUZ(0),DUZ(0)="@"
;
;
D EN^DDIOL("Cleaning up PTF file DD for PROCEDURE CODES")
F DGFIELD=45.01:.01:45.05 D
. S DIK="^DD(45,",DA=DGFIELD,DA(1)=45
. D ^DIK
;
D EN^DDIOL("Cleaning up PTF file DD for DIAGNOSIS CODES")
F DGFIELD=79,79.16,79.17,79.18,79.19,79.201,79.21,79.22,79.23,79.24,79.241,79.242,79.243,79.244 D
. S DIK="^DD(45,",DA=DGFIELD,DA(1)=45
. D ^DIK
;
;W !!,"CPT DIAGNOSIS"
F DGFIELD=.04 D
. S DIK="^DD(45.06,",DA=DGFIELD,DA(1)=45.06 D ^DIK
. D ^DIK
;
;W !!,"601 MOVEMENT"
F DGFIELD=4,5,6,7,8 D
. S DIK="^DD(45.05,",DA=DGFIELD,DA(1)=45.05
. D ^DIK
;
;W !!,"401 MOVEMENT"
F DGFIELD=8,9,10,11,12 D
. S DIK="^DD(45.01,",DA=DGFIELD,DA(1)=45.01
. D ^DIK
;
;W !!,"501 MOVEMENT"
F DGFIELD=5,6,7,8,9,11,12,13,14,15 D
. S DIK="^DD(45.02,",DA=DGFIELD,DA(1)=45.02
. D ^DIK
;
;W !!,"INPATIENT CPT CODES"
F DGFIELD=.04,.05,.06,.07,.21,.22,.23,.24 D
. S DIK="^DD(46,",DA=DGFIELD,DA(1)=46
. D ^DIK
S DUZ(0)=DGDUZSV
Q
;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53850A 1305 printed Nov 22, 2024@17:49:02 Page 2
DG53850A ;ALB/JRC - ICD-10 PRE-INIT ;3/12/11 7:21am
+1 ;;5.3;Registration;**850**;Aug 13, 1993;Build 171
+2 ;
+3 QUIT
+4 ;
EN ;Delete updated fields to remove screens.
+1 NEW DGFIELD,X,Y,DA,DIK,DGDUZSV,DGPATCH,DGIDX
+2 IF $GET(DUZ)=""
WRITE !,"Your DUZ is not defined. It must be defined to run this routine."
QUIT
+3 SET DGDUZSV=DUZ(0)
SET DUZ(0)="@"
+4 ;
+5 ;
+6 DO EN^DDIOL("Cleaning up PTF file DD for PROCEDURE CODES")
+7 FOR DGFIELD=45.01:.01:45.05
Begin DoDot:1
+8 SET DIK="^DD(45,"
SET DA=DGFIELD
SET DA(1)=45
+9 DO ^DIK
End DoDot:1
+10 ;
+11 DO EN^DDIOL("Cleaning up PTF file DD for DIAGNOSIS CODES")
+12 FOR DGFIELD=79,79.16,79.17,79.18,79.19,79.201,79.21,79.22,79.23,79.24,79.241,79.242,79.243,79.244
Begin DoDot:1
+13 SET DIK="^DD(45,"
SET DA=DGFIELD
SET DA(1)=45
+14 DO ^DIK
End DoDot:1
+15 ;
+16 ;W !!,"CPT DIAGNOSIS"
+17 FOR DGFIELD=.04
Begin DoDot:1
+18 SET DIK="^DD(45.06,"
SET DA=DGFIELD
SET DA(1)=45.06
DO ^DIK
+19 DO ^DIK
End DoDot:1
+20 ;
+21 ;W !!,"601 MOVEMENT"
+22 FOR DGFIELD=4,5,6,7,8
Begin DoDot:1
+23 SET DIK="^DD(45.05,"
SET DA=DGFIELD
SET DA(1)=45.05
+24 DO ^DIK
End DoDot:1
+25 ;
+26 ;W !!,"401 MOVEMENT"
+27 FOR DGFIELD=8,9,10,11,12
Begin DoDot:1
+28 SET DIK="^DD(45.01,"
SET DA=DGFIELD
SET DA(1)=45.01
+29 DO ^DIK
End DoDot:1
+30 ;
+31 ;W !!,"501 MOVEMENT"
+32 FOR DGFIELD=5,6,7,8,9,11,12,13,14,15
Begin DoDot:1
+33 SET DIK="^DD(45.02,"
SET DA=DGFIELD
SET DA(1)=45.02
+34 DO ^DIK
End DoDot:1
+35 ;
+36 ;W !!,"INPATIENT CPT CODES"
+37 FOR DGFIELD=.04,.05,.06,.07,.21,.22,.23,.24
Begin DoDot:1
+38 SET DIK="^DD(46,"
SET DA=DGFIELD
SET DA(1)=46
+39 DO ^DIK
End DoDot:1
+40 SET DUZ(0)=DGDUZSV
+41 QUIT
+42 ;
+43 ;
