Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ABMDF14A

ABMDF14A.m

Go to the documentation of this file. 
  1. ABMDF14A ; IHS/ASDST/DMJ - Set HCFA-1500 Print Array ;    
  1.  ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
  1.  ;Original;TMD;03/25/96 4:36 PM
  1.  ;
  1.  ; IHS/ASDS/DMJ - 05/16/00 - V2.4 Patch 1 - NOIS hqw-0500-100040
  1.  ;     Modified location code to check for satellite first.  If no
  1.  ;     satellite, use parent.
  1.  ;
  1.  ; IHS/SD/SDR - v2.5 p8 - IM14823
  1.  ;    Modified to not print Medicaid provider number on PI claims
  1.  ;
  1.  ; IHS/SD/SDR - v2.5 p8 - IM15122
  1.  ;    Remove spaces from block 26
  1.  ;
  1.  ; IHS/SD/SDR - v2.5 p8 - task 6
  1.  ;    print origin/destination for ambulance
  1.  ;
  1. ENT ;
  1.  K ABMF,ABM,ABMU,ABMR,ABMS
  1.  S ABMP("B0")=^ABMDBILL(DUZ(2),ABMP("BDFN"),0)       ;0 node bill file
  1.  S ABMP("INS")=$P(ABMP("B0"),U,8)                    ;Active insurer IEN
  1.  Q:'ABMP("INS")                                      ;q:no active ins
  1.  S ABMP("PDFN")=$P(ABMP("B0"),U,5)                   ;Patient IEN
  1.  S ABMP("LDFN")=$P(ABMP("B0"),U,3)                   ;Visit Location IEN
  1.  Q:'ABMP("PDFN")!('+ABMP("LDFN"))                    ;q:no pat or loc
  1.  S ABMP("VDT")=$P(^ABMDBILL(DUZ(2),ABMP("BDFN"),7),U)  ;Srv date from
  1.  S ABMP("BTYP")=$P(ABMP("B0"),"^",2)                 ;Bill type
  1.  S ABMP("VTYP")=$P(ABMP("B0"),"^",7)                 ;Visit Type IEN
  1.  S (ABMP("CLN"),ABMP("CLIN"))=$P(ABMP("B0"),"^",10)                ;clinic
  1.  S ABMP("ITYPE")=$P($G(^AUTNINS(ABMP("INS"),2)),"^",1)  ; Type of ins.
  1.  S (ABMV("X1"),ABMV("X2"),ABMV("X3"))=""
  1.  D PAT^ABMDE1X                        ; returns ABMV("X2") array
  1.  D REMPL^ABMDE1X1                     ; returns ABMV("X3") array
  1.  D LOC^ABMDE1X1                       ; returns ABMV("X1") array
  1.  K ABME
  1.  ;
  1. BLOC ;
  1.  S ABMF(50)=$P($G(^AUTTLOC(ABMP("LDFN"),0)),U,11)  ; Facility phone
  1.  ; Billing Name
  1.  S $P(ABMF(51),"^",2)=$P($G(^ABMDPARM(ABMP("LDFN"),1,2)),"^",6)
  1.  I $P(ABMF(51),"^",2)="" D
  1.  .S $P(ABMF(51),U,2)=$S($P($G(^ABMDPARM(DUZ(2),1,2)),U,6)]"":$P(^(2),U,6),$P($P(ABMV("X1"),U,2),"C/O ",2)]"":$P($P(ABMV("X1"),U,2),"C/O ",2),1:$P($P(ABMV("X1"),U),";",2))
  1.  S $P(ABMF(52),U,3)=$P(ABMV("X1"),U,3)   ; Billing Address
  1.  S $P(ABMF(53),U,3)=$P(ABMV("X1"),U,4)   ; Billing City,State Zip
  1.  ;
  1. VLOC ;
  1.  S $P(ABMF(51),U)=$P(^DIC(4,ABMP("LDFN"),0),"^",1)
  1.  I $G(ABMP("CLIN"))'="",($P($G(^DIC(40.7,ABMP("CLIN"),0)),U)["AMBULANCE") S $P(ABMF(51),U)="ORIGIN: "_$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),12)),U,2)
  1.  I $D(^DIC(4,ABMP("LDFN"),1)) D
  1.  .S ABMVLOC=^DIC(4,ABMP("LDFN"),1)
  1.  .S $P(ABMF(52),"^",2)=$P(ABMVLOC,"^",1)
  1.  .S $P(ABMF(53),"^",2)=$$CSZ^ABMDUTL($P(ABMVLOC,"^",3)_"^"_$P(^DIC(4,ABMP("LDFN"),0),"^",2)_"^"_$P(ABMVLOC,"^",4))
  1.  .K ABMVLOC
  1.  I '$D(^DIC(4,ABMP("LDFN"),1)) D
  1.  .S $P(ABMF(52),U,2)=$P(^AUTTLOC(ABMP("LDFN"),0),U,12)
  1.  .S $P(ABMF(53),U,2)=$$CSZ^ABMDUTL($P(^AUTTLOC(ABMP("LDFN"),0),U,13,15))
  1.  I $P($G(^DIC(40.7,$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),0)),U,10),0)),U)["AMBULANCE" D
  1.  .S ABMDREC=$$GETDEST^ABMDE31($P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),12)),U,7))
  1.  .S $P(ABMF(52),U,2)="DESTINATION: "_$P(ABMDREC,U)
  1.  ;
  1. BNUM ;
  1.  S $P(ABMF(49),U,4)=$P(ABMP("B0"),U)_$S($P($G(^ABMDPARM(ABMP("LDFN"),1,2)),U,4)]"":"-"_$P(^ABMDPARM(ABMP("LDFN"),1,2),U,4),1:"")
  1.  I $P($G(^ABMDPARM(ABMP("LDFN"),1,3)),U,3),$P($G(^AUPNPAT(ABMP("PDFN"),41,ABMP("LDFN"),0)),U,2) S $P(ABMF(49),U,4)=$P(ABMF(49),U,4)_"-"_$P(^AUPNPAT(ABMP("PDFN"),41,ABMP("LDFN"),0),U,2)
  1.  ;
  1. INSNUM ;
  1.  ;GET PROVIDER NUMBER
  1.  S ABM("INUM")=$P($G(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),0)),"^",8)
  1.  I ABM("INUM")="" D
  1.  .S ABM("I")=$P($G(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,$P(ABMP("B0"),U,7),0)),U,6)
  1.  .S ABM("INUM")=$P($G(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,$S(ABM("I")="Y":999,1:$P(ABMP("B0"),U,7)),0)),U,8)
  1.  S:ABM("INUM")="" ABM("INUM")=$P($G(^AUTNINS(ABMP("INS"),15,ABMP("LDFN"),0)),U,2)
  1.  S $P(ABMF(54),U,4)=ABM("INUM")
  1.  I $P($G(^AUTNINS(ABMP("INS"),2)),U)="R" S $P(ABMF(54),U,3)=$P(^AUTTLOC(ABMP("LDFN"),0),U,19)
  1.  S ABM("ITYP")=$P($G(^AUTNINS(ABMP("INS"),2)),U)
  1.  S ABM("ITYP")=$S(ABM("ITYP")="R":1,ABM("ITYP")="D":2,ABM("ITYP")="C":3,1:7)
  1.  S $P(ABMF(1),U,ABM("ITYP"))="X"
  1.  ;
  1. TAX ;
  1.  S $P(ABMF(49),U,1)=$P(ABMV("X1"),U,6)
  1.  S:$P(ABMV("X1"),U,6)]"" $P(ABMF(49),U,3)="X"
  1.  S $P(ABMF(49),U,5)="X"
  1.  ;
  1. PNODES ;
  1.  ;PATIENT INFO
  1.  D ISET^ABMERUTL             ; Needed to get medicaid name from ABMER20A
  1.  D PNM^ABMER20A
  1.  S ABM("P0")=ABME("PNM")
  1.  S $P(ABM("P0"),"^",3)=ABME("DOB")
  1.  ;
  1. NAME ;
  1.  S ABMF(3)=$P(ABM("P0"),U)
  1.  ;
  1. ADDRESS ;
  1.  S $P(ABMF(5),U)=$P(ABMV("X2"),U,3)
  1.  S $P(ABMF(7),U)=$P($P(ABMV("X2"),U,4),", ")
  1.  S $P(ABMF(7),U,2)=$P($P($P(ABMV("X2"),U,4),", ",2),"  ")
  1.  S $P(ABMF(9),U)=$P($P($P(ABMV("X2"),U,4),", ",2),"  ",2)
  1.  S $P(ABMF(9),U,2)=$S($E($P(ABMV("X2"),U,5))="(":"",1:" ")_$P(ABMV("X2"),U,5)
  1.  ;
  1. DOB ;
  1.  S $P(ABMF(3),U,2)=$P(ABM("P0"),U,3)
  1.  ;
  1. SEX ;
  1.  I $P(ABMV("X2"),U,2)="M" S $P(ABMF(3),U,3)="X"
  1.  E  S $P(ABMF(3),U,4)="X"
  1.  K ABM("P0")
  1.  I $P(^AUPNPAT(ABMP("PDFN"),0),U,21),"1246"[$P(^(0),U,21) S $P(ABMF(9),U,3)="X"
  1.  I $P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),4)),U,9)'="" S $P(ABMF(31),U,3)=$P(^(4),U,9)
  1.  ;
  1. XIT ;
  1.  K ABM,ABMX,ABMV
  1.  Q