ABMPT266 ; IHS/SD/SDR - 3P BILLING 2.6 Patch 5 POST INIT ;
;;2.6;IHS Third Party Billing;**6**;NOV 12, 2009
;
Q
PRE ;
S DIK="^ABMDEXP("
S DA=23
D ^DIK
S DA=24
D ^DIK
S DA=32
D ^DIK
S DIK="^ABMPSTAT("
S DA=20
D ^DIK
S DA=24
D ^DIK
Q
EN ;EP
D ERRCODES ;new error codes
D ECODES ; new 3P Codes
D QUES ;3P PAGE3 QUESTIONS
D CASHCK ;check cashiering sessions for .01 field being populated
Q
ERRCODES ;
;235 - Facility NPI missing
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=235
S X="Facility NPI missing"
S DIC("DR")=".02///Add NPI for facility"
S DIC("DR")=DIC("DR")_";.03///E"
K DD,DO
D FILE^DICN
D SITE(235)
;236 - Subscriber Primary Identifier missing
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=236
S X="Subscriber Primary Identifier missing"
S DIC("DR")=".02///Populate subscriber number"
S DIC("DR")=DIC("DR")_";.03///E"
K DD,DO
D FILE^DICN
D SITE(236)
;237 - Special Program code not supported by 837 5010 format
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=237
S X="Special Program code not supported by 837 5010 format"
S DIC("DR")=".02///Use 5010 or different special program code"
S DIC("DR")=DIC("DR")_";.03///W"
K DD,DO
D FILE^DICN
D SITE(237)
;238 - Only one disability date populated
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=238
S X="Only one disability date populated"
S DIC("DR")=".02///Populated both dates if possible"
S DIC("DR")=DIC("DR")_";.03///W"
K DD,DO
D FILE^DICN
D SITE(238)
;239 - No Prescription Number
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=239
S X="Prescription Number missing"
S DIC("DR")=".02///Populated Prescription Number"
S DIC("DR")=DIC("DR")_";.03///E"
K DD,DO
D FILE^DICN
D SITE(239)
Q
SITE(ABMX) ;Add SITE multiple
S DUZHOLD=DUZ(2)
S DUZ(2)=0
F S DUZ(2)=$O(^ABMDCLM(DUZ(2))) Q:'+DUZ(2) D
.S DIC(0)="LX"
.S DA(1)=ABMX
.S DIC="^ABMDERR("_DA(1)_",31,"
.S DIC("P")=$P(^DD(9002274.04,31,0),U,2)
.S DINUM=DUZ(2)
.S X=$P($G(^DIC(4,DUZ(2),0)),U)
.S DIC("DR")=".03////"_$S(DA(1)=237!(DA(1)=238):"W",1:"E")
.D ^DIC
.K DA,DIC,DINUM
S DUZ(2)=DUZHOLD
K DUZHOLD,DLAYGO,ABMX
Q
ECODES ;
K DIC,X
F ABMI=1:1 S ABMLN=$P($T(ECODETXT+ABMI),";;",2) Q:ABMLN="END" D
.S ABMCODE=$P(ABMLN,U)
.I $D(^ABMDCODE("AC",$P(ABMLN,U,2),ABMCODE)) D Q
..S DA=$O(^ABMDCODE("AC",$P(ABMLN,U,2),ABMCODE,0))
..S $P(^ABMDCODE(DA,0),U,2)=$P(ABMLN,U,2),$P(^(0),U,3)=$P(ABMLN,U,3)
.S ABMDESC=$P(ABMLN,U,3)
.S DIC="^ABMDCODE("
.S DIC(0)="ML"
.S X=ABMCODE
.S DIC("DR")=".02///"_$P(ABMLN,U,2)
.S DIC("DR")=DIC("DR")_";.03///"_ABMDESC
.K DD,DO
.D FILE^DICN
;
K DIC,X
S DIC="^ABMDCODE("
S DIC(0)="ML"
S X="05"
S DIC("DR")=".02///H"
S DIC("DR")=DIC("DR")_";.03///INDIAN HEALTH SERVICE FREE-STANDING FACILITY"
K DD,DO
D FILE^DICN
;
K DIC,X
S DIC="^ABMDCODE("
S DIC(0)="ML"
S X="06"
S DIC("DR")=".02///H"
S DIC("DR")=DIC("DR")_";.03///INDIAN HEALTH SERVICE PROVIDER-BASED FACILITY"
K DD,DO
D FILE^DICN
Q
ECODETXT ;
;;09^I^Second Opinion or Surgery
;;15^U^NATURAL DISASTER
;;10^U^ADMINISTRATION DELAY IN THE PRIOR APPROVAL PROCESS
;;11^U^OTHER
;;01^U^PROOF OF ELIGIBILITY UNKNOWN OR UNAVALABLE
;;02^U^LITIGATION
;;03^U^AUTHORIZATION DELAYS
;;04^U^DELAY IN CERTIFYING PROVIDER
;;05^U^DELAY IN SUPPLYING BILLING FORM
;;06^U^DELAY IN DELIVERY OF CUSTOM-MADE APPLIANCES
;;07^U^THIRD PARTY PROCESSING DELAY
;;08^U^DELAY IN ELIGIBILITY DETERMINATION
;;09^U^ORIGINAL CLAIM REJECTED DENIED UNRELATED TO LIMITATION RULES
;;03^W^Report Justifying Treatment Beyond Utilization Guidelines
;;04^W^Drugs Administered
;;05^W^Treatment Diagnosis
;;06^W^Initial Assessment
;;07^W^Functional Goals
;;08^W^Plan of Treatment
;;09^W^Progress Report
;;10^W^Continued Treatment
;;11^W^Chemical Analysis
;;13^W^Certified Test Report
;;15^W^Justification for Admission
;;21^W^Recovery Plan
;;A3^W^Allergies/Sensitivities Document
;;A4^W^Autopsy Report
;;AM^W^Ambulance Certification
;;BR^W^Benchmark Testing Results
;;BS^W^Baseline
;;BT^W^Blanket Test Results
;;CB^W^Chiropractic Justification
;;CK^W^Consent Form(s)
;;D2^W^Drug Profile Document
;;DB^W^Durable Medical Equipment Prescription
;;DJ^W^Discharge Monitoring Report
;;HC^W^Health Certificate
;;HR^W^Health Clinic Records
;;I5^W^Immunization Record
;;IR^W^State School Immunization Records
;;LA^W^Laboratory Results
;;M1^W^Medical Record Attachment
;;OC^W^Oxygen Content Averaging Report
;;OD^W^Orders and Treatments Document
;;OE^W^Objective Physical Examination (including vital signs) Document
;;OX^W^Oxygen Therapy Certification
;;P4^W^Pathology Report
;;P5^W^Patient Medical History Document
;;PE^W^Parenteral or Enteral Certification
;;PQ^W^Paramedical Results
;;PY^W^Physician's Report
;;RX^W^Renewable Oxygen Content Averaging Report
;;SG^W^Symptoms Document
;;V5^W^Death Notification
;;XP^W^Photographs
;;END
QUES ;
K DIC,X,DINUM,DR,DLAYGO
S DIC="^ABMQUES("
S DIC(0)="LM"
S DLAYGO=9002274
S DINUM=36,X="HEARING/VISION RX DATE"
S DIC("DR")=".02////W36;.03////ABMDE301;.04////36;1////ABMDE3C"
K DD,DO
D ^DIC
K DIC,X,DINUM,DR,DLAYGO
S DIC="^ABMQUES("
S DIC(0)="LM"
S DLAYGO=9002274
S DINUM=37,X="Start/End Disability Dates"
S DIC("DR")=".02////W37;.03////ABMDE301;.04////37;1////ABMDE3C"
K DD,DO
D ^DIC
K DIC,X,DINUM,DR,DLAYGO
S DIC="^ABMQUES("
S DIC(0)="LM"
S DLAYGO=9002274
S DINUM=38,X="Assumed/Relinquished Care Date"
S DIC("DR")=".02////W38;.03////ABMDE301;.04////38;1////ABMDE3C"
K DD,DO
D ^DIC
K DIC,X,DINUM,DR,DLAYGO
S DIC="^ABMQUES("
S DIC(0)="LM"
S DLAYGO=9002274
S DINUM=39,X="Prop/Casualty Date 1st Contact"
S DIC("DR")=".02////W39;.03////ABMDE301;.04////39;1////ABMDE3C"
K DD,DO
D ^DIC
K DIC,X,DINUM,DR,DLAYGO
S DIC="^ABMQUES("
S DIC(0)="LM"
S DLAYGO=9002274
S DINUM=40,X="Patient Paid Amount"
S DIC("DR")=".02////W40;.03////ABMDE301;.04////40;1////ABMDE3C"
K DD,DO
D ^DIC
K DIC,X,DINUM,DR,DLAYGO
S DIC="^ABMQUES("
S DIC(0)="LM"
S DLAYGO=9002274
S DINUM=41,X="Spinal Manipulation Cond Code"
S DIC("DR")=".02////W41;.03////ABMDE301;.04////41;1////ABMDE3C"
K DD,DO
D ^DIC
K DIC,X,DINUM,DR,DLAYGO
S DIC="^ABMQUES("
S DIC(0)="LM"
S DLAYGO=9002274
S DINUM=42,X="Vision Condition Info"
S DIC("DR")=".02////W42;.03////ABMDE301;.04////42;1////ABMDE3C"
K DD,DO
D ^DIC
CASHCK ;
;
D BMES^XPDUTL("Checking UFMS Cashiering Sessions for .01 field....")
S ABMLOC=0
S ABMBFLG=0
F S ABMLOC=$O(^ABMUCASH(ABMLOC)) Q:'ABMLOC D
.S ABMUSER=0
.F S ABMUSER=$O(^ABMUCASH(ABMLOC,10,ABMUSER)) Q:'ABMUSER D
..S ABMSESS=0
..F S ABMSESS=$O(^ABMUCASH(ABMLOC,10,ABMUSER,20,ABMSESS)) Q:'ABMSESS D
...I $P($G(^ABMUCASH(ABMLOC,10,ABMUSER,20,ABMSESS,0)),U)="" D
....S ABMBFLG=1
....S ABMAFLG=$$ACTIVCK^ABMUUTL(ABMLOC,ABMSESS,ABMUSER)
....D BMES^XPDUTL(ABMLOC_" "_ABMUSER_" "_ABMSESS_$S(ABMAFLG=1:" *",1:""))
.S ABMUSER=0
.F S ABMUSER=$O(^ABMUCASH(ABMLOC,20,ABMUSER)) Q:'ABMUSER D
..S ABMSESS=0
..F S ABMSESS=$O(^ABMUCASH(ABMLOC,20,ABMUSER,20,ABMSESS)) Q:'ABMSESS D
...I $P($G(^ABMUCASH(ABMLOC,20,ABMUSER,20,ABMSESS,0)),U)="" D
....S ABMBFLG=1
....S ABMAFLG=$$ACTIVCK^ABMUUTL(ABMLOC,ABMSESS,ABMUSER)
....D BMES^XPDUTL(ABMLOC_" "_ABMUSER_" "_ABMSESS_$S(ABMAFLG=1:" *",1:""))
I ABMBFLG=1 D BMES^XPDUTL("Sessions found. Please contact OIT with above list")
I ABMBFLG=0 D BMES^XPDUTL("Sessions checked out ok.")
Q
ABMPT266 ; IHS/SD/SDR - 3P BILLING 2.6 Patch 5 POST INIT ;
+1 ;;2.6;IHS Third Party Billing;**6**;NOV 12, 2009
+2 ;
+3 QUIT
PRE ;
+1 SET DIK="^ABMDEXP("
+2 SET DA=23
+3 DO ^DIK
+4 SET DA=24
+5 DO ^DIK
+6 SET DA=32
+7 DO ^DIK
+8 SET DIK="^ABMPSTAT("
+9 SET DA=20
+10 DO ^DIK
+11 SET DA=24
+12 DO ^DIK
+13 QUIT
EN ;EP
+1 ;new error codes
DO ERRCODES
+2 ; new 3P Codes
DO ECODES
+3 ;3P PAGE3 QUESTIONS
DO QUES
+4 ;check cashiering sessions for .01 field being populated
DO CASHCK
+5 QUIT
ERRCODES ;
+1 ;235 - Facility NPI missing
+2 KILL DIC,X
+3 SET DIC="^ABMDERR("
+4 SET DIC(0)="LM"
+5 SET DINUM=235
+6 SET X="Facility NPI missing"
+7 SET DIC("DR")=".02///Add NPI for facility"
+8 SET DIC("DR")=DIC("DR")_";.03///E"
+9 KILL DD,DO
+10 DO FILE^DICN
+11 DO SITE(235)
+12 ;236 - Subscriber Primary Identifier missing
+13 KILL DIC,X
+14 SET DIC="^ABMDERR("
+15 SET DIC(0)="LM"
+16 SET DINUM=236
+17 SET X="Subscriber Primary Identifier missing"
+18 SET DIC("DR")=".02///Populate subscriber number"
+19 SET DIC("DR")=DIC("DR")_";.03///E"
+20 KILL DD,DO
+21 DO FILE^DICN
+22 DO SITE(236)
+23 ;237 - Special Program code not supported by 837 5010 format
+24 KILL DIC,X
+25 SET DIC="^ABMDERR("
+26 SET DIC(0)="LM"
+27 SET DINUM=237
+28 SET X="Special Program code not supported by 837 5010 format"
+29 SET DIC("DR")=".02///Use 5010 or different special program code"
+30 SET DIC("DR")=DIC("DR")_";.03///W"
+31 KILL DD,DO
+32 DO FILE^DICN
+33 DO SITE(237)
+34 ;238 - Only one disability date populated
+35 KILL DIC,X
+36 SET DIC="^ABMDERR("
+37 SET DIC(0)="LM"
+38 SET DINUM=238
+39 SET X="Only one disability date populated"
+40 SET DIC("DR")=".02///Populated both dates if possible"
+41 SET DIC("DR")=DIC("DR")_";.03///W"
+42 KILL DD,DO
+43 DO FILE^DICN
+44 DO SITE(238)
+45 ;239 - No Prescription Number
+46 KILL DIC,X
+47 SET DIC="^ABMDERR("
+48 SET DIC(0)="LM"
+49 SET DINUM=239
+50 SET X="Prescription Number missing"
+51 SET DIC("DR")=".02///Populated Prescription Number"
+52 SET DIC("DR")=DIC("DR")_";.03///E"
+53 KILL DD,DO
+54 DO FILE^DICN
+55 DO SITE(239)
+56 QUIT
SITE(ABMX) ;Add SITE multiple
+1 SET DUZHOLD=DUZ(2)
+2 SET DUZ(2)=0
+3 FOR
SET DUZ(2)=$ORDER(^ABMDCLM(DUZ(2)))
IF '+DUZ(2)
QUIT
Begin DoDot:1
+4 SET DIC(0)="LX"
+5 SET DA(1)=ABMX
+6 SET DIC="^ABMDERR("_DA(1)_",31,"
+7 SET DIC("P")=$PIECE(^DD(9002274.04,31,0),U,2)
+8 SET DINUM=DUZ(2)
+9 SET X=$PIECE($GET(^DIC(4,DUZ(2),0)),U)
+10 SET DIC("DR")=".03////"_$SELECT(DA(1)=237!(DA(1)=238):"W",1:"E")
+11 DO ^DIC
+12 KILL DA,DIC,DINUM
End DoDot:1
+13 SET DUZ(2)=DUZHOLD
+14 KILL DUZHOLD,DLAYGO,ABMX
+15 QUIT
ECODES ;
+1 KILL DIC,X
+2 FOR ABMI=1:1
SET ABMLN=$PIECE($TEXT(ECODETXT+ABMI),";;",2)
IF ABMLN="END"
QUIT
Begin DoDot:1
+3 SET ABMCODE=$PIECE(ABMLN,U)
+4 IF $DATA(^ABMDCODE("AC",$PIECE(ABMLN,U,2),ABMCODE))
Begin DoDot:2
+5 SET DA=$ORDER(^ABMDCODE("AC",$PIECE(ABMLN,U,2),ABMCODE,0))
+6 SET $PIECE(^ABMDCODE(DA,0),U,2)=$PIECE(ABMLN,U,2)
SET $PIECE(^(0),U,3)=$PIECE(ABMLN,U,3)
End DoDot:2
QUIT
+7 SET ABMDESC=$PIECE(ABMLN,U,3)
+8 SET DIC="^ABMDCODE("
+9 SET DIC(0)="ML"
+10 SET X=ABMCODE
+11 SET DIC("DR")=".02///"_$PIECE(ABMLN,U,2)
+12 SET DIC("DR")=DIC("DR")_";.03///"_ABMDESC
+13 KILL DD,DO
+14 DO FILE^DICN
End DoDot:1
+15 ;
+16 KILL DIC,X
+17 SET DIC="^ABMDCODE("
+18 SET DIC(0)="ML"
+19 SET X="05"
+20 SET DIC("DR")=".02///H"
+21 SET DIC("DR")=DIC("DR")_";.03///INDIAN HEALTH SERVICE FREE-STANDING FACILITY"
+22 KILL DD,DO
+23 DO FILE^DICN
+24 ;
+25 KILL DIC,X
+26 SET DIC="^ABMDCODE("
+27 SET DIC(0)="ML"
+28 SET X="06"
+29 SET DIC("DR")=".02///H"
+30 SET DIC("DR")=DIC("DR")_";.03///INDIAN HEALTH SERVICE PROVIDER-BASED FACILITY"
+31 KILL DD,DO
+32 DO FILE^DICN
+33 QUIT
ECODETXT ;
+1 ;;09^I^Second Opinion or Surgery
+2 ;;15^U^NATURAL DISASTER
+3 ;;10^U^ADMINISTRATION DELAY IN THE PRIOR APPROVAL PROCESS
+4 ;;11^U^OTHER
+5 ;;01^U^PROOF OF ELIGIBILITY UNKNOWN OR UNAVALABLE
+6 ;;02^U^LITIGATION
+7 ;;03^U^AUTHORIZATION DELAYS
+8 ;;04^U^DELAY IN CERTIFYING PROVIDER
+9 ;;05^U^DELAY IN SUPPLYING BILLING FORM
+10 ;;06^U^DELAY IN DELIVERY OF CUSTOM-MADE APPLIANCES
+11 ;;07^U^THIRD PARTY PROCESSING DELAY
+12 ;;08^U^DELAY IN ELIGIBILITY DETERMINATION
+13 ;;09^U^ORIGINAL CLAIM REJECTED DENIED UNRELATED TO LIMITATION RULES
+14 ;;03^W^Report Justifying Treatment Beyond Utilization Guidelines
+15 ;;04^W^Drugs Administered
+16 ;;05^W^Treatment Diagnosis
+17 ;;06^W^Initial Assessment
+18 ;;07^W^Functional Goals
+19 ;;08^W^Plan of Treatment
+20 ;;09^W^Progress Report
+21 ;;10^W^Continued Treatment
+22 ;;11^W^Chemical Analysis
+23 ;;13^W^Certified Test Report
+24 ;;15^W^Justification for Admission
+25 ;;21^W^Recovery Plan
+26 ;;A3^W^Allergies/Sensitivities Document
+27 ;;A4^W^Autopsy Report
+28 ;;AM^W^Ambulance Certification
+29 ;;BR^W^Benchmark Testing Results
+30 ;;BS^W^Baseline
+31 ;;BT^W^Blanket Test Results
+32 ;;CB^W^Chiropractic Justification
+33 ;;CK^W^Consent Form(s)
+34 ;;D2^W^Drug Profile Document
+35 ;;DB^W^Durable Medical Equipment Prescription
+36 ;;DJ^W^Discharge Monitoring Report
+37 ;;HC^W^Health Certificate
+38 ;;HR^W^Health Clinic Records
+39 ;;I5^W^Immunization Record
+40 ;;IR^W^State School Immunization Records
+41 ;;LA^W^Laboratory Results
+42 ;;M1^W^Medical Record Attachment
+43 ;;OC^W^Oxygen Content Averaging Report
+44 ;;OD^W^Orders and Treatments Document
+45 ;;OE^W^Objective Physical Examination (including vital signs) Document
+46 ;;OX^W^Oxygen Therapy Certification
+47 ;;P4^W^Pathology Report
+48 ;;P5^W^Patient Medical History Document
+49 ;;PE^W^Parenteral or Enteral Certification
+50 ;;PQ^W^Paramedical Results
+51 ;;PY^W^Physician's Report
+52 ;;RX^W^Renewable Oxygen Content Averaging Report
+53 ;;SG^W^Symptoms Document
+54 ;;V5^W^Death Notification
+55 ;;XP^W^Photographs
+56 ;;END
QUES ;
+1 KILL DIC,X,DINUM,DR,DLAYGO
+2 SET DIC="^ABMQUES("
+3 SET DIC(0)="LM"
+4 SET DLAYGO=9002274
+5 SET DINUM=36
SET X="HEARING/VISION RX DATE"
+6 SET DIC("DR")=".02////W36;.03////ABMDE301;.04////36;1////ABMDE3C"
+7 KILL DD,DO
+8 DO ^DIC
+9 KILL DIC,X,DINUM,DR,DLAYGO
+10 SET DIC="^ABMQUES("
+11 SET DIC(0)="LM"
+12 SET DLAYGO=9002274
+13 SET DINUM=37
SET X="Start/End Disability Dates"
+14 SET DIC("DR")=".02////W37;.03////ABMDE301;.04////37;1////ABMDE3C"
+15 KILL DD,DO
+16 DO ^DIC
+17 KILL DIC,X,DINUM,DR,DLAYGO
+18 SET DIC="^ABMQUES("
+19 SET DIC(0)="LM"
+20 SET DLAYGO=9002274
+21 SET DINUM=38
SET X="Assumed/Relinquished Care Date"
+22 SET DIC("DR")=".02////W38;.03////ABMDE301;.04////38;1////ABMDE3C"
+23 KILL DD,DO
+24 DO ^DIC
+25 KILL DIC,X,DINUM,DR,DLAYGO
+26 SET DIC="^ABMQUES("
+27 SET DIC(0)="LM"
+28 SET DLAYGO=9002274
+29 SET DINUM=39
SET X="Prop/Casualty Date 1st Contact"
+30 SET DIC("DR")=".02////W39;.03////ABMDE301;.04////39;1////ABMDE3C"
+31 KILL DD,DO
+32 DO ^DIC
+33 KILL DIC,X,DINUM,DR,DLAYGO
+34 SET DIC="^ABMQUES("
+35 SET DIC(0)="LM"
+36 SET DLAYGO=9002274
+37 SET DINUM=40
SET X="Patient Paid Amount"
+38 SET DIC("DR")=".02////W40;.03////ABMDE301;.04////40;1////ABMDE3C"
+39 KILL DD,DO
+40 DO ^DIC
+41 KILL DIC,X,DINUM,DR,DLAYGO
+42 SET DIC="^ABMQUES("
+43 SET DIC(0)="LM"
+44 SET DLAYGO=9002274
+45 SET DINUM=41
SET X="Spinal Manipulation Cond Code"
+46 SET DIC("DR")=".02////W41;.03////ABMDE301;.04////41;1////ABMDE3C"
+47 KILL DD,DO
+48 DO ^DIC
+49 KILL DIC,X,DINUM,DR,DLAYGO
+50 SET DIC="^ABMQUES("
+51 SET DIC(0)="LM"
+52 SET DLAYGO=9002274
+53 SET DINUM=42
SET X="Vision Condition Info"
+54 SET DIC("DR")=".02////W42;.03////ABMDE301;.04////42;1////ABMDE3C"
+55 KILL DD,DO
+56 DO ^DIC
CASHCK ;
+1 ;
+2 DO BMES^XPDUTL("Checking UFMS Cashiering Sessions for .01 field....")
+3 SET ABMLOC=0
+4 SET ABMBFLG=0
+5 FOR
SET ABMLOC=$ORDER(^ABMUCASH(ABMLOC))
IF 'ABMLOC
QUIT
Begin DoDot:1
+6 SET ABMUSER=0
+7 FOR
SET ABMUSER=$ORDER(^ABMUCASH(ABMLOC,10,ABMUSER))
IF 'ABMUSER
QUIT
Begin DoDot:2
+8 SET ABMSESS=0
+9 FOR
SET ABMSESS=$ORDER(^ABMUCASH(ABMLOC,10,ABMUSER,20,ABMSESS))
IF 'ABMSESS
QUIT
Begin DoDot:3
+10 IF $PIECE($GET(^ABMUCASH(ABMLOC,10,ABMUSER,20,ABMSESS,0)),U)=""
Begin DoDot:4
+11 SET ABMBFLG=1
+12 SET ABMAFLG=$$ACTIVCK^ABMUUTL(ABMLOC,ABMSESS,ABMUSER)
+13 DO BMES^XPDUTL(ABMLOC_" "_ABMUSER_" "_ABMSESS_$SELECT(ABMAFLG=1:" *",1:""))
End DoDot:4
End DoDot:3
End DoDot:2
+14 SET ABMUSER=0
+15 FOR
SET ABMUSER=$ORDER(^ABMUCASH(ABMLOC,20,ABMUSER))
IF 'ABMUSER
QUIT
Begin DoDot:2
+16 SET ABMSESS=0
+17 FOR
SET ABMSESS=$ORDER(^ABMUCASH(ABMLOC,20,ABMUSER,20,ABMSESS))
IF 'ABMSESS
QUIT
Begin DoDot:3
+18 IF $PIECE($GET(^ABMUCASH(ABMLOC,20,ABMUSER,20,ABMSESS,0)),U)=""
Begin DoDot:4
+19 SET ABMBFLG=1
+20 SET ABMAFLG=$$ACTIVCK^ABMUUTL(ABMLOC,ABMSESS,ABMUSER)
+21 DO BMES^XPDUTL(ABMLOC_" "_ABMUSER_" "_ABMSESS_$SELECT(ABMAFLG=1:" *",1:""))
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+22 IF ABMBFLG=1
DO BMES^XPDUTL("Sessions found. Please contact OIT with above list")
+23 IF ABMBFLG=0
DO BMES^XPDUTL("Sessions checked out ok.")
+24 QUIT
