- DGPTAE03 ;ALB/MTC,HIOFO/FT - 501 Edit Checks Cont ;10/29/2014 3:42pm
- ;;5.3;Registration;**8,52,164,850,884**;Aug 13, 1993;Build 31
- ;
- ; ICDEX APIs - #5747
- ;
- 501 ;--Check elapsed days between movements vs leave and pass days
- ;
- S (X2,X3,DGPTL3)=0 F DGPTL4=0:0 S DGPTL3=$O(^TMP("AEDIT",$J,"N501",DGPTL3)) Q:DGPTL3="" D
- . S X3=$$FMDT^DGPT101($E(^TMP("AEDIT",$J,"N501",DGPTL3),31,36))_"."_$E(^TMP("AEDIT",$J,"N501",DGPTL3),37,40) I (X3<DGPTMDTS)&(X3>X2) S X2=X3
- I X2=0 S X2=DGPTDTS
- D ^%DTC I X>0,(X-DGPTMLD-DGPTMPD<0) S DGPTERC=543
- K X,X1,X2,X3,DGPTL3,DGPTL4
- Q
- ;
- 535 ;--Check elapsed days between movements vs leave and pass days
- ;
- S (X2,X3,DGPTL3)=0 F DGPTL4=0:0 S DGPTL3=$O(^TMP("AEDIT",$J,"N535",DGPTL3)) Q:DGPTL3="" D
- . S X3=$$FMDT^DGPT101($E(^TMP("AEDIT",$J,"N535",DGPTL3),31,36))_"."_$E(^TMP("AEDIT",$J,"N535",DGPTL3),37,40) I (X3<DGPTTDTS)&(X3>X2) S X2=X3
- I X2=0 S X2=DGPTDTS
- D ^%DTC I X>0,(X-DGPTTLD-DGPTTPD<0) S DGPTERC=543
- K X,X1,X2,X3,DGPTL3,DGPTL4
- Q
- ;
- SP ; Spinal injury and related diagnosis edits
- D EDIT I DGPTERC Q
- D DIA
- Q
- EDIT ;
- N FLAG,I
- I "1234X "'[DGPTMSI S DGPTERC=509 Q
- I DGPTSTTY="^"!(DGPTSTTY="") Q
- I "1234X"[DGPTMSI S DGPTERC=509,FLAG=1 F I=10,11,30,40,42 S I=U_I_U I DGPTSTTY[I S DGPTERC=0,FLAG=0 Q
- Q
- DIA ; - Diagnosis check for Spinal Cord Injury
- Q:(DGPTSTTY'["^10^")!(DGPTSTTY'["^11^")
- N SYS,EFFDATE,IMPDATE,DGPTDAT
- D EFFDATE^DGPTIC10($G(PTF))
- S SYS=$$SYS^ICDEX("DIAG",EFFDATE)
- I SYS=1 D
- . I DGPTMSI="X"&((DGPTMD1?1"3440"1N)!(DGPTMD1=3441)!(DGPTMD2?1"3440"1N)!(DGPTMD2=3441)!(DGPTMD3?1"3440"1N)!(DGPTMD3=3441)!(DGPTMD4?1"3440"1N)!(DGPTMD4=3441)!(DGPTMD5?1"3440"1N)!(DGPTMD5=3441)) S DGPTERC=554 Q
- . I "13"[DGPTMSI&((DGPTMD1'=3441)&(DGPTMD2'=3441)&(DGPTMD3'=3441)&(DGPTMD4'=3441)&(DGPTMD5'=3441)) S DGPTERC=554 Q
- . I "24"[DGPTMSI&((DGPTMD1'?1"3440"1N)&(DGPTMD2'?1"3440"1N)&(DGPTMD3'?1"3440"1N)&(DGPTMD4'?1"3440"1N)&(DGPTMD5'?1"3440"1N)) S DGPTERC=554 Q
- I SYS=30 D ;icd10
- . N DGLOOP,DGPTDXCODE,DGPTFLAG
- . S DGPTFLAG=0
- . F DGLOOP=1:1:25 S DGPTDXCODE=@("DGPTMD"_DGLOOP) D Q:DGPTFLAG
- .. I (DGPTDXCODE?1"G822"1N)!(DGPTDXCODE?1"G825"1N) S DGPTFLAG=1
- . I DGPTMSI="X"&(DGPTFLAG=1) S DGPTERC=554 Q
- . I "13"[DGPTMSI&(DGPTFLAG=1) S DGPTERC=554 Q
- . I "24"[DGPTMSI&(DGPTFLAG=1) S DGPTERC=554 Q
- . Q
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGPTAE03 2308 printed Feb 19, 2025@00:17:34 Page 2
- DGPTAE03 ;ALB/MTC,HIOFO/FT - 501 Edit Checks Cont ;10/29/2014 3:42pm
- +1 ;;5.3;Registration;**8,52,164,850,884**;Aug 13, 1993;Build 31
- +2 ;
- +3 ; ICDEX APIs - #5747
- +4 ;
- 501 ;--Check elapsed days between movements vs leave and pass days
- +1 ;
- +2 SET (X2,X3,DGPTL3)=0
- FOR DGPTL4=0:0
- SET DGPTL3=$ORDER(^TMP("AEDIT",$JOB,"N501",DGPTL3))
- if DGPTL3=""
- QUIT
- Begin DoDot:1
- +3 SET X3=$$FMDT^DGPT101($EXTRACT(^TMP("AEDIT",$JOB,"N501",DGPTL3),31,36))_"."_$EXTRACT(^TMP("AEDIT",$JOB,"N501",DGPTL3),37,40)
- IF (X3<DGPTMDTS)&(X3>X2)
- SET X2=X3
- End DoDot:1
- +4 IF X2=0
- SET X2=DGPTDTS
- +5 DO ^%DTC
- IF X>0
- IF (X-DGPTMLD-DGPTMPD<0)
- SET DGPTERC=543
- +6 KILL X,X1,X2,X3,DGPTL3,DGPTL4
- +7 QUIT
- +8 ;
- 535 ;--Check elapsed days between movements vs leave and pass days
- +1 ;
- +2 SET (X2,X3,DGPTL3)=0
- FOR DGPTL4=0:0
- SET DGPTL3=$ORDER(^TMP("AEDIT",$JOB,"N535",DGPTL3))
- if DGPTL3=""
- QUIT
- Begin DoDot:1
- +3 SET X3=$$FMDT^DGPT101($EXTRACT(^TMP("AEDIT",$JOB,"N535",DGPTL3),31,36))_"."_$EXTRACT(^TMP("AEDIT",$JOB,"N535",DGPTL3),37,40)
- IF (X3<DGPTTDTS)&(X3>X2)
- SET X2=X3
- End DoDot:1
- +4 IF X2=0
- SET X2=DGPTDTS
- +5 DO ^%DTC
- IF X>0
- IF (X-DGPTTLD-DGPTTPD<0)
- SET DGPTERC=543
- +6 KILL X,X1,X2,X3,DGPTL3,DGPTL4
- +7 QUIT
- +8 ;
- SP ; Spinal injury and related diagnosis edits
- +1 DO EDIT
- IF DGPTERC
- QUIT
- +2 DO DIA
- +3 QUIT
- EDIT ;
- +1 NEW FLAG,I
- +2 IF "1234X "'[DGPTMSI
- SET DGPTERC=509
- QUIT
- +3 IF DGPTSTTY="^"!(DGPTSTTY="")
- QUIT
- +4 IF "1234X"[DGPTMSI
- SET DGPTERC=509
- SET FLAG=1
- FOR I=10,11,30,40,42
- SET I=U_I_U
- IF DGPTSTTY[I
- SET DGPTERC=0
- SET FLAG=0
- QUIT
- +5 QUIT
- DIA ; - Diagnosis check for Spinal Cord Injury
- +1 if (DGPTSTTY'["^10^")!(DGPTSTTY'["^11^")
- QUIT
- +2 NEW SYS,EFFDATE,IMPDATE,DGPTDAT
- +3 DO EFFDATE^DGPTIC10($GET(PTF))
- +4 SET SYS=$$SYS^ICDEX("DIAG",EFFDATE)
- +5 IF SYS=1
- Begin DoDot:1
- +6 IF DGPTMSI="X"&((DGPTMD1?1"3440"1N)!(DGPTMD1=3441)!(DGPTMD2?1"3440"1N)!(DGPTMD2=3441)!(DGPTMD3?1"3440"1N)!(DGPTMD3=3441)!(DGPTMD4?1"3440"1N)!(DGPTMD4=3441)!(DGPTMD5?1"3440"1N)!(DGPTMD5=3441))
- SET DGPTERC=554
- QUIT
- +7 IF "13"[DGPTMSI&((DGPTMD1'=3441)&(DGPTMD2'=3441)&(DGPTMD3'=3441)&(DGPTMD4'=3441)&(DGPTMD5'=3441))
- SET DGPTERC=554
- QUIT
- +8 IF "24"[DGPTMSI&((DGPTMD1'?1"3440"1N)&(DGPTMD2'?1"3440"1N)&(DGPTMD3'?1"3440"1N)&(DGPTMD4'?1"3440"1N)&(DGPTMD5'?1"3440"1N))
- SET DGPTERC=554
- QUIT
- End DoDot:1
- +9 ;icd10
- IF SYS=30
- Begin DoDot:1
- +10 NEW DGLOOP,DGPTDXCODE,DGPTFLAG
- +11 SET DGPTFLAG=0
- +12 FOR DGLOOP=1:1:25
- SET DGPTDXCODE=@("DGPTMD"_DGLOOP)
- Begin DoDot:2
- +13 IF (DGPTDXCODE?1"G822"1N)!(DGPTDXCODE?1"G825"1N)
- SET DGPTFLAG=1
- End DoDot:2
- if DGPTFLAG
- QUIT
- +14 IF DGPTMSI="X"&(DGPTFLAG=1)
- SET DGPTERC=554
- QUIT
- +15 IF "13"[DGPTMSI&(DGPTFLAG=1)
- SET DGPTERC=554
- QUIT
- +16 IF "24"[DGPTMSI&(DGPTFLAG=1)
- SET DGPTERC=554
- QUIT
- +17 QUIT
- End DoDot:1
- +18 QUIT
