- ABMDEAD2 ; IHS/ASDST/DMJ - Add New Claim - Program 2 ;
- ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
- ;
- ; IHS/SD/SDR - v2.5 p10 - IM20022
- ; Use ROI/AOB multiples
- ;
- ; IHS/SD/SDR - v2.5 p10 - IM20320
- ; Fix for manually added insurer (not being put as ACTIVE INSURER)
- ;
- STUFF K DIC S DIC="^ABMDCLM(DUZ(2),",DIC(0)="L",X=ABMP("PDFN")
- S DINUM=$$NXNM^ABMDUTL
- I DINUM="" D G XIT
- .W !!,"ERROR: Claim not created - check global ^ABMDCLM(0)"
- .S DIR(0)="E" D ^DIR K DIR
- K DD,DO D FILE^DICN
- I +Y<0 D G XIT
- .W *7,!!,"ERROR: Claim not created, ensure FILEMAN ACCESS CODE contains a 'V'."
- .S DIR(0)="E" D ^DIR K DIR
- L +^ABMDCLM(DUZ(2),+Y):1 I '$T W !,*7,"Claim File is LOCKED by another USER, CLAIM NOT CREATED!" H 3 G XIT
- S (ABMP("CDFN"),ABMA("CDFN"))=+Y,ABMA("X")=+Y
- S DA=ABMP("CDFN"),DIE="^ABMDCLM(DUZ(2),"
- S DR=".02////"_ABMP("VDT")_";.03////"_ABMP("LDFN")_";.04////E" D ^DIE
- S DR=".06////"_ABMP("CLN")_";.07////"_ABMP("VTYP") D ^DIE
- S DR=".72////"_ABMP("DDT")_";.17////"_DT D ^DIE
- I ABMP("VTYP")=111 D
- .S X2=ABMP("VDT"),X1=ABMP("DDT") D ^%DTC S ABM("CVD")=X,ABM("PCD")=X+1
- .I X=0 S (ABM("CVD"),ABM("PCD"))=1
- .S DR=".57////"_ABM("PCD")_";.61////"_ABMP("VDT")_";.63////"_ABMP("DDT")_";.51////83" D ^DIE
- .S DR=".52////45;.53////58;.54////90;.62////12;.64////12;.73////"_ABM("CVD")_";.66////0" D ^DIE
- S ABM=$O(ABML(0)) Q:ABM="" D
- .S ABMI=$O(ABML(ABM,0)) Q:ABMI="" S DR=".08////"_ABMI
- .D ^DIE K DR
- I $D(ABM("F1")) D
- .S DR=".91;.83" D ^DIE
- ;
- I $O(^DIC(40.7,"B","EMERGENCY MEDICINE",""))=ABMP("CLN") S ABMP("C0")=^ABMDCLM(DUZ(2),ABMP("CDFN"),0) D ASET^ABMDE3B
- I $O(^DIC(40.7,"B","EPSDT",""))=ABMP("CLN") S Y=67 D SP^ABMDE3B
- I $O(^DIC(40.7,"B","FAMILY PLANNING",""))=ABMP("CLN") S Y=70 D SP^ABMDE3B
- ;
- REL K DIE S DIE="^ABMDCLM(DUZ(2),",DA=ABMP("CDFN")
- I ABMP("VTYP")=111 S DR=".74////N;.75////N" D ^DIE K DR G ELCK
- I ($D(^AUPNPAT(ABMP("PDFN"),36,0)))>10,($O(^AUPNPAT(ABMP("PDFN"),36,"B",0),-1)<ABMP("VDT")) S DR=".74////Y;.711////"_$O(^AUPNPAT(ABMP("PDFN"),36,"B",0),-1)
- E S DR=".74////N"
- BENE I ($D(^AUPNPAT(ABMP("PDFN"),71,0)))>10,($O(^AUPNPAT(ABMP("PDFN"),71,"B",0),-1)<ABMP("VDT")) S DR=".75////Y;.712////"_$O(^AUPNPAT(ABMP("PDFN"),71,"B",0),-1)
- E S DR=DR_";.75////N"
- D ^DIE K DR
- ;
- ELCK D ENT^ABMDE2E
- L -^ABMDCLM(DUZ(2),ABMP("CDFN"))
- ;
- K ABMP,ABM,ABMX,ABMV,ABMZ,ABMC,ABMU,ABML
- S ABMP("CDFN")=ABMA("CDFN"),X=ABMA("X") K ABMA
- S ABMPERM("EDITOR")=1
- G EXT^ABMDE
- ;
- XIT K DIC,ABM,ABMP,ABMX,ABMV,ABME,ABML
- Q
- ABMDEAD2 ; IHS/ASDST/DMJ - Add New Claim - Program 2 ;
- +1 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
- +2 ;
- +3 ; IHS/SD/SDR - v2.5 p10 - IM20022
- +4 ; Use ROI/AOB multiples
- +5 ;
- +6 ; IHS/SD/SDR - v2.5 p10 - IM20320
- +7 ; Fix for manually added insurer (not being put as ACTIVE INSURER)
- +8 ;
- STUFF KILL DIC
- SET DIC="^ABMDCLM(DUZ(2),"
- SET DIC(0)="L"
- SET X=ABMP("PDFN")
- +1 SET DINUM=$$NXNM^ABMDUTL
- +2 IF DINUM=""
- Begin DoDot:1
- +3 WRITE !!,"ERROR: Claim not created - check global ^ABMDCLM(0)"
- +4 SET DIR(0)="E"
- DO ^DIR
- KILL DIR
- End DoDot:1
- GOTO XIT
- +5 KILL DD,DO
- DO FILE^DICN
- +6 IF +Y<0
- Begin DoDot:1
- +7 WRITE *7,!!,"ERROR: Claim not created, ensure FILEMAN ACCESS CODE contains a 'V'."
- +8 SET DIR(0)="E"
- DO ^DIR
- KILL DIR
- End DoDot:1
- GOTO XIT
- +9 LOCK +^ABMDCLM(DUZ(2),+Y):1
- IF '$TEST
- WRITE !,*7,"Claim File is LOCKED by another USER, CLAIM NOT CREATED!"
- HANG 3
- GOTO XIT
- +10 SET (ABMP("CDFN"),ABMA("CDFN"))=+Y
- SET ABMA("X")=+Y
- +11 SET DA=ABMP("CDFN")
- SET DIE="^ABMDCLM(DUZ(2),"
- +12 SET DR=".02////"_ABMP("VDT")_";.03////"_ABMP("LDFN")_";.04////E"
- DO ^DIE
- +13 SET DR=".06////"_ABMP("CLN")_";.07////"_ABMP("VTYP")
- DO ^DIE
- +14 SET DR=".72////"_ABMP("DDT")_";.17////"_DT
- DO ^DIE
- +15 IF ABMP("VTYP")=111
- Begin DoDot:1
- +16 SET X2=ABMP("VDT")
- SET X1=ABMP("DDT")
- DO ^%DTC
- SET ABM("CVD")=X
- SET ABM("PCD")=X+1
- +17 IF X=0
- SET (ABM("CVD"),ABM("PCD"))=1
- +18 SET DR=".57////"_ABM("PCD")_";.61////"_ABMP("VDT")_";.63////"_ABMP("DDT")_";.51////83"
- DO ^DIE
- +19 SET DR=".52////45;.53////58;.54////90;.62////12;.64////12;.73////"_ABM("CVD")_";.66////0"
- DO ^DIE
- End DoDot:1
- +20 SET ABM=$ORDER(ABML(0))
- IF ABM=""
- QUIT
- Begin DoDot:1
- +21 SET ABMI=$ORDER(ABML(ABM,0))
- IF ABMI=""
- QUIT
- SET DR=".08////"_ABMI
- +22 DO ^DIE
- KILL DR
- End DoDot:1
- +23 IF $DATA(ABM("F1"))
- Begin DoDot:1
- +24 SET DR=".91;.83"
- DO ^DIE
- End DoDot:1
- +25 ;
- +26 IF $ORDER(^DIC(40.7,"B","EMERGENCY MEDICINE",""))=ABMP("CLN")
- SET ABMP("C0")=^ABMDCLM(DUZ(2),ABMP("CDFN"),0)
- DO ASET^ABMDE3B
- +27 IF $ORDER(^DIC(40.7,"B","EPSDT",""))=ABMP("CLN")
- SET Y=67
- DO SP^ABMDE3B
- +28 IF $ORDER(^DIC(40.7,"B","FAMILY PLANNING",""))=ABMP("CLN")
- SET Y=70
- DO SP^ABMDE3B
- +29 ;
- REL KILL DIE
- SET DIE="^ABMDCLM(DUZ(2),"
- SET DA=ABMP("CDFN")
- +1 IF ABMP("VTYP")=111
- SET DR=".74////N;.75////N"
- DO ^DIE
- KILL DR
- GOTO ELCK
- +2 IF ($DATA(^AUPNPAT(ABMP("PDFN"),36,0)))>10
- IF ($ORDER(^AUPNPAT(ABMP("PDFN"),36,"B",0),-1)<ABMP("VDT"))
- SET DR=".74////Y;.711////"_$ORDER(^AUPNPAT(ABMP("PDFN"),36,"B",0),-1)
- +3 IF '$TEST
- SET DR=".74////N"
- BENE IF ($DATA(^AUPNPAT(ABMP("PDFN"),71,0)))>10
- IF ($ORDER(^AUPNPAT(ABMP("PDFN"),71,"B",0),-1)<ABMP("VDT"))
- SET DR=".75////Y;.712////"_$ORDER(^AUPNPAT(ABMP("PDFN"),71,"B",0),-1)
- +1 IF '$TEST
- SET DR=DR_";.75////N"
- +2 DO ^DIE
- KILL DR
- +3 ;
- ELCK DO ENT^ABMDE2E
- +1 LOCK -^ABMDCLM(DUZ(2),ABMP("CDFN"))
- +2 ;
- +3 KILL ABMP,ABM,ABMX,ABMV,ABMZ,ABMC,ABMU,ABML
- +4 SET ABMP("CDFN")=ABMA("CDFN")
- SET X=ABMA("X")
- KILL ABMA
- +5 SET ABMPERM("EDITOR")=1
- +6 GOTO EXT^ABMDE
- +7 ;
- XIT KILL DIC,ABM,ABMP,ABMX,ABMV,ABME,ABML
- +1 QUIT
