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

ABME5CTP.m

Go to the documentation of this file.
  1. ABME5CTP ; IHS/SD/SDR - 837 CTP Segment
  1. ;;2.6;IHS Third Party Billing System;**6**;NOV 12, 2009
  1. ;Transaction Set Header
  1. ;
  1. EP ;EP - START HERE
  1. K ABMREC("CTP"),ABMR("CTP")
  1. S ABME("RTYPE")="CTP"
  1. D LOOP
  1. K ABME,ABM
  1. Q
  1. LOOP ;LOOP HERE
  1. F I=10:10:120 D
  1. .D @I
  1. .I $D(^ABMEXLM("AA",+$G(ABMP("INS")),+$G(ABMP("EXP")),ABME("RTYPE"),I)) D @(^(I))
  1. .I $G(ABMREC("CTP"))'="" S ABMREC("CTP")=ABMREC("CTP")_"*"
  1. .S ABMREC("CTP")=$G(ABMREC("CTP"))_ABMR("CTP",I)
  1. Q
  1. 10 ;segment
  1. S ABMR("CTP",10)="CTP"
  1. Q
  1. 20 ;CTP01 - Class of Trade Code - NOT USED
  1. S ABMR("CTP",20)=""
  1. Q
  1. 30 ;CTP02 - Price Identifier Code - NOT USED
  1. S ABMR("CTP",30)=""
  1. Q
  1. 40 ;CTP03 - Unit Price - NOT USED
  1. S ABMR("CTP",40)=""
  1. Q
  1. 50 ;CTP04 - Quantity
  1. S ABMR("CTP",50)=$P(ABMRV(ABMI,ABMJ,ABMK),U,5)
  1. Q
  1. 60 ;CTP05 - Composite Unit of Measure
  1. ;CTP05-1 - Unit Or Basis for Measurement Code
  1. ;CTP05-2 - Exponent - not used
  1. ;CTP05-3 - Multiplier - not used
  1. S ABMR("CTP",60)="UN"
  1. Q
  1. 70 ;CTP06 - Price Multiplier Qualifier - NOT USED
  1. S ABMR("CTP",70)=""
  1. Q
  1. 80 ;CTP07 - Multiplier - NOT USED
  1. S ABMR("CTP",80)=""
  1. Q
  1. 90 ;CTP08 - Monetary Amount - NOT USED
  1. S ABMR("CTP",90)=""
  1. Q
  1. 100 ;CTP09 - Basis of Unit Price Code - NOT USED
  1. S ABMR("CTP",100)=""
  1. Q
  1. 110 ;CTP10 - Condition Value - NOT USED
  1. S ABMR("CTP",110)=""
  1. Q
  1. 120 ;CTP11 - Multiple Price Quantity - NOT USED
  1. S ABMR("CTP",120)=""
  1. Q