PSOASAP ;BIRM/MFR - American Society for Automation in Pharmacy (ASAP) Field Values ;Jun 04, 2025@11:49:34
;;7.0;OUTPATIENT PHARMACY;**451,496,625,772**;DEC 1997;Build 105
;
; *** TH Segment - Transaction Header *****
TH01() ;ASAP Version (3.0, 4.0, 4.1, 4.2, etc.)
I $$VERSIONLOCKED^PSOSPMU0($P(PSOASVER,"_")) Q $P(PSOASVER,"_")
Q PSOASVER
;
TH02() ;ASAP 3.0 : Business Partner Implemetation Version (Not Used)
; ASAP 4.0+: Transaction Control Number
Q $$TH02^PSOASAP0()
;
TH03() ;ASAP 3.0 : Transaction Control Number
; ASAP 4.0+: Transaction Type (Always "01" - Send/Request Transaction)
Q $$TH03^PSOASAP0()
;
TH04() ;ASAP 3.0 : Transaction Type (Not Used)
; ASAP 4.0+: Response ID (Not Used)
Q ""
;
TH05() ;ASAP 3.0 : Message Type (Not Used)
; ASAP 4.0+: Creation Date (Format: YYYYMMDD)
Q $$TH05^PSOASAP0()
;
TH06() ;ASAP 3.0 : Response ID (Not Used)
; ASAP 4.0+: Creation Time. Format: HHMMSS or HHMM
Q $$TH06^PSOASAP2() ; pso*7*772 need to perform different assignments depending on version
;
TH07() ;ASAP 3.0 : Project ID (Not Used)
; ASAP 4.0+: File Type. Returns: "T" - Test or "P" - Production
Q $$TH07^PSOASAP0()
;
TH08() ;ASAP 3.0 : Creation Date (Format: YYYYMMDD)
; ASAP 4.0 : Composite Element Separator (:)
; ASAP 4.1+: Routing Number (Real-time transactions only)(Not Used)
Q $$TH08^PSOASAP0()
;
TH09() ;ASAP 3.0 : Creation Time. Format: HHMMSS or HHMM
; ASAP 4.0+: Segment Terminator Character
Q $$TH09^PSOASAP0()
;
TH10() ;ASAP 3.0 : File Type
; ASAP 4.0+: N/A
Q $$TH10^PSOASAP0()
;
TH11() ;ASAP 3.0 : Message (Not Used)
; ASAP 4.0+: N/A
Q ""
;
TH12() ;ASAP 3.0 : Composite Element Separator
; ASAP 4.0+: N/A
Q $$TH12^PSOASAP0()
;
TH13() ;ASAP 3.0 : Data Segment Terminator Character
; ASAP 4.0+: N/A
Q $$TH13^PSOASAP0()
;
; *** IS Segment - Information Source ***
IS01() ; Unique Information Source ID
Q $$IS01^PSOASAP2() ; pso*7*772 need to perform different assignments depending on version
;
IS02() ; Information Source Entity Name
Q $$GET1^DIQ(4,+$$SITE^VASITE,100)
;
IS03() ;ASAP 3.0 : Address Information 1 (Not Used)
; ASAP 4.0+: Message (Not Used)
; ZERO RPT 4.0+: Date Range of Report
N BEGDATE,ENDDATE,RANGE
S (BEGDATE,ENDDATE,RANGE)=""
I $G(BATCHIEN),$$GET1^DIQ(58.42,BATCHIEN,2,"I")="ZR" D Q RANGE
. S BEGDATE=$$FMTHL7^XLFDT($$GET1^DIQ(58.42,BATCHIEN,4,"I")\1)
. S ENDDATE=$$FMTHL7^XLFDT($$GET1^DIQ(58.42,BATCHIEN,5,"I")\1)
. S RANGE="#"_BEGDATE_"#-#"_ENDDATE_"#"
Q ""
;
IS04() ;ASAP 3.0 : Address Information 2 (Not Used)
; ASAP 4.0+: N/A
; ASAP 5.0 : send VistA vendor
Q "DEPT OF VET AFFAIRS - OFFICE OF INFORMATION AND TECHNOLOGY"
;
IS05() ;ASAP 3.0 : City Address (Not Used)
; ASAP 4.0+: N/A
; ASAP 5.0 : send null
Q ""
;
IS06() ;ASAP 3.0 : State Address (Not Used)
; ASAP 4.0+: N/A
Q ""
;
IS07() ;ASAP 3.0 : Zip code Address (Not Used)
; ASAP 4.0+: N/A
Q ""
;
IS08() ;ASAP 3.0 : Phone Number (Not Used)
; ASAP 4.0+: N/A
Q ""
;
IS09() ;ASAP 3.0 : Contact Name (Not Used)
; ASAP 4.0+: N/A
Q ""
;
IS10() ;ASAP 3.0 : Message (Not Used)
; ASAP 4.0+: N/A
Q ""
;
IS11() ;ASAP 3.0 : Data Entry Terminal ID (Not Used)
; ASAP 4.0+: N/A
Q ""
;
; *** IR Segment - Information Receiver (ASAP 3.0 only) ***
IR01() ; Unique Information Receiver ID
Q ("VA"_+$$SITE^VASITE())
;
IR02() ; Information Receiver Entity Name
Q $$GET1^DIQ(5,STATEIEN,.01)_" PMP PROGRAM"
;
IR03() ;Address Information 1 (Not Used)
Q ""
;
IR04() ;Address Information 2 (Not Used)
Q ""
;
IR05() ;City Address (Not Used)
Q ""
;
IR06() ;State Address (Not Used)
Q ""
;
IR07() ;Zip code Address (Not Used)
Q ""
;
IR08() ;Phone Number (Not Used)
Q ""
;
IR09() ;Contact Name (Not Used)
Q ""
;
IR10() ;Message (Not Used)
Q ""
;
; *** PHA Segment - Pharmacy Header ***
PHA01() ; National Provider Identifier (NPI)
Q $$PHA01^PSOASAP0()
;
PHA02() ;NCPDP/NABP Provider ID
Q $$GET1^DIQ(59,SITEIEN,1008)
;
PHA03() ;Pharmacy DEA Number
Q $$PHA03^PSOASAP0()
;
PHA04() ;Pharmacy Name
Q $$GET1^DIQ(59,SITEIEN,.01)
;
PHA05() ;Pharmacy Address Information - Line 1
Q $$TRIM^XLFSTR($$GET1^DIQ(59,SITEIEN,.02))
;
PHA06() ; Pharmacy Address Information - Line 2 (Not Used)
Q ""
;
PHA07() ;Pharmacy City Address
Q $$GET1^DIQ(59,SITEIEN,.07)
;
PHA08() ;Pharmacy State Address
Q $$GET1^DIQ(5,STATEIEN,1)
;
PHA09() ;Pharmacy ZIP Code
I PSOASVER<5.0 Q $$NUMERIC^PSOASAP0($$GET1^DIQ(59,SITEIEN,.05))
Q $$GET1^DIQ(59,SITEIEN,.05) ;pso*7*772 no need to exclude hyphen(s) for 5.0+
;
PHA10() ;Phone Number
Q $$PHA10^PSOASAP0()
;
PHA11() ;Pharmacy Contact name (Not Used)
Q ""
;
PHA12() ;Pharmacy Chain Site ID (Not Used)
Q ""
;
PHA13() ;Message (Not Used)
Q ""
;
; *** PAT Segment - Patient Information ***
PAT01() ; ASAP 3.0 : Not Used
; ASAP 4.0+: ID Qualifier of Patient Identifier (Always "US" - United States)
I PSOASVER="3.0" Q ""
Q "US"
;
PAT02() ;ID Qualifier (Always "07" - Social Security Number)
Q "07"
;
PAT03() ;ASAP 3.0 : Unique System ID - Patient (Not Used)
; ASAP 4.0+: ID of Patient (SSN)
Q $$PAT03^PSOASAP0()
;
PAT04() ;ASAP 3.0 : SSN
; ASAP 4.0+: ID Qualifier of Additional Patient Identifier (Not Used)
Q $$PAT04^PSOASAP0()
;
PAT05() ;Additional Patient ID Qualifier (Not Used)
Q ""
;
PAT06() ;Additional ID (Not Used)
Q ""
;
PAT07() ;Patient Last Name
Q PSONAME("LAST")
;
PAT08() ;Patient First Name
Q PSONAME("FIRST")
;
PAT09() ;Patient Middle Name or Initial
Q PSONAME("MIDDLE")
;
PAT10() ;Name Prefix
Q PSONAME("PREFIX")
;
PAT11() ;Name Suffix
Q PSONAME("SUFFIX")
;
PAT12() ;Patient Address Information - Line 1
Q $$PAT12^PSOASAP0()
;
PAT13() ;Patient Address Information - Line 2
Q $$PAT13^PSOASAP0()
;
PAT14() ;Patient City Address
Q $P($G(VAPA(4)),"^",1)
;
PAT15() ;Patient State Address
Q $$PAT15^PSOASAP0()
;
PAT16() ;Patient ZIP Code
Q $$PAT16^PSOASAP2()
;
PAT17() ;Patient Phone Number
Q $$PAT17^PSOASAP0()
;
PAT18() ;ASAP 3.0 : Email Address (Not Used)
; ASAP 4.0+: Patient DOB
Q $$PAT18^PSOASAP0()
;
PAT19() ;ASAP 3.0 : Patient DOB
; ASAP 4.0+: Patient Gender Code
Q $$PAT19^PSOASAP0()
;
PAT20() ;ASAP 3.0 : Patient Gender Code
; ASAP 4.0+: Species Code (Always return "01" for 'Human')
Q $$PAT20^PSOASAP0()
;
PAT21() ;Patient Location Code (Always return "10" for 'Outpatient')
Q "10"
;
PAT22() ;ASAP 3.0 : Primary Prescription Coverage Type (Not Used)
; ASAP 4.0+:Country of Non-U.S. Resident
Q $$PAT22^PSOASAP0()
;
PAT23() ;ASAP 3.0: Secondary Prescription Coverage Type (Not Used)
Q ""
;
; *** RX Segment - Prescription Order (ASAP 3.0 only) ***
RX01() ;Reporting Status ("01" - Add / "02" - Change / "03" - Delete)
Q $S($G(RECTYPE)="N":"01",$G(RECTYPE)="R":"02",$G(RECTYPE)="V":"03",1:"")
;
RX02() ;Program Participation Status (Not Used)
Q ""
;
RX03() ;Prescription Number
Q $$GET1^DIQ(52,+$G(RXIEN),.01)
;
RX04() ;Unique System ID() - RPh (Not Used)
Q ""
;
RX05() ;Unique System ID() - Patient (Not Used)
Q ""
;
RX06() ;Unique System ID() - Prescriber (Not Used)
Q ""
;
RX07() ;Unique System ID() - Drug (Not Used)
Q ""
;
RX08() ;Date Rx Written (Format: YYYYMMDD)
Q $$RX08^PSOASAP0()
;
RX09() ;RX Start Date (Not Used)
Q ""
;
RX10() ;RX End Date (Not Used)
Q ""
;
RX11() ;Diagnosis Code Qualifier
Q ""
;
RX12() ;Diagnosis Code
Q ""
;
RX13() ;Product ID Qualifier (Always return "01" for 'NDC')
Q "01"
;
RX14() ;Product ID (NDC - National Drug Code)
Q $$RX14^PSOASAP0()
;
RX15() ;Product Description (Not Used)
Q ""
;
RX16() ;DAW Code (Not Used)
Q ""
;
RX17() ;Quantity Dispensed
Q $S(RECTYPE="V":$G(RTSDATA("QTY")),1:$$RXQTY^PSOBPSUT(RXIEN,FILLNUM))
;
RX18() ;Days Supply
Q $S(RECTYPE="V":$G(RTSDATA("DAYSUP")),1:$$RXDAYSUP^PSOBPSUT(RXIEN,FILLNUM))
;
RX19() ;Basis of Days Supply Determination (Not Used)
Q ""
;
RX20() ;Refills Authorized
Q +$$GET1^DIQ(52,+$G(RXIEN),9)
;
RX21() ;Refills Authorized Through Date (Not Used)
Q ""
;
RX22() ;DEA Schedule (Not Used)
Q ""
;
RX23() ;Unit Dose Indicator (Not Used)
Q ""
;
RX24() ;Compound Indicator (Not Used)
Q ""
;
RX25() ;Origin Code (Not Used)
Q ""
;
RX26() ;Brand Versus Generic Indicator (Not Used)
Q ""
;
RX27() ;Original Fill Date (Not Used)
Q ""
;
RX28() ;AlternateRX Identifier (Not Used)
Q ""
;
RX29() ;Previous RX Number (Not Used)
Q ""
;
; *** DSP Segment - Dispensing Record ***
DSP01() ;ASAP 3.0 : Reporting Status ("01" - Add / "02" - Change / "03" - Delete)
; ASAP 4.0 : Reporting Status ("" - New / "01" - Revise / "02" - Void)
; ASAP 4.1+: Reporting Status ("00" - New / "01" - Revise / "02" - Void)
Q $$DSP01^PSOASAP0()
;
DSP02() ;ASAP 3.0 : Program Participation Status (Not Used)
; ASAP 4.0+: Prescription Number (Not Used by ASAP 3.0)
Q $$DSP02^PSOASAP0()
;
DSP03() ;ASAP 3.0 : Prescription Number
; ASAP 4.0+: Date Rx Written (Format: YYYYMMDD)
Q $$DSP03^PSOASAP0()
;
DSP04() ;ASAP 3.0 : Refill Number
; ASAP 4.0+: Refills Authorized
Q $$DSP04^PSOASAP0()
;
DSP05() ;ASAP 3.0 : Unique System ID - RPh (Not Used)
; ASAP 4.0+: Date Filled (Release Date) (Format: YYYYMMDD)
Q $$DSP05^PSOASAP0()
;
DSP06() ;ASAP 3.0 : ;Unique System ID - Patient (Not Used)
; ASAP 4.0+: Refill Number (Partials are always "0")
Q $$DSP06^PSOASAP0()
;
DSP07() ;ASAP 3.0 : ;Unique System ID - Prescriber (Not Used)
; ASAP 4.0+: Product ID Qualifier (Always return "01" for 'NDC')
Q $$DSP07^PSOASAP0()
;
DSP08() ;Product ID (NDC - National Drug Code) (ASAP 3.0: Not Used)
Q $$DSP08^PSOASAP2()
;
DSP09() ;ASAP 3.0: Date Filled
; ASAP 4.0+: Quantity Dispensed
Q $$DSP09^PSOASAP0()
;
DSP10() ;Days Supply
Q $$DSP10^PSOASAP0()
;
DSP11() ;ASAP 3.0 : Product ID Qualifier (01:NDC)
; ASAP 4.0+: Drug Dosage Units Code
Q $$DSP11^PSOASAP0()
;
DSP12() ;ASAP 3.0: Product ID (NDC)
; ASAP 4.0+: Transmission Form of Rx Origin Code (Nature of Order)
Q $$DSP12^PSOASAP0()
;
DSP13() ;ASAP 3.0 : Product Description (Not Used)
; ASAP 4.0+: Partial Fill Indicator
Q $$DSP13^PSOASAP0()
;
DSP14() ;ASAP 3.0 : Quantity Dispensed
; ASAP 4.0+: Pharmacist National Provider Identifier (NPI)
Q $$DSP14^PSOASAP0()
;
DSP15() ;ASAP 3.0 : Days Supply
; ASAP 4.0+: Pharmacist State License Number (Not Used)
Q $$DSP15^PSOASAP0()
;
DSP16() ;ASAP 3.0 : Basis of Days Supply Determiniation (Always "3" for 'As directed by doctor')
; ASAP 4.0+: Classification Code for Payment Type (Always return "05" for 'Military Installations and VA')
Q $$DSP16^PSOASAP0()
;
DSP17() ;ASAP 3.0 : Refills Remaining (Not Used)
; ASAP 4.0 : N/A (up to DSP16 only)
; ASAP 4.1+: Date Sold
Q $$DSP17^PSOASAP0()
;
DSP18() ;ASAP 3.0: Refills Authorized Through Date (Not Used)
; ASAP 4.1: RxNorm Code (Not Used)
; ASAP 4.2: RxNorm Product Qualifier (Not Used)
Q ""
;
DSP19() ;ASAP 3.0: Previous Fill Date (Not Used)
; ASAP 4.1: Electronic Prescription Reference Number (Not Used)
; ASAP 4.2: RxNorm Code (Not Used)
Q ""
;
DSP20() ;ASAP 3.0: Previous Fill Quantity Dispensed (Not Used)
; ASAP 4.2: Electronic Prescription Reference Number (Not Used)
Q ""
;
DSP21() ;ASAP 3.0: Level of Service Code (Not Used)
; ASAP 4.2: Electronic Prescription Order Number (Not Used)
Q ""
;
DSP22() ;ASAP 3.0: Brand or Generic Indicator (Not Used)
; ASAP 4.2+: Quantity Prescribed - assign the value from DSP09 Quantity
; Dispensed when the end-user activates DSP22 from Not Used
; to Required or Optional (on a custom, unlocked ASAP version)
I $E($G(PSOASVER),1,4)="4.2A"!($E($G(PSOASVER),1,4)="4.2B"!($E($G(PSOASVER),1,3)="5.0"))!(PSOASVER>5) Q $$DSP09^PSOASAP0()
Q ""
;
DSP23() ;ASAP 3.0: Patient Advisory Leaflet (Not Used)
; ASAP 4.2a+: Rx Sig (added in 4.2a)
Q $$DSP23^PSOASAP1()
;
DSP24() ;ASAP 3.0: Warning/Auxiliary Labels (Not Used)
Q ""
;
DSP25() ;ASAP 3.0: Warning/Auxiliary Labels (Not Used)
Q ""
;
; *** PRE Segment - Prescriber Information ***
PRE01() ;ASAP 3.0 : Not Used
; ASAP 4.0+: Prescriber National Provider Identifier (NPI)
Q $$PRE01^PSOASAP0()
;
PRE02() ; Prescriber DEA Number
Q $$PRE02^PSOASAP0()
;
PRE03() ;ASAP 3.0 : Prescriber NPI
; ASAP 4.0+: Prescriber DEA Number Suffix
Q $$PRE03^PSOASAP0()
;
PRE04() ;ASAP 3.0 : Prescriber DEA Number
; ASAP 4.0+: Prescriber State License Number (Not Used)
Q $$PRE04^PSOASAP0()
;
PRE05() ;ASAP 3.0 : Prescriber DEA Number Suffix
; ASAP 4.0+: Prescriber Last Name
Q $$PRE05^PSOASAP0()
;
PRE06() ;ASAP 3.0 : Prescriber State Lince Number (Not Used)
; ASAP 4.0+: Prescriber First Name
Q $$PRE06^PSOASAP0()
;
PRE07() ;ASAP 3.0 : Prescriber Alternate ID (Not Used)
; ASAP 4.0+: Prescriber Middle Name
Q $$PRE07^PSOASAP0()
;
PRE08() ;ASAP 3.0 : Prescriber's Last Name
; ASAP 4.0 & 4.1: N/A (Up to PRE07 only)
; ASAP 4.2: Prescriber's Phone Number
Q $$PRE08^PSOASAP0()
;
PRE09() ;ASAP 3.0: Prescriber' First Name
Q $$PRE09^PSOASAP0()
;
PRE10() ;ASAP 3.0: Prescriber' Middle Name
; ASAP 4.2B+ : Jurisdiction or State Issuing Prescriber License Number
Q $$PRE10^PSOASAP0()
;
; *** CDI Segment - Compound Drug Ingredient Detail ***
CDI01() ;Compound Drug Ingredient Sequence Number (Not Used)
Q ""
;
CDI02() ;Product ID Qualifier (Not Used)
Q ""
;
CDI03() ;Product ID (Not Used)
Q ""
;
CDI04() ;Component Ingredient Product Description (Not Used)
Q ""
;
CDI05() ;Component Ingredient Quantity (Not Used)
Q ""
;
CDI06() ;ASAP 3.0: Component Ingredient Cost (Not Used)
Q ""
;
CDI07() ;ASAP 3.0: Component Ingredient Basis of Cost Determination (Not Used)
Q ""
;
CDI08() ;ASAP 3.0: Compound Drug Dosage Units Code (Not Used)
Q ""
;
; *** CSR Segment - Controlled Substance Reporting (ASAP 3.0 only) ***
CSR01() ;State Issuing Rx Serial Number (Not Used)
Q ""
;
CSR02() ;State Issued Rx Serial Number (Not Used)
Q ""
;
CSR03() ;ID Qualifier (Not Used)
Q ""
;
CSR04() ;ID of Person Picking Up Rx (Not Used)
Q ""
;
CSR05() ;Relationship of Person Picking Up Rx (Not Used)
Q ""
;
CSR06() ;Last Name of Person Picking Up Rx (Not Used)
Q ""
;
CSR07() ;First Name of Person Picking Up Rx (Not Used)
Q ""
;
; *** AIR Segment - Additional Information Reporting (Not Used by ASAP 3.0) ***
AIR01() ;State Issuing Rx Serial Number (Not Used)
Q ""
;
AIR02() ;State Issued Rx Serial Number (Not Used)
Q ""
;
AIR03() ;Issuing Jurisdiction (Not Used)
Q ""
;
AIR04() ;ID Qualifier of Person Dropping Off or Picking Up Rx (Not Used)
Q ""
;
AIR05() ;ID of Person Dropping Off or Picking Up Rx (Not Used)
Q ""
;
AIR06() ;Relationship of Person Dropping Off or Picking Up Rx (Not Used)
Q ""
;
AIR07() ;Last Name of Person Dropping Off or Picking Up Rx (Not Used)
Q ""
;
AIR08() ;First Name of Person Dropping Off or Picking Up Rx (Not Used)
Q ""
;
AIR09() ;Last Name or Initials of Pharmacist (Not Used)
Q ""
;
AIR10() ;First Name of Pharmacist (Not Used)
Q ""
;
AIR11() ;ASAP 4.2: Dropping Off/Picking Up Identifier Qualifier
Q ""
;
AIR12() ;(Not Used)
Q ""
;
AIR13() ; (Not Used)
Q ""
;
AIR14() ; (Not Used)
Q ""
;
AIR15() ;(Not Used)
Q ""
;
AIR16() ; (Not Used)
Q ""
;
AIR17() ; (Not Used)
Q ""
;
AIR18() ; (Not Used)
Q ""
;
AIR19() ; (Not Used)
Q ""
;
AIR20() ;(Not Used)
Q ""
;
AIR21() ;(Not Used)
Q ""
;
AIR22() ; (Not Used)
Q ""
;
AIR23() ; (Not Used)
Q ""
;
AIR24() ;(Not Used)
Q ""
;
AIR25() ; (Not Used)
Q ""
;
AIR26() ;(Not Used)
Q ""
;
AIR27() ; (Not Used)
Q ""
;
AIR28() ;(Not Used)
Q ""
;
AIR29() ;(Not Used)
Q ""
;
AIR30() ; (Not Used)
Q ""
;
AIR31() ; (Not Used)
Q ""
;
AIR32() ; (Not Used)
Q ""
;
; *** RPH Segment - Pharmacist Information (ASAP 3.0 Only) ***
RPH01() ;Reporting Status (Not Used)
Q ""
;
RPH02() ;Unique System ID (Not Used)
Q ""
;
RPH03() ;National Provider Identification (NPI)
Q $$RPH03^PSOASAP0()
;
RPH04() ;Pharmacist State License Number (Not Used)
Q ""
;
RPH05() ;Pharmacist Alternate ID (Not Used)
Q ""
;
RPH06() ;Pharmacist Last Name
Q $$RPH06^PSOASAP0()
;
RPH07() ;Pharmacist First Name
Q $$RPH07^PSOASAP0()
;
RPH08() ;Pharmacist Middle Name
Q $$RPH08^PSOASAP0()
;
RPH09() ;Name Prefix (Not Used)
Q ""
;
RPH10() ;Name Suffix (Not Used)
Q ""
;
RPH11() ;Pharmacist Title (Not Used)
Q ""
;
; *** PLN Segment - Third-Party Plan (ASAP 3.0 Only) ***
PLN01() ;Reporting Status (Not Used)
Q ""
;
PLN02() ;Plan Coverage Status to Patient (Not Used)
Q ""
;
PLN03() ;Unique System ID - Plan (Not Used)
Q ""
;
PLN04() ;Classification Code for Plan Type (Not Used)
Q ""
;
PLN05() ;Plan Name (Not Used)
Q ""
;
PLN06() ;Processor BIN (Not Used)
Q ""
;
PLN07() ;Processor Control Number (Not Used)
Q ""
;
PLN08() ;Plan ID (Not Used)
Q ""
;
PLN09() ;Group Number (Not Used)
Q ""
;
PLN10() ;Cardholder ID (Not Used)
Q ""
;
PLN11() ;Person Code (Not Used)
Q ""
;
PLN12() ;Relationship Code (Not Used)
Q ""
;
; *** TP Segment - Pharmacy Trailer ***
TP01() ;Detail Segment Count
Q $G(PSOTPCNT)
;
; *** TT Segment - Transaction Set Trailer ***
TT01() ;Transaction Control Number
; ASAP 3.0 : Same as TH03
; ASAP 4.0+: Same as TH02
Q $$TT01^PSOASAP0()
;
TT02() ;Segment Count
Q $G(PSOTTCNT)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOASAP 18050 printed Aug 26, 2025@22:40:22 Page 2
PSOASAP ;BIRM/MFR - American Society for Automation in Pharmacy (ASAP) Field Values ;Jun 04, 2025@11:49:34
+1 ;;7.0;OUTPATIENT PHARMACY;**451,496,625,772**;DEC 1997;Build 105
+2 ;
+3 ; *** TH Segment - Transaction Header *****
TH01() ;ASAP Version (3.0, 4.0, 4.1, 4.2, etc.)
+1 IF $$VERSIONLOCKED^PSOSPMU0($PIECE(PSOASVER,"_"))
QUIT $PIECE(PSOASVER,"_")
+2 QUIT PSOASVER
+3 ;
TH02() ;ASAP 3.0 : Business Partner Implemetation Version (Not Used)
+1 ; ASAP 4.0+: Transaction Control Number
+2 QUIT $$TH02^PSOASAP0()
+3 ;
TH03() ;ASAP 3.0 : Transaction Control Number
+1 ; ASAP 4.0+: Transaction Type (Always "01" - Send/Request Transaction)
+2 QUIT $$TH03^PSOASAP0()
+3 ;
TH04() ;ASAP 3.0 : Transaction Type (Not Used)
+1 ; ASAP 4.0+: Response ID (Not Used)
+2 QUIT ""
+3 ;
TH05() ;ASAP 3.0 : Message Type (Not Used)
+1 ; ASAP 4.0+: Creation Date (Format: YYYYMMDD)
+2 QUIT $$TH05^PSOASAP0()
+3 ;
TH06() ;ASAP 3.0 : Response ID (Not Used)
+1 ; ASAP 4.0+: Creation Time. Format: HHMMSS or HHMM
+2 ; pso*7*772 need to perform different assignments depending on version
QUIT $$TH06^PSOASAP2()
+3 ;
TH07() ;ASAP 3.0 : Project ID (Not Used)
+1 ; ASAP 4.0+: File Type. Returns: "T" - Test or "P" - Production
+2 QUIT $$TH07^PSOASAP0()
+3 ;
TH08() ;ASAP 3.0 : Creation Date (Format: YYYYMMDD)
+1 ; ASAP 4.0 : Composite Element Separator (:)
+2 ; ASAP 4.1+: Routing Number (Real-time transactions only)(Not Used)
+3 QUIT $$TH08^PSOASAP0()
+4 ;
TH09() ;ASAP 3.0 : Creation Time. Format: HHMMSS or HHMM
+1 ; ASAP 4.0+: Segment Terminator Character
+2 QUIT $$TH09^PSOASAP0()
+3 ;
TH10() ;ASAP 3.0 : File Type
+1 ; ASAP 4.0+: N/A
+2 QUIT $$TH10^PSOASAP0()
+3 ;
TH11() ;ASAP 3.0 : Message (Not Used)
+1 ; ASAP 4.0+: N/A
+2 QUIT ""
+3 ;
TH12() ;ASAP 3.0 : Composite Element Separator
+1 ; ASAP 4.0+: N/A
+2 QUIT $$TH12^PSOASAP0()
+3 ;
TH13() ;ASAP 3.0 : Data Segment Terminator Character
+1 ; ASAP 4.0+: N/A
+2 QUIT $$TH13^PSOASAP0()
+3 ;
+4 ; *** IS Segment - Information Source ***
IS01() ; Unique Information Source ID
+1 ; pso*7*772 need to perform different assignments depending on version
QUIT $$IS01^PSOASAP2()
+2 ;
IS02() ; Information Source Entity Name
+1 QUIT $$GET1^DIQ(4,+$$SITE^VASITE,100)
+2 ;
IS03() ;ASAP 3.0 : Address Information 1 (Not Used)
+1 ; ASAP 4.0+: Message (Not Used)
+2 ; ZERO RPT 4.0+: Date Range of Report
+3 NEW BEGDATE,ENDDATE,RANGE
+4 SET (BEGDATE,ENDDATE,RANGE)=""
+5 IF $GET(BATCHIEN)
IF $$GET1^DIQ(58.42,BATCHIEN,2,"I")="ZR"
Begin DoDot:1
+6 SET BEGDATE=$$FMTHL7^XLFDT($$GET1^DIQ(58.42,BATCHIEN,4,"I")\1)
+7 SET ENDDATE=$$FMTHL7^XLFDT($$GET1^DIQ(58.42,BATCHIEN,5,"I")\1)
+8 SET RANGE="#"_BEGDATE_"#-#"_ENDDATE_"#"
End DoDot:1
QUIT RANGE
+9 QUIT ""
+10 ;
IS04() ;ASAP 3.0 : Address Information 2 (Not Used)
+1 ; ASAP 4.0+: N/A
+2 ; ASAP 5.0 : send VistA vendor
+3 QUIT "DEPT OF VET AFFAIRS - OFFICE OF INFORMATION AND TECHNOLOGY"
+4 ;
IS05() ;ASAP 3.0 : City Address (Not Used)
+1 ; ASAP 4.0+: N/A
+2 ; ASAP 5.0 : send null
+3 QUIT ""
+4 ;
IS06() ;ASAP 3.0 : State Address (Not Used)
+1 ; ASAP 4.0+: N/A
+2 QUIT ""
+3 ;
IS07() ;ASAP 3.0 : Zip code Address (Not Used)
+1 ; ASAP 4.0+: N/A
+2 QUIT ""
+3 ;
IS08() ;ASAP 3.0 : Phone Number (Not Used)
+1 ; ASAP 4.0+: N/A
+2 QUIT ""
+3 ;
IS09() ;ASAP 3.0 : Contact Name (Not Used)
+1 ; ASAP 4.0+: N/A
+2 QUIT ""
+3 ;
IS10() ;ASAP 3.0 : Message (Not Used)
+1 ; ASAP 4.0+: N/A
+2 QUIT ""
+3 ;
IS11() ;ASAP 3.0 : Data Entry Terminal ID (Not Used)
+1 ; ASAP 4.0+: N/A
+2 QUIT ""
+3 ;
+4 ; *** IR Segment - Information Receiver (ASAP 3.0 only) ***
IR01() ; Unique Information Receiver ID
+1 QUIT ("VA"_+$$SITE^VASITE())
+2 ;
IR02() ; Information Receiver Entity Name
+1 QUIT $$GET1^DIQ(5,STATEIEN,.01)_" PMP PROGRAM"
+2 ;
IR03() ;Address Information 1 (Not Used)
+1 QUIT ""
+2 ;
IR04() ;Address Information 2 (Not Used)
+1 QUIT ""
+2 ;
IR05() ;City Address (Not Used)
+1 QUIT ""
+2 ;
IR06() ;State Address (Not Used)
+1 QUIT ""
+2 ;
IR07() ;Zip code Address (Not Used)
+1 QUIT ""
+2 ;
IR08() ;Phone Number (Not Used)
+1 QUIT ""
+2 ;
IR09() ;Contact Name (Not Used)
+1 QUIT ""
+2 ;
IR10() ;Message (Not Used)
+1 QUIT ""
+2 ;
+3 ; *** PHA Segment - Pharmacy Header ***
PHA01() ; National Provider Identifier (NPI)
+1 QUIT $$PHA01^PSOASAP0()
+2 ;
PHA02() ;NCPDP/NABP Provider ID
+1 QUIT $$GET1^DIQ(59,SITEIEN,1008)
+2 ;
PHA03() ;Pharmacy DEA Number
+1 QUIT $$PHA03^PSOASAP0()
+2 ;
PHA04() ;Pharmacy Name
+1 QUIT $$GET1^DIQ(59,SITEIEN,.01)
+2 ;
PHA05() ;Pharmacy Address Information - Line 1
+1 QUIT $$TRIM^XLFSTR($$GET1^DIQ(59,SITEIEN,.02))
+2 ;
PHA06() ; Pharmacy Address Information - Line 2 (Not Used)
+1 QUIT ""
+2 ;
PHA07() ;Pharmacy City Address
+1 QUIT $$GET1^DIQ(59,SITEIEN,.07)
+2 ;
PHA08() ;Pharmacy State Address
+1 QUIT $$GET1^DIQ(5,STATEIEN,1)
+2 ;
PHA09() ;Pharmacy ZIP Code
+1 IF PSOASVER<5.0
QUIT $$NUMERIC^PSOASAP0($$GET1^DIQ(59,SITEIEN,.05))
+2 ;pso*7*772 no need to exclude hyphen(s) for 5.0+
QUIT $$GET1^DIQ(59,SITEIEN,.05)
+3 ;
PHA10() ;Phone Number
+1 QUIT $$PHA10^PSOASAP0()
+2 ;
PHA11() ;Pharmacy Contact name (Not Used)
+1 QUIT ""
+2 ;
PHA12() ;Pharmacy Chain Site ID (Not Used)
+1 QUIT ""
+2 ;
PHA13() ;Message (Not Used)
+1 QUIT ""
+2 ;
+3 ; *** PAT Segment - Patient Information ***
PAT01() ; ASAP 3.0 : Not Used
+1 ; ASAP 4.0+: ID Qualifier of Patient Identifier (Always "US" - United States)
+2 IF PSOASVER="3.0"
QUIT ""
+3 QUIT "US"
+4 ;
PAT02() ;ID Qualifier (Always "07" - Social Security Number)
+1 QUIT "07"
+2 ;
PAT03() ;ASAP 3.0 : Unique System ID - Patient (Not Used)
+1 ; ASAP 4.0+: ID of Patient (SSN)
+2 QUIT $$PAT03^PSOASAP0()
+3 ;
PAT04() ;ASAP 3.0 : SSN
+1 ; ASAP 4.0+: ID Qualifier of Additional Patient Identifier (Not Used)
+2 QUIT $$PAT04^PSOASAP0()
+3 ;
PAT05() ;Additional Patient ID Qualifier (Not Used)
+1 QUIT ""
+2 ;
PAT06() ;Additional ID (Not Used)
+1 QUIT ""
+2 ;
PAT07() ;Patient Last Name
+1 QUIT PSONAME("LAST")
+2 ;
PAT08() ;Patient First Name
+1 QUIT PSONAME("FIRST")
+2 ;
PAT09() ;Patient Middle Name or Initial
+1 QUIT PSONAME("MIDDLE")
+2 ;
PAT10() ;Name Prefix
+1 QUIT PSONAME("PREFIX")
+2 ;
PAT11() ;Name Suffix
+1 QUIT PSONAME("SUFFIX")
+2 ;
PAT12() ;Patient Address Information - Line 1
+1 QUIT $$PAT12^PSOASAP0()
+2 ;
PAT13() ;Patient Address Information - Line 2
+1 QUIT $$PAT13^PSOASAP0()
+2 ;
PAT14() ;Patient City Address
+1 QUIT $PIECE($GET(VAPA(4)),"^",1)
+2 ;
PAT15() ;Patient State Address
+1 QUIT $$PAT15^PSOASAP0()
+2 ;
PAT16() ;Patient ZIP Code
+1 QUIT $$PAT16^PSOASAP2()
+2 ;
PAT17() ;Patient Phone Number
+1 QUIT $$PAT17^PSOASAP0()
+2 ;
PAT18() ;ASAP 3.0 : Email Address (Not Used)
+1 ; ASAP 4.0+: Patient DOB
+2 QUIT $$PAT18^PSOASAP0()
+3 ;
PAT19() ;ASAP 3.0 : Patient DOB
+1 ; ASAP 4.0+: Patient Gender Code
+2 QUIT $$PAT19^PSOASAP0()
+3 ;
PAT20() ;ASAP 3.0 : Patient Gender Code
+1 ; ASAP 4.0+: Species Code (Always return "01" for 'Human')
+2 QUIT $$PAT20^PSOASAP0()
+3 ;
PAT21() ;Patient Location Code (Always return "10" for 'Outpatient')
+1 QUIT "10"
+2 ;
PAT22() ;ASAP 3.0 : Primary Prescription Coverage Type (Not Used)
+1 ; ASAP 4.0+:Country of Non-U.S. Resident
+2 QUIT $$PAT22^PSOASAP0()
+3 ;
PAT23() ;ASAP 3.0: Secondary Prescription Coverage Type (Not Used)
+1 QUIT ""
+2 ;
+3 ; *** RX Segment - Prescription Order (ASAP 3.0 only) ***
RX01() ;Reporting Status ("01" - Add / "02" - Change / "03" - Delete)
+1 QUIT $SELECT($GET(RECTYPE)="N":"01",$GET(RECTYPE)="R":"02",$GET(RECTYPE)="V":"03",1:"")
+2 ;
RX02() ;Program Participation Status (Not Used)
+1 QUIT ""
+2 ;
RX03() ;Prescription Number
+1 QUIT $$GET1^DIQ(52,+$GET(RXIEN),.01)
+2 ;
RX04() ;Unique System ID() - RPh (Not Used)
+1 QUIT ""
+2 ;
RX05() ;Unique System ID() - Patient (Not Used)
+1 QUIT ""
+2 ;
RX06() ;Unique System ID() - Prescriber (Not Used)
+1 QUIT ""
+2 ;
RX07() ;Unique System ID() - Drug (Not Used)
+1 QUIT ""
+2 ;
RX08() ;Date Rx Written (Format: YYYYMMDD)
+1 QUIT $$RX08^PSOASAP0()
+2 ;
RX09() ;RX Start Date (Not Used)
+1 QUIT ""
+2 ;
RX10() ;RX End Date (Not Used)
+1 QUIT ""
+2 ;
RX11() ;Diagnosis Code Qualifier
+1 QUIT ""
+2 ;
RX12() ;Diagnosis Code
+1 QUIT ""
+2 ;
RX13() ;Product ID Qualifier (Always return "01" for 'NDC')
+1 QUIT "01"
+2 ;
RX14() ;Product ID (NDC - National Drug Code)
+1 QUIT $$RX14^PSOASAP0()
+2 ;
RX15() ;Product Description (Not Used)
+1 QUIT ""
+2 ;
RX16() ;DAW Code (Not Used)
+1 QUIT ""
+2 ;
RX17() ;Quantity Dispensed
+1 QUIT $SELECT(RECTYPE="V":$GET(RTSDATA("QTY")),1:$$RXQTY^PSOBPSUT(RXIEN,FILLNUM))
+2 ;
RX18() ;Days Supply
+1 QUIT $SELECT(RECTYPE="V":$GET(RTSDATA("DAYSUP")),1:$$RXDAYSUP^PSOBPSUT(RXIEN,FILLNUM))
+2 ;
RX19() ;Basis of Days Supply Determination (Not Used)
+1 QUIT ""
+2 ;
RX20() ;Refills Authorized
+1 QUIT +$$GET1^DIQ(52,+$GET(RXIEN),9)
+2 ;
RX21() ;Refills Authorized Through Date (Not Used)
+1 QUIT ""
+2 ;
RX22() ;DEA Schedule (Not Used)
+1 QUIT ""
+2 ;
RX23() ;Unit Dose Indicator (Not Used)
+1 QUIT ""
+2 ;
RX24() ;Compound Indicator (Not Used)
+1 QUIT ""
+2 ;
RX25() ;Origin Code (Not Used)
+1 QUIT ""
+2 ;
RX26() ;Brand Versus Generic Indicator (Not Used)
+1 QUIT ""
+2 ;
RX27() ;Original Fill Date (Not Used)
+1 QUIT ""
+2 ;
RX28() ;AlternateRX Identifier (Not Used)
+1 QUIT ""
+2 ;
RX29() ;Previous RX Number (Not Used)
+1 QUIT ""
+2 ;
+3 ; *** DSP Segment - Dispensing Record ***
DSP01() ;ASAP 3.0 : Reporting Status ("01" - Add / "02" - Change / "03" - Delete)
+1 ; ASAP 4.0 : Reporting Status ("" - New / "01" - Revise / "02" - Void)
+2 ; ASAP 4.1+: Reporting Status ("00" - New / "01" - Revise / "02" - Void)
+3 QUIT $$DSP01^PSOASAP0()
+4 ;
DSP02() ;ASAP 3.0 : Program Participation Status (Not Used)
+1 ; ASAP 4.0+: Prescription Number (Not Used by ASAP 3.0)
+2 QUIT $$DSP02^PSOASAP0()
+3 ;
DSP03() ;ASAP 3.0 : Prescription Number
+1 ; ASAP 4.0+: Date Rx Written (Format: YYYYMMDD)
+2 QUIT $$DSP03^PSOASAP0()
+3 ;
DSP04() ;ASAP 3.0 : Refill Number
+1 ; ASAP 4.0+: Refills Authorized
+2 QUIT $$DSP04^PSOASAP0()
+3 ;
DSP05() ;ASAP 3.0 : Unique System ID - RPh (Not Used)
+1 ; ASAP 4.0+: Date Filled (Release Date) (Format: YYYYMMDD)
+2 QUIT $$DSP05^PSOASAP0()
+3 ;
DSP06() ;ASAP 3.0 : ;Unique System ID - Patient (Not Used)
+1 ; ASAP 4.0+: Refill Number (Partials are always "0")
+2 QUIT $$DSP06^PSOASAP0()
+3 ;
DSP07() ;ASAP 3.0 : ;Unique System ID - Prescriber (Not Used)
+1 ; ASAP 4.0+: Product ID Qualifier (Always return "01" for 'NDC')
+2 QUIT $$DSP07^PSOASAP0()
+3 ;
DSP08() ;Product ID (NDC - National Drug Code) (ASAP 3.0: Not Used)
+1 QUIT $$DSP08^PSOASAP2()
+2 ;
DSP09() ;ASAP 3.0: Date Filled
+1 ; ASAP 4.0+: Quantity Dispensed
+2 QUIT $$DSP09^PSOASAP0()
+3 ;
DSP10() ;Days Supply
+1 QUIT $$DSP10^PSOASAP0()
+2 ;
DSP11() ;ASAP 3.0 : Product ID Qualifier (01:NDC)
+1 ; ASAP 4.0+: Drug Dosage Units Code
+2 QUIT $$DSP11^PSOASAP0()
+3 ;
DSP12() ;ASAP 3.0: Product ID (NDC)
+1 ; ASAP 4.0+: Transmission Form of Rx Origin Code (Nature of Order)
+2 QUIT $$DSP12^PSOASAP0()
+3 ;
DSP13() ;ASAP 3.0 : Product Description (Not Used)
+1 ; ASAP 4.0+: Partial Fill Indicator
+2 QUIT $$DSP13^PSOASAP0()
+3 ;
DSP14() ;ASAP 3.0 : Quantity Dispensed
+1 ; ASAP 4.0+: Pharmacist National Provider Identifier (NPI)
+2 QUIT $$DSP14^PSOASAP0()
+3 ;
DSP15() ;ASAP 3.0 : Days Supply
+1 ; ASAP 4.0+: Pharmacist State License Number (Not Used)
+2 QUIT $$DSP15^PSOASAP0()
+3 ;
DSP16() ;ASAP 3.0 : Basis of Days Supply Determiniation (Always "3" for 'As directed by doctor')
+1 ; ASAP 4.0+: Classification Code for Payment Type (Always return "05" for 'Military Installations and VA')
+2 QUIT $$DSP16^PSOASAP0()
+3 ;
DSP17() ;ASAP 3.0 : Refills Remaining (Not Used)
+1 ; ASAP 4.0 : N/A (up to DSP16 only)
+2 ; ASAP 4.1+: Date Sold
+3 QUIT $$DSP17^PSOASAP0()
+4 ;
DSP18() ;ASAP 3.0: Refills Authorized Through Date (Not Used)
+1 ; ASAP 4.1: RxNorm Code (Not Used)
+2 ; ASAP 4.2: RxNorm Product Qualifier (Not Used)
+3 QUIT ""
+4 ;
DSP19() ;ASAP 3.0: Previous Fill Date (Not Used)
+1 ; ASAP 4.1: Electronic Prescription Reference Number (Not Used)
+2 ; ASAP 4.2: RxNorm Code (Not Used)
+3 QUIT ""
+4 ;
DSP20() ;ASAP 3.0: Previous Fill Quantity Dispensed (Not Used)
+1 ; ASAP 4.2: Electronic Prescription Reference Number (Not Used)
+2 QUIT ""
+3 ;
DSP21() ;ASAP 3.0: Level of Service Code (Not Used)
+1 ; ASAP 4.2: Electronic Prescription Order Number (Not Used)
+2 QUIT ""
+3 ;
DSP22() ;ASAP 3.0: Brand or Generic Indicator (Not Used)
+1 ; ASAP 4.2+: Quantity Prescribed - assign the value from DSP09 Quantity
+2 ; Dispensed when the end-user activates DSP22 from Not Used
+3 ; to Required or Optional (on a custom, unlocked ASAP version)
+4 IF $EXTRACT($GET(PSOASVER),1,4)="4.2A"!($EXTRACT($GET(PSOASVER),1,4)="4.2B"!($EXTRACT($GET(PSOASVER),1,3)="5.0"))!(PSOASVER>5)
QUIT $$DSP09^PSOASAP0()
+5 QUIT ""
+6 ;
DSP23() ;ASAP 3.0: Patient Advisory Leaflet (Not Used)
+1 ; ASAP 4.2a+: Rx Sig (added in 4.2a)
+2 QUIT $$DSP23^PSOASAP1()
+3 ;
DSP24() ;ASAP 3.0: Warning/Auxiliary Labels (Not Used)
+1 QUIT ""
+2 ;
DSP25() ;ASAP 3.0: Warning/Auxiliary Labels (Not Used)
+1 QUIT ""
+2 ;
+3 ; *** PRE Segment - Prescriber Information ***
PRE01() ;ASAP 3.0 : Not Used
+1 ; ASAP 4.0+: Prescriber National Provider Identifier (NPI)
+2 QUIT $$PRE01^PSOASAP0()
+3 ;
PRE02() ; Prescriber DEA Number
+1 QUIT $$PRE02^PSOASAP0()
+2 ;
PRE03() ;ASAP 3.0 : Prescriber NPI
+1 ; ASAP 4.0+: Prescriber DEA Number Suffix
+2 QUIT $$PRE03^PSOASAP0()
+3 ;
PRE04() ;ASAP 3.0 : Prescriber DEA Number
+1 ; ASAP 4.0+: Prescriber State License Number (Not Used)
+2 QUIT $$PRE04^PSOASAP0()
+3 ;
PRE05() ;ASAP 3.0 : Prescriber DEA Number Suffix
+1 ; ASAP 4.0+: Prescriber Last Name
+2 QUIT $$PRE05^PSOASAP0()
+3 ;
PRE06() ;ASAP 3.0 : Prescriber State Lince Number (Not Used)
+1 ; ASAP 4.0+: Prescriber First Name
+2 QUIT $$PRE06^PSOASAP0()
+3 ;
PRE07() ;ASAP 3.0 : Prescriber Alternate ID (Not Used)
+1 ; ASAP 4.0+: Prescriber Middle Name
+2 QUIT $$PRE07^PSOASAP0()
+3 ;
PRE08() ;ASAP 3.0 : Prescriber's Last Name
+1 ; ASAP 4.0 & 4.1: N/A (Up to PRE07 only)
+2 ; ASAP 4.2: Prescriber's Phone Number
+3 QUIT $$PRE08^PSOASAP0()
+4 ;
PRE09() ;ASAP 3.0: Prescriber' First Name
+1 QUIT $$PRE09^PSOASAP0()
+2 ;
PRE10() ;ASAP 3.0: Prescriber' Middle Name
+1 ; ASAP 4.2B+ : Jurisdiction or State Issuing Prescriber License Number
+2 QUIT $$PRE10^PSOASAP0()
+3 ;
+4 ; *** CDI Segment - Compound Drug Ingredient Detail ***
CDI01() ;Compound Drug Ingredient Sequence Number (Not Used)
+1 QUIT ""
+2 ;
CDI02() ;Product ID Qualifier (Not Used)
+1 QUIT ""
+2 ;
CDI03() ;Product ID (Not Used)
+1 QUIT ""
+2 ;
CDI04() ;Component Ingredient Product Description (Not Used)
+1 QUIT ""
+2 ;
CDI05() ;Component Ingredient Quantity (Not Used)
+1 QUIT ""
+2 ;
CDI06() ;ASAP 3.0: Component Ingredient Cost (Not Used)
+1 QUIT ""
+2 ;
CDI07() ;ASAP 3.0: Component Ingredient Basis of Cost Determination (Not Used)
+1 QUIT ""
+2 ;
CDI08() ;ASAP 3.0: Compound Drug Dosage Units Code (Not Used)
+1 QUIT ""
+2 ;
+3 ; *** CSR Segment - Controlled Substance Reporting (ASAP 3.0 only) ***
CSR01() ;State Issuing Rx Serial Number (Not Used)
+1 QUIT ""
+2 ;
CSR02() ;State Issued Rx Serial Number (Not Used)
+1 QUIT ""
+2 ;
CSR03() ;ID Qualifier (Not Used)
+1 QUIT ""
+2 ;
CSR04() ;ID of Person Picking Up Rx (Not Used)
+1 QUIT ""
+2 ;
CSR05() ;Relationship of Person Picking Up Rx (Not Used)
+1 QUIT ""
+2 ;
CSR06() ;Last Name of Person Picking Up Rx (Not Used)
+1 QUIT ""
+2 ;
CSR07() ;First Name of Person Picking Up Rx (Not Used)
+1 QUIT ""
+2 ;
+3 ; *** AIR Segment - Additional Information Reporting (Not Used by ASAP 3.0) ***
AIR01() ;State Issuing Rx Serial Number (Not Used)
+1 QUIT ""
+2 ;
AIR02() ;State Issued Rx Serial Number (Not Used)
+1 QUIT ""
+2 ;
AIR03() ;Issuing Jurisdiction (Not Used)
+1 QUIT ""
+2 ;
AIR04() ;ID Qualifier of Person Dropping Off or Picking Up Rx (Not Used)
+1 QUIT ""
+2 ;
AIR05() ;ID of Person Dropping Off or Picking Up Rx (Not Used)
+1 QUIT ""
+2 ;
AIR06() ;Relationship of Person Dropping Off or Picking Up Rx (Not Used)
+1 QUIT ""
+2 ;
AIR07() ;Last Name of Person Dropping Off or Picking Up Rx (Not Used)
+1 QUIT ""
+2 ;
AIR08() ;First Name of Person Dropping Off or Picking Up Rx (Not Used)
+1 QUIT ""
+2 ;
AIR09() ;Last Name or Initials of Pharmacist (Not Used)
+1 QUIT ""
+2 ;
AIR10() ;First Name of Pharmacist (Not Used)
+1 QUIT ""
+2 ;
AIR11() ;ASAP 4.2: Dropping Off/Picking Up Identifier Qualifier
+1 QUIT ""
+2 ;
AIR12() ;(Not Used)
+1 QUIT ""
+2 ;
AIR13() ; (Not Used)
+1 QUIT ""
+2 ;
AIR14() ; (Not Used)
+1 QUIT ""
+2 ;
AIR15() ;(Not Used)
+1 QUIT ""
+2 ;
AIR16() ; (Not Used)
+1 QUIT ""
+2 ;
AIR17() ; (Not Used)
+1 QUIT ""
+2 ;
AIR18() ; (Not Used)
+1 QUIT ""
+2 ;
AIR19() ; (Not Used)
+1 QUIT ""
+2 ;
AIR20() ;(Not Used)
+1 QUIT ""
+2 ;
AIR21() ;(Not Used)
+1 QUIT ""
+2 ;
AIR22() ; (Not Used)
+1 QUIT ""
+2 ;
AIR23() ; (Not Used)
+1 QUIT ""
+2 ;
AIR24() ;(Not Used)
+1 QUIT ""
+2 ;
AIR25() ; (Not Used)
+1 QUIT ""
+2 ;
AIR26() ;(Not Used)
+1 QUIT ""
+2 ;
AIR27() ; (Not Used)
+1 QUIT ""
+2 ;
AIR28() ;(Not Used)
+1 QUIT ""
+2 ;
AIR29() ;(Not Used)
+1 QUIT ""
+2 ;
AIR30() ; (Not Used)
+1 QUIT ""
+2 ;
AIR31() ; (Not Used)
+1 QUIT ""
+2 ;
AIR32() ; (Not Used)
+1 QUIT ""
+2 ;
+3 ; *** RPH Segment - Pharmacist Information (ASAP 3.0 Only) ***
RPH01() ;Reporting Status (Not Used)
+1 QUIT ""
+2 ;
RPH02() ;Unique System ID (Not Used)
+1 QUIT ""
+2 ;
RPH03() ;National Provider Identification (NPI)
+1 QUIT $$RPH03^PSOASAP0()
+2 ;
RPH04() ;Pharmacist State License Number (Not Used)
+1 QUIT ""
+2 ;
RPH05() ;Pharmacist Alternate ID (Not Used)
+1 QUIT ""
+2 ;
RPH06() ;Pharmacist Last Name
+1 QUIT $$RPH06^PSOASAP0()
+2 ;
RPH07() ;Pharmacist First Name
+1 QUIT $$RPH07^PSOASAP0()
+2 ;
RPH08() ;Pharmacist Middle Name
+1 QUIT $$RPH08^PSOASAP0()
+2 ;
RPH09() ;Name Prefix (Not Used)
+1 QUIT ""
+2 ;
RPH10() ;Name Suffix (Not Used)
+1 QUIT ""
+2 ;
RPH11() ;Pharmacist Title (Not Used)
+1 QUIT ""
+2 ;
+3 ; *** PLN Segment - Third-Party Plan (ASAP 3.0 Only) ***
PLN01() ;Reporting Status (Not Used)
+1 QUIT ""
+2 ;
PLN02() ;Plan Coverage Status to Patient (Not Used)
+1 QUIT ""
+2 ;
PLN03() ;Unique System ID - Plan (Not Used)
+1 QUIT ""
+2 ;
PLN04() ;Classification Code for Plan Type (Not Used)
+1 QUIT ""
+2 ;
PLN05() ;Plan Name (Not Used)
+1 QUIT ""
+2 ;
PLN06() ;Processor BIN (Not Used)
+1 QUIT ""
+2 ;
PLN07() ;Processor Control Number (Not Used)
+1 QUIT ""
+2 ;
PLN08() ;Plan ID (Not Used)
+1 QUIT ""
+2 ;
PLN09() ;Group Number (Not Used)
+1 QUIT ""
+2 ;
PLN10() ;Cardholder ID (Not Used)
+1 QUIT ""
+2 ;
PLN11() ;Person Code (Not Used)
+1 QUIT ""
+2 ;
PLN12() ;Relationship Code (Not Used)
+1 QUIT ""
+2 ;
+3 ; *** TP Segment - Pharmacy Trailer ***
TP01() ;Detail Segment Count
+1 QUIT $GET(PSOTPCNT)
+2 ;
+3 ; *** TT Segment - Transaction Set Trailer ***
TT01() ;Transaction Control Number
+1 ; ASAP 3.0 : Same as TH03
+2 ; ASAP 4.0+: Same as TH02
+3 QUIT $$TT01^PSOASAP0()
+4 ;
TT02() ;Segment Count
+1 QUIT $GET(PSOTTCNT)
