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

ABME5SV5.m

Go to the documentation of this file.
  1. ABME5SV5 ; IHS/ASDST/DMJ - 837 SV5 Segment
  1. ;;2.6;IHS Third Party Billing System;**6**;NOV 12, 2009
  1. ;Transaction Set Header
  1. ;
  1. EP ;EP
  1. K ABMREC("SV5"),ABMR("SV5")
  1. S ABME("RTYPE")="SV5"
  1. D LOOP
  1. K ABME
  1. Q
  1. LOOP ;LOOP HERE
  1. F I=10:10:80 D
  1. .D @I
  1. .I $D(^ABMEXLM("AA",+$G(ABMP("INS")),+$G(ABMP("EXP")),ABME("RTYPE"),I)) D @(^(I))
  1. .I $G(ABMREC("SV5"))'="" S ABMREC("SV5")=ABMREC("SV5")_"*"
  1. .S ABMREC("SV5")=$G(ABMREC("SV5"))_ABMR("SV5",I)
  1. Q
  1. 10 ;segment
  1. S ABMR("SV5",10)="SV5"
  1. Q
  1. 20 ;SV501 - Composite Medical Procedure Identifier
  1. ;SV501-1 Product Service ID Qualifier
  1. ;SV501-2 Product Service ID (Procedure Code)
  1. I $P(ABMRV(ABMI,ABMJ,ABMK),U,2)'="" D
  1. .S ABMR("SV5",20)="HC"
  1. .S $P(ABMR("SV5",20),":",2)=$P(ABMRV(ABMI,ABMJ,ABMK),U,2)
  1. Q
  1. 30 ;SV502 - Unit or Basis for Measurement Code
  1. S ABMR("SV5",30)="DA"
  1. Q
  1. 40 ;SV503 - Quantity
  1. S ABMR("SV5",40)=+$P(ABMRV(ABMI,ABMJ,ABMK),U,33)
  1. Q
  1. 50 ;SV504 - Monetary Amount (DME Rental Price)
  1. S ABMR("SV5",50)=+$P(ABMRV(ABMI,ABMJ,ABMK),U,34)
  1. Q
  1. 60 ;SV505 - Monetary Amount (DME Purchase Price)
  1. S ABMR("SV5",60)=+$P(ABMRV(ABMI,ABMJ,ABMK),U,35)
  1. Q
  1. 70 ;SV506 - Frequency Code
  1. S ABMR("SV5",70)=+$P(ABMRV(ABMI,ABMJ,ABMK),U,36)
  1. Q
  1. 80 ;SV507 - Prognosis Code
  1. S ABMR("SV5",80)=""
  1. Q