PSO625PI ;BIRM/SJA - PSO*7*625 Post-install routine ;09/24/20
;;7.0;OUTPATIENT PHARMACY;**625**;DEC 1997;Build 42
;
POST ;
N V,S,D,E,L,X
S V="VER",S="SEG",D="DAT",E="DES",L="VAL"
K ^PS(58.4,1,V,8),^PS(58.4,1,V,9)
S ^PS(58.4,1,V,0)="^58.4001^9^8"
S ^PS(58.4,1,V,8,0)="4.1Z^*^~^$C(13,10)^1"
S ^PS(58.4,1,V,8,S,0)="^58.40011I^9^9"
S ^PS(58.4,1,V,8,S,1,0)="AIR^Additional Information Reporting^DSP^O^3^4"
S ^PS(58.4,1,V,8,S,1,D,0)="^58.400111I^^0"
S ^PS(58.4,1,V,8,S,2,0)="CDI^Compound Drug Ingredient Detail^DSP^O^2^4"
S ^PS(58.4,1,V,8,S,2,D,0)="^58.400111I^4^4"
S ^PS(58.4,1,V,8,S,2,D,1,0)="CDI01^Compound Drug Ingredient Sequence Number^N^2^1^R"
S ^PS(58.4,1,V,8,S,2,D,1,E,0)="^58.4001111^1^1^3201012^"
S ^PS(58.4,1,V,8,S,2,D,1,E,1,0)="Increment by 1 for each compounding ingredient being reported."
S ^PS(58.4,1,V,8,S,2,D,1,L,0)="^^1^1^3201012^"
S ^PS(58.4,1,V,8,S,2,D,1,L,1,0)=""""""
S ^PS(58.4,1,V,8,S,2,D,2,0)="CDI02^Product ID Qualifier^N^2^2^R"
S ^PS(58.4,1,V,8,S,2,D,2,E,0)="^58.4001111^7^7^3201012^"
S ^PS(58.4,1,V,8,S,2,D,2,E,1,0)="Code to identify the type of product ID contained in CDI03."
S ^PS(58.4,1,V,8,S,2,D,2,E,2,0)=" 01 NDC"
S ^PS(58.4,1,V,8,S,2,D,2,E,3,0)=" 02 UPC"
S ^PS(58.4,1,V,8,S,2,D,2,E,4,0)=" 03 HRI"
S ^PS(58.4,1,V,8,S,2,D,2,E,5,0)=" 04 UPN"
S ^PS(58.4,1,V,8,S,2,D,2,E,6,0)=" 05 DIN"
S ^PS(58.4,1,V,8,S,2,D,2,E,7,0)=" 06 CPD (This code is not used in this segment.)"
S ^PS(58.4,1,V,8,S,2,D,2,L,0)="^^1^1^3201012^"
S ^PS(58.4,1,V,8,S,2,D,2,L,1,0)=""""""
S ^PS(58.4,1,V,8,S,2,D,3,0)="CDI03^Product ID^AN^15^3^R"
S ^PS(58.4,1,V,8,S,2,D,3,E,0)="^58.4001111^2^2^3201017^^"
S ^PS(58.4,1,V,8,S,2,D,3,E,1,0)="Full product identification as indicated in CDI02, including leading "
S ^PS(58.4,1,V,8,S,2,D,3,E,2,0)="zeros without punctuation."
S ^PS(58.4,1,V,8,S,2,D,3,L,0)="^58.410111^1^1^3201017^^"
S ^PS(58.4,1,V,8,S,2,D,3,L,1,0)=""""""
S ^PS(58.4,1,V,8,S,2,D,4,0)="CDI04^Component Ingredient Quantity^D^11^4^R"
S ^PS(58.4,1,V,8,S,2,D,4,L,0)="^^1^1^3201017^"
S ^PS(58.4,1,V,8,S,2,D,4,L,1,0)=""""""
S ^PS(58.4,1,V,8,S,2,D,"B","CDI01",1)=""
S ^PS(58.4,1,V,8,S,2,D,"B","CDI02",2)=""
S ^PS(58.4,1,V,8,S,2,D,"B","CDI03",3)=""
S ^PS(58.4,1,V,8,S,2,D,"B","CDI04",4)=""
S ^PS(58.4,1,V,8,S,3,0)="DSP^Dispensing Record^PAT^R^1^4"
S ^PS(58.4,1,V,8,S,3,D,0)="^58.400111I^10^10"
S ^PS(58.4,1,V,8,S,3,D,1,0)="DSP01^Reporting Status^N^2^1^R"
S ^PS(58.4,1,V,8,S,3,D,1,E,0)="^58.4001111^10^10^3201012^"
S ^PS(58.4,1,V,8,S,3,D,1,E,1,0)="Required when reporting a change or cancellation of a previously "
S ^PS(58.4,1,V,8,S,3,D,1,E,2,0)="transmitted prescription record. 00 indicates a new prescription "
S ^PS(58.4,1,V,8,S,3,D,1,E,3,0)="dispensing transaction. 01 would be used when information on the"
S ^PS(58.4,1,V,8,S,3,D,1,E,4,0)="original prescription, including patient information, has been changed. "
S ^PS(58.4,1,V,8,S,3,D,1,E,5,0)="02 would be used when the prescription was not picked up and returned to "
S ^PS(58.4,1,V,8,S,3,D,1,E,6,0)="stock."
S ^PS(58.4,1,V,8,S,3,D,1,E,7,0)=" 00 New Record (Not available for ASAP 4.0)"
S ^PS(58.4,1,V,8,S,3,D,1,E,8,0)=" 01 Change/Revise"
S ^PS(58.4,1,V,8,S,3,D,1,E,9,0)=" 02 Cancel/Void (Rx not picked up and returned to stock)"
S ^PS(58.4,1,V,8,S,3,D,1,E,10,0)=" 03 Purged (Rx reported in error) (Available in 4.0 only)"
S ^PS(58.4,1,V,8,S,3,D,1,L,0)="^^1^1^3201012^"
S ^PS(58.4,1,V,8,S,3,D,1,L,1,0)=""""""
S ^PS(58.4,1,V,8,S,3,D,2,0)="DSP02^Prescription Number^AN^25^2^R"
S ^PS(58.4,1,V,8,S,3,D,2,E,0)="^58.4001111^1^1^3201012^"
S ^PS(58.4,1,V,8,S,3,D,2,E,1,0)="Serial number assigned to the prescription by the pharmacy."
S ^PS(58.4,1,V,8,S,3,D,2,L,0)="^^1^1^3201012^"
S ^PS(58.4,1,V,8,S,3,D,2,L,1,0)=""""""
S ^PS(58.4,1,V,8,S,3,D,3,0)="DSP03^Date Written^DT^8^3^R"
S ^PS(58.4,1,V,8,S,3,D,3,E,0)="^58.4001111^1^1^3201012^"
S ^PS(58.4,1,V,8,S,3,D,3,E,1,0)="Date the prescription was written (authorized). Format: CCYYMMDD."
S ^PS(58.4,1,V,8,S,3,D,3,L,0)="^^1^1^3201012^"
S ^PS(58.4,1,V,8,S,3,D,3,L,1,0)=""""""
S ^PS(58.4,1,V,8,S,3,D,4,0)="DSP04^Refills Authorized^N^2^4^R"
S ^PS(58.4,1,V,8,S,3,D,4,E,0)="^58.4001111^1^1^3201012^"
S ^PS(58.4,1,V,8,S,3,D,4,E,1,0)="The number of refills authorized by the prescriber."
S ^PS(58.4,1,V,8,S,3,D,4,L,0)="^^1^1^3201012^"
S ^PS(58.4,1,V,8,S,3,D,4,L,1,0)=""""""
S ^PS(58.4,1,V,8,S,3,D,5,0)="DSP05^Date of Report^DT^8^5^R"
S ^PS(58.4,1,V,8,S,3,D,5,E,0)="^58.4001111^1^1^3201017^^^"
S ^PS(58.4,1,V,8,S,3,D,5,E,1,0)="Date prescription was filled. Format: CCYYMMDD."
S ^PS(58.4,1,V,8,S,3,D,5,L,0)="^58.410111^1^1^3201017^^^"
S ^PS(58.4,1,V,8,S,3,D,5,L,1,0)="$$DSP05^PSOASAP()"
S ^PS(58.4,1,V,8,S,3,D,6,0)="DSP06^Refill Number^N^2^6^R"
S ^PS(58.4,1,V,8,S,3,D,6,E,0)="^58.4001111^2^2^3201012^"
S ^PS(58.4,1,V,8,S,3,D,6,E,1,0)="Number of the fill of the prescription. 0 indicates New Rx, 01-99 is the "
S ^PS(58.4,1,V,8,S,3,D,6,E,2,0)="refill number."
S ^PS(58.4,1,V,8,S,3,D,6,L,0)="^^1^1^3201012^"
S ^PS(58.4,1,V,8,S,3,D,6,L,1,0)=""""""
S ^PS(58.4,1,V,8,S,3,D,7,0)="DSP07^Product ID Qualifier^N^2^7^R"
S ^PS(58.4,1,V,8,S,3,D,7,E,0)="^58.4001111^7^7^3201012^"
S ^PS(58.4,1,V,8,S,3,D,7,E,1,0)="Used to identify the type of product ID contained in DSP08."
S ^PS(58.4,1,V,8,S,3,D,7,E,2,0)=" 01 NDC"
S ^PS(58.4,1,V,8,S,3,D,7,E,3,0)=" 02 UPC"
S ^PS(58.4,1,V,8,S,3,D,7,E,4,0)=" 03 HRI"
S ^PS(58.4,1,V,8,S,3,D,7,E,5,0)=" 04 UPN"
S ^PS(58.4,1,V,8,S,3,D,7,E,6,0)=" 05 DIN"
S ^PS(58.4,1,V,8,S,3,D,7,E,7,0)=" 06 CPD (used for a compound)"
S ^PS(58.4,1,V,8,S,3,D,7,L,0)="^^1^1^3201012^"
S ^PS(58.4,1,V,8,S,3,D,7,L,1,0)=""""""
S ^PS(58.4,1,V,8,S,3,D,8,0)="DSP08^Product ID^AN^15^8^R"
S ^PS(58.4,1,V,8,S,3,D,8,E,0)="^58.4001111^4^4^3201012^"
S ^PS(58.4,1,V,8,S,3,D,8,E,1,0)="Full product identification as indicated in DSP07, including leading "
S ^PS(58.4,1,V,8,S,3,D,8,E,2,0)="zeros without punctuation. If the product is a compound, use 99999 as the "
S ^PS(58.4,1,V,8,S,3,D,8,E,3,0)="first five characters of the product code. The remaining characters are "
S ^PS(58.4,1,V,8,S,3,D,8,E,4,0)="assigned by the pharmacy. The CDI then becomes a required segment."
S ^PS(58.4,1,V,8,S,3,D,8,L,0)="^^1^1^3201012^"
S ^PS(58.4,1,V,8,S,3,D,8,L,1,0)=""""""
S ^PS(58.4,1,V,8,S,3,D,9,0)="DSP09^Quantity Dispensed^D^11^9^R"
S ^PS(58.4,1,V,8,S,3,D,9,E,0)="^58.4001111^2^2^3201012^"
S ^PS(58.4,1,V,8,S,3,D,9,E,1,0)="Number of metric units dispensed in metric decimal format."
S ^PS(58.4,1,V,8,S,3,D,9,E,2,0)="Example: 2.5. Note: For compounds show the first quantity in CDI04."
S ^PS(58.4,1,V,8,S,3,D,9,L,0)="^^1^1^3201012^"
S ^PS(58.4,1,V,8,S,3,D,9,L,1,0)=""""""
S ^PS(58.4,1,V,8,S,3,D,10,0)="DSP10^Days Supply^N^3^10^R"
S ^PS(58.4,1,V,8,S,3,D,10,E,0)="^58.4001111^1^1^3201012^"
S ^PS(58.4,1,V,8,S,3,D,10,E,1,0)="Estimated number of days the medication will last."
S ^PS(58.4,1,V,8,S,3,D,10,L,0)="^^1^1^3201012^"
S ^PS(58.4,1,V,8,S,3,D,10,L,1,0)=""""""
S ^PS(58.4,1,V,8,S,3,D,"B","DSP01",1)=""
S ^PS(58.4,1,V,8,S,3,D,"B","DSP02",2)=""
S ^PS(58.4,1,V,8,S,3,D,"B","DSP03",3)=""
S ^PS(58.4,1,V,8,S,3,D,"B","DSP04",4)=""
S ^PS(58.4,1,V,8,S,3,D,"B","DSP05",5)=""
S ^PS(58.4,1,V,8,S,3,D,"B","DSP06",6)=""
S ^PS(58.4,1,V,8,S,3,D,"B","DSP07",7)=""
S ^PS(58.4,1,V,8,S,3,D,"B","DSP08",8)=""
S ^PS(58.4,1,V,8,S,3,D,"B","DSP09",9)=""
S ^PS(58.4,1,V,8,S,3,D,"B","DSP10",10)=""
S ^PS(58.4,1,V,8,S,4,0)="IS^Information Source^TH^R^1^1"
S ^PS(58.4,1,V,8,S,4,D,0)="^58.400111I^2^2"
S ^PS(58.4,1,V,8,S,4,D,1,0)="IS01^Unique Information Source ID^AN^10^1^R"
S ^PS(58.4,1,V,8,S,4,D,1,E,0)="^58.4001111^2^2^3201017^"
S ^PS(58.4,1,V,8,S,4,D,1,E,1,0)="Reference number or identification number as defined by the business "
S ^PS(58.4,1,V,8,S,4,D,1,E,2,0)="partners. (Example: Phone number)."
S ^PS(58.4,1,V,8,S,4,D,1,L,0)="^58.410111^1^1^3201017^"
S ^PS(58.4,1,V,8,S,4,D,1,L,1,0)="$$IS01^PSOASAP()"
S ^PS(58.4,1,V,8,S,4,D,2,0)="IS02^Information Source Entity Name^AN^60^2^R"
S ^PS(58.4,1,V,8,S,4,D,2,E,0)="^58.4001111^1^1^3201017^"
S ^PS(58.4,1,V,8,S,4,D,2,E,1,0)="Entity name of the Information Source."
S ^PS(58.4,1,V,8,S,4,D,2,L,0)="^58.410111^1^1^3201017^"
S ^PS(58.4,1,V,8,S,4,D,2,L,1,0)="$$IS02^PSOASAP()"
S ^PS(58.4,1,V,8,S,4,D,"B","IS01",1)=""
S ^PS(58.4,1,V,8,S,4,D,"B","IS02",2)=""
S ^PS(58.4,1,V,8,S,5,0)="PAT^Patient Information^PHA^R^1^3"
S ^PS(58.4,1,V,8,S,5,D,0)="^58.400111I^19^19"
S ^PS(58.4,1,V,8,S,5,D,1,0)="PAT01^ID Qualifier of Patient Identifier^AN^2^1^O"
S ^PS(58.4,1,V,8,S,5,D,1,E,0)="^58.4001111^2^2^3201012^"
S ^PS(58.4,1,V,8,S,5,D,1,E,1,0)="Code identifying the jurisdiction that issues the ID in PAT03. Used if "
S ^PS(58.4,1,V,8,S,5,D,1,E,2,0)="the PMP requires such identification and PAT02 is equal to 02 or 06."
S ^PS(58.4,1,V,8,S,5,D,1,L,0)="^^1^1^3201012^"
S ^PS(58.4,1,V,8,S,5,D,1,L,1,0)=""""""
S ^PS(58.4,1,V,8,S,5,D,2,0)="PAT02^ID Qualifier^N^2^2^O"
S ^PS(58.4,1,V,8,S,5,D,2,E,0)="^58.4001111^11^11^3201012^"
S ^PS(58.4,1,V,8,S,5,D,2,E,1,0)="Code to identify the type of ID in PAT03. If PAT02 is used, PAT03 is "
S ^PS(58.4,1,V,8,S,5,D,2,E,2,0)="required."
S ^PS(58.4,1,V,8,S,5,D,2,E,3,0)=" 01 Military ID"
S ^PS(58.4,1,V,8,S,5,D,2,E,4,0)=" 02 State Issued ID"
S ^PS(58.4,1,V,8,S,5,D,2,E,5,0)=" 03 Unique System ID"
S ^PS(58.4,1,V,8,S,5,D,2,E,6,0)=" 04 Permanent Resident Card (Green Card)"
S ^PS(58.4,1,V,8,S,5,D,2,E,7,0)=" 05 Passport ID"
S ^PS(58.4,1,V,8,S,5,D,2,E,8,0)=" 06 Driver's License ID"
S ^PS(58.4,1,V,8,S,5,D,2,E,9,0)=" 07 Social Security Number"
S ^PS(58.4,1,V,8,S,5,D,2,E,10,0)=" 08 Tribal ID"
S ^PS(58.4,1,V,8,S,5,D,2,E,11,0)=" 99 Other (Trading partner agreed upon ID, such as cardholder ID.)"
S ^PS(58.4,1,V,8,S,5,D,2,L,0)="^^1^1^3201012^"
S ^PS(58.4,1,V,8,S,5,D,2,L,1,0)=""""""
S ^PS(58.4,1,V,8,S,5,D,3,0)="PAT03^ID of Patient^AN^20^3^O"
S ^PS(58.4,1,V,8,S,5,D,3,E,0)="^58.4001111^2^2^3201012^"
S ^PS(58.4,1,V,8,S,5,D,3,E,1,0)="Identification number for the patient as indicated in PAT02. An example "
S ^PS(58.4,1,V,8,S,5,D,3,E,2,0)="would be the driver's license number."
S ^PS(58.4,1,V,8,S,5,D,3,L,0)="^^1^1^3201012^"
S ^PS(58.4,1,V,8,S,5,D,3,L,1,0)=""""""
S ^PS(58.4,1,V,8,S,5,D,4,0)="PAT04^ID Qualifier of Additional Patient Identifier^AN^2^4^O"
S ^PS(58.4,1,V,8,S,5,D,4,E,0)="^58.4001111^2^2^3201012^"
S ^PS(58.4,1,V,8,S,5,D,4,E,1,0)="Code identifying the jurisdiction that issues the ID in PAT06. Used if "
S ^PS(58.4,1,V,8,S,5,D,4,E,2,0)="the PMP requires such identification and PAT05 is equal to 02 or 06. "
S ^PS(58.4,1,V,8,S,5,D,4,L,0)="^^1^1^3201012^"
S ^PS(58.4,1,V,8,S,5,D,4,L,1,0)=""""""
S ^PS(58.4,1,V,8,S,5,D,5,0)="PAT05^Additional Patient ID Qualifier^AN^2^5^O"
S ^PS(58.4,1,V,8,S,5,D,5,E,0)="^58.4001111^11^11^3201012^"
S ^PS(58.4,1,V,8,S,5,D,5,E,1,0)="Code to identify the type of ID in PAT06 if the PMP requires a second "
S ^PS(58.4,1,V,8,S,5,D,5,E,2,0)="identifier. If PAT05 is used, PAT06 is required."
S ^PS(58.4,1,V,8,S,5,D,5,E,3,0)=" 01 Military ID"
S ^PS(58.4,1,V,8,S,5,D,5,E,4,0)=" 02 State Issued ID"
S ^PS(58.4,1,V,8,S,5,D,5,E,5,0)=" 03 Unique System ID"
S ^PS(58.4,1,V,8,S,5,D,5,E,6,0)=" 04 Permanent Resident Card (Green Card)"
S ^PS(58.4,1,V,8,S,5,D,5,E,7,0)=" 05 Passport ID"
S ^PS(58.4,1,V,8,S,5,D,5,E,8,0)=" 06 Driver's License ID"
S ^PS(58.4,1,V,8,S,5,D,5,E,9,0)=" 07 Social Security Number"
S ^PS(58.4,1,V,8,S,5,D,5,E,10,0)=" 08 Tribal ID"
S ^PS(58.4,1,V,8,S,5,D,5,E,11,0)=" 99 Other (Trading partner agreed upon ID, such as cardholder ID.)"
S ^PS(58.4,1,V,8,S,5,D,5,L,0)="^^1^1^3201012^"
S ^PS(58.4,1,V,8,S,5,D,5,L,1,0)=""""""
S ^PS(58.4,1,V,8,S,5,D,6,0)="PAT06^Additional ID^AN^20^6^O"
S ^PS(58.4,1,V,8,S,5,D,6,E,0)="^58.4001111^4^4^3201012^"
S ^PS(58.4,1,V,8,S,5,D,6,E,1,0)="Identification that might be required by the PMP for "
S ^PS(58.4,1,V,8,S,5,D,6,E,2,0)="Prescription-Monitoring Programs to further identify the individual. An "
S ^PS(58.4,1,V,8,S,5,D,6,E,3,0)="example might be in that PAT03 driver's license is required and in PAT06 "
S ^PS(58.4,1,V,8,S,5,D,6,E,4,0)="Social Security number is also required."
S ^PS(58.4,1,V,8,S,5,D,6,L,0)="^^1^1^3201012^"
S ^PS(58.4,1,V,8,S,5,D,6,L,1,0)=""""""
S ^PS(58.4,1,V,8,S,5,D,7,0)="PAT07^Last Name^AN^50^7^R"
S ^PS(58.4,1,V,8,S,5,D,7,E,0)="^58.4001111^1^1^3201012^"
S ^PS(58.4,1,V,8,S,5,D,7,E,1,0)="Patient's last name."
S ^PS(58.4,1,V,8,S,5,D,7,L,0)="^^1^1^3201012^"
S ^PS(58.4,1,V,8,S,5,D,7,L,1,0)="""REPORT"""
D POST^PSO625P2
;
F X="PSO625P2","PSO625P3","PSO625P4","PSO625P5" X ^%ZOSF("TEST") I $T D MES^XPDUTL("Deleting routine "_X_"...") X ^%ZOSF("DEL")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSO625PI 12797 printed Nov 22, 2024@17:33:24 Page 2
PSO625PI ;BIRM/SJA - PSO*7*625 Post-install routine ;09/24/20
+1 ;;7.0;OUTPATIENT PHARMACY;**625**;DEC 1997;Build 42
+2 ;
POST ;
+1 NEW V,S,D,E,L,X
+2 SET V="VER"
SET S="SEG"
SET D="DAT"
SET E="DES"
SET L="VAL"
+3 KILL ^PS(58.4,1,V,8),^PS(58.4,1,V,9)
+4 SET ^PS(58.4,1,V,0)="^58.4001^9^8"
+5 SET ^PS(58.4,1,V,8,0)="4.1Z^*^~^$C(13,10)^1"
+6 SET ^PS(58.4,1,V,8,S,0)="^58.40011I^9^9"
+7 SET ^PS(58.4,1,V,8,S,1,0)="AIR^Additional Information Reporting^DSP^O^3^4"
+8 SET ^PS(58.4,1,V,8,S,1,D,0)="^58.400111I^^0"
+9 SET ^PS(58.4,1,V,8,S,2,0)="CDI^Compound Drug Ingredient Detail^DSP^O^2^4"
+10 SET ^PS(58.4,1,V,8,S,2,D,0)="^58.400111I^4^4"
+11 SET ^PS(58.4,1,V,8,S,2,D,1,0)="CDI01^Compound Drug Ingredient Sequence Number^N^2^1^R"
+12 SET ^PS(58.4,1,V,8,S,2,D,1,E,0)="^58.4001111^1^1^3201012^"
+13 SET ^PS(58.4,1,V,8,S,2,D,1,E,1,0)="Increment by 1 for each compounding ingredient being reported."
+14 SET ^PS(58.4,1,V,8,S,2,D,1,L,0)="^^1^1^3201012^"
+15 SET ^PS(58.4,1,V,8,S,2,D,1,L,1,0)=""""""
+16 SET ^PS(58.4,1,V,8,S,2,D,2,0)="CDI02^Product ID Qualifier^N^2^2^R"
+17 SET ^PS(58.4,1,V,8,S,2,D,2,E,0)="^58.4001111^7^7^3201012^"
+18 SET ^PS(58.4,1,V,8,S,2,D,2,E,1,0)="Code to identify the type of product ID contained in CDI03."
+19 SET ^PS(58.4,1,V,8,S,2,D,2,E,2,0)=" 01 NDC"
+20 SET ^PS(58.4,1,V,8,S,2,D,2,E,3,0)=" 02 UPC"
+21 SET ^PS(58.4,1,V,8,S,2,D,2,E,4,0)=" 03 HRI"
+22 SET ^PS(58.4,1,V,8,S,2,D,2,E,5,0)=" 04 UPN"
+23 SET ^PS(58.4,1,V,8,S,2,D,2,E,6,0)=" 05 DIN"
+24 SET ^PS(58.4,1,V,8,S,2,D,2,E,7,0)=" 06 CPD (This code is not used in this segment.)"
+25 SET ^PS(58.4,1,V,8,S,2,D,2,L,0)="^^1^1^3201012^"
+26 SET ^PS(58.4,1,V,8,S,2,D,2,L,1,0)=""""""
+27 SET ^PS(58.4,1,V,8,S,2,D,3,0)="CDI03^Product ID^AN^15^3^R"
+28 SET ^PS(58.4,1,V,8,S,2,D,3,E,0)="^58.4001111^2^2^3201017^^"
+29 SET ^PS(58.4,1,V,8,S,2,D,3,E,1,0)="Full product identification as indicated in CDI02, including leading "
+30 SET ^PS(58.4,1,V,8,S,2,D,3,E,2,0)="zeros without punctuation."
+31 SET ^PS(58.4,1,V,8,S,2,D,3,L,0)="^58.410111^1^1^3201017^^"
+32 SET ^PS(58.4,1,V,8,S,2,D,3,L,1,0)=""""""
+33 SET ^PS(58.4,1,V,8,S,2,D,4,0)="CDI04^Component Ingredient Quantity^D^11^4^R"
+34 SET ^PS(58.4,1,V,8,S,2,D,4,L,0)="^^1^1^3201017^"
+35 SET ^PS(58.4,1,V,8,S,2,D,4,L,1,0)=""""""
+36 SET ^PS(58.4,1,V,8,S,2,D,"B","CDI01",1)=""
+37 SET ^PS(58.4,1,V,8,S,2,D,"B","CDI02",2)=""
+38 SET ^PS(58.4,1,V,8,S,2,D,"B","CDI03",3)=""
+39 SET ^PS(58.4,1,V,8,S,2,D,"B","CDI04",4)=""
+40 SET ^PS(58.4,1,V,8,S,3,0)="DSP^Dispensing Record^PAT^R^1^4"
+41 SET ^PS(58.4,1,V,8,S,3,D,0)="^58.400111I^10^10"
+42 SET ^PS(58.4,1,V,8,S,3,D,1,0)="DSP01^Reporting Status^N^2^1^R"
+43 SET ^PS(58.4,1,V,8,S,3,D,1,E,0)="^58.4001111^10^10^3201012^"
+44 SET ^PS(58.4,1,V,8,S,3,D,1,E,1,0)="Required when reporting a change or cancellation of a previously "
+45 SET ^PS(58.4,1,V,8,S,3,D,1,E,2,0)="transmitted prescription record. 00 indicates a new prescription "
+46 SET ^PS(58.4,1,V,8,S,3,D,1,E,3,0)="dispensing transaction. 01 would be used when information on the"
+47 SET ^PS(58.4,1,V,8,S,3,D,1,E,4,0)="original prescription, including patient information, has been changed. "
+48 SET ^PS(58.4,1,V,8,S,3,D,1,E,5,0)="02 would be used when the prescription was not picked up and returned to "
+49 SET ^PS(58.4,1,V,8,S,3,D,1,E,6,0)="stock."
+50 SET ^PS(58.4,1,V,8,S,3,D,1,E,7,0)=" 00 New Record (Not available for ASAP 4.0)"
+51 SET ^PS(58.4,1,V,8,S,3,D,1,E,8,0)=" 01 Change/Revise"
+52 SET ^PS(58.4,1,V,8,S,3,D,1,E,9,0)=" 02 Cancel/Void (Rx not picked up and returned to stock)"
+53 SET ^PS(58.4,1,V,8,S,3,D,1,E,10,0)=" 03 Purged (Rx reported in error) (Available in 4.0 only)"
+54 SET ^PS(58.4,1,V,8,S,3,D,1,L,0)="^^1^1^3201012^"
+55 SET ^PS(58.4,1,V,8,S,3,D,1,L,1,0)=""""""
+56 SET ^PS(58.4,1,V,8,S,3,D,2,0)="DSP02^Prescription Number^AN^25^2^R"
+57 SET ^PS(58.4,1,V,8,S,3,D,2,E,0)="^58.4001111^1^1^3201012^"
+58 SET ^PS(58.4,1,V,8,S,3,D,2,E,1,0)="Serial number assigned to the prescription by the pharmacy."
+59 SET ^PS(58.4,1,V,8,S,3,D,2,L,0)="^^1^1^3201012^"
+60 SET ^PS(58.4,1,V,8,S,3,D,2,L,1,0)=""""""
+61 SET ^PS(58.4,1,V,8,S,3,D,3,0)="DSP03^Date Written^DT^8^3^R"
+62 SET ^PS(58.4,1,V,8,S,3,D,3,E,0)="^58.4001111^1^1^3201012^"
+63 SET ^PS(58.4,1,V,8,S,3,D,3,E,1,0)="Date the prescription was written (authorized). Format: CCYYMMDD."
+64 SET ^PS(58.4,1,V,8,S,3,D,3,L,0)="^^1^1^3201012^"
+65 SET ^PS(58.4,1,V,8,S,3,D,3,L,1,0)=""""""
+66 SET ^PS(58.4,1,V,8,S,3,D,4,0)="DSP04^Refills Authorized^N^2^4^R"
+67 SET ^PS(58.4,1,V,8,S,3,D,4,E,0)="^58.4001111^1^1^3201012^"
+68 SET ^PS(58.4,1,V,8,S,3,D,4,E,1,0)="The number of refills authorized by the prescriber."
+69 SET ^PS(58.4,1,V,8,S,3,D,4,L,0)="^^1^1^3201012^"
+70 SET ^PS(58.4,1,V,8,S,3,D,4,L,1,0)=""""""
+71 SET ^PS(58.4,1,V,8,S,3,D,5,0)="DSP05^Date of Report^DT^8^5^R"
+72 SET ^PS(58.4,1,V,8,S,3,D,5,E,0)="^58.4001111^1^1^3201017^^^"
+73 SET ^PS(58.4,1,V,8,S,3,D,5,E,1,0)="Date prescription was filled. Format: CCYYMMDD."
+74 SET ^PS(58.4,1,V,8,S,3,D,5,L,0)="^58.410111^1^1^3201017^^^"
+75 SET ^PS(58.4,1,V,8,S,3,D,5,L,1,0)="$$DSP05^PSOASAP()"
+76 SET ^PS(58.4,1,V,8,S,3,D,6,0)="DSP06^Refill Number^N^2^6^R"
+77 SET ^PS(58.4,1,V,8,S,3,D,6,E,0)="^58.4001111^2^2^3201012^"
+78 SET ^PS(58.4,1,V,8,S,3,D,6,E,1,0)="Number of the fill of the prescription. 0 indicates New Rx, 01-99 is the "
+79 SET ^PS(58.4,1,V,8,S,3,D,6,E,2,0)="refill number."
+80 SET ^PS(58.4,1,V,8,S,3,D,6,L,0)="^^1^1^3201012^"
+81 SET ^PS(58.4,1,V,8,S,3,D,6,L,1,0)=""""""
+82 SET ^PS(58.4,1,V,8,S,3,D,7,0)="DSP07^Product ID Qualifier^N^2^7^R"
+83 SET ^PS(58.4,1,V,8,S,3,D,7,E,0)="^58.4001111^7^7^3201012^"
+84 SET ^PS(58.4,1,V,8,S,3,D,7,E,1,0)="Used to identify the type of product ID contained in DSP08."
+85 SET ^PS(58.4,1,V,8,S,3,D,7,E,2,0)=" 01 NDC"
+86 SET ^PS(58.4,1,V,8,S,3,D,7,E,3,0)=" 02 UPC"
+87 SET ^PS(58.4,1,V,8,S,3,D,7,E,4,0)=" 03 HRI"
+88 SET ^PS(58.4,1,V,8,S,3,D,7,E,5,0)=" 04 UPN"
+89 SET ^PS(58.4,1,V,8,S,3,D,7,E,6,0)=" 05 DIN"
+90 SET ^PS(58.4,1,V,8,S,3,D,7,E,7,0)=" 06 CPD (used for a compound)"
+91 SET ^PS(58.4,1,V,8,S,3,D,7,L,0)="^^1^1^3201012^"
+92 SET ^PS(58.4,1,V,8,S,3,D,7,L,1,0)=""""""
+93 SET ^PS(58.4,1,V,8,S,3,D,8,0)="DSP08^Product ID^AN^15^8^R"
+94 SET ^PS(58.4,1,V,8,S,3,D,8,E,0)="^58.4001111^4^4^3201012^"
+95 SET ^PS(58.4,1,V,8,S,3,D,8,E,1,0)="Full product identification as indicated in DSP07, including leading "
+96 SET ^PS(58.4,1,V,8,S,3,D,8,E,2,0)="zeros without punctuation. If the product is a compound, use 99999 as the "
+97 SET ^PS(58.4,1,V,8,S,3,D,8,E,3,0)="first five characters of the product code. The remaining characters are "
+98 SET ^PS(58.4,1,V,8,S,3,D,8,E,4,0)="assigned by the pharmacy. The CDI then becomes a required segment."
+99 SET ^PS(58.4,1,V,8,S,3,D,8,L,0)="^^1^1^3201012^"
+100 SET ^PS(58.4,1,V,8,S,3,D,8,L,1,0)=""""""
+101 SET ^PS(58.4,1,V,8,S,3,D,9,0)="DSP09^Quantity Dispensed^D^11^9^R"
+102 SET ^PS(58.4,1,V,8,S,3,D,9,E,0)="^58.4001111^2^2^3201012^"
+103 SET ^PS(58.4,1,V,8,S,3,D,9,E,1,0)="Number of metric units dispensed in metric decimal format."
+104 SET ^PS(58.4,1,V,8,S,3,D,9,E,2,0)="Example: 2.5. Note: For compounds show the first quantity in CDI04."
+105 SET ^PS(58.4,1,V,8,S,3,D,9,L,0)="^^1^1^3201012^"
+106 SET ^PS(58.4,1,V,8,S,3,D,9,L,1,0)=""""""
+107 SET ^PS(58.4,1,V,8,S,3,D,10,0)="DSP10^Days Supply^N^3^10^R"
+108 SET ^PS(58.4,1,V,8,S,3,D,10,E,0)="^58.4001111^1^1^3201012^"
+109 SET ^PS(58.4,1,V,8,S,3,D,10,E,1,0)="Estimated number of days the medication will last."
+110 SET ^PS(58.4,1,V,8,S,3,D,10,L,0)="^^1^1^3201012^"
+111 SET ^PS(58.4,1,V,8,S,3,D,10,L,1,0)=""""""
+112 SET ^PS(58.4,1,V,8,S,3,D,"B","DSP01",1)=""
+113 SET ^PS(58.4,1,V,8,S,3,D,"B","DSP02",2)=""
+114 SET ^PS(58.4,1,V,8,S,3,D,"B","DSP03",3)=""
+115 SET ^PS(58.4,1,V,8,S,3,D,"B","DSP04",4)=""
+116 SET ^PS(58.4,1,V,8,S,3,D,"B","DSP05",5)=""
+117 SET ^PS(58.4,1,V,8,S,3,D,"B","DSP06",6)=""
+118 SET ^PS(58.4,1,V,8,S,3,D,"B","DSP07",7)=""
+119 SET ^PS(58.4,1,V,8,S,3,D,"B","DSP08",8)=""
+120 SET ^PS(58.4,1,V,8,S,3,D,"B","DSP09",9)=""
+121 SET ^PS(58.4,1,V,8,S,3,D,"B","DSP10",10)=""
+122 SET ^PS(58.4,1,V,8,S,4,0)="IS^Information Source^TH^R^1^1"
+123 SET ^PS(58.4,1,V,8,S,4,D,0)="^58.400111I^2^2"
+124 SET ^PS(58.4,1,V,8,S,4,D,1,0)="IS01^Unique Information Source ID^AN^10^1^R"
+125 SET ^PS(58.4,1,V,8,S,4,D,1,E,0)="^58.4001111^2^2^3201017^"
+126 SET ^PS(58.4,1,V,8,S,4,D,1,E,1,0)="Reference number or identification number as defined by the business "
+127 SET ^PS(58.4,1,V,8,S,4,D,1,E,2,0)="partners. (Example: Phone number)."
+128 SET ^PS(58.4,1,V,8,S,4,D,1,L,0)="^58.410111^1^1^3201017^"
+129 SET ^PS(58.4,1,V,8,S,4,D,1,L,1,0)="$$IS01^PSOASAP()"
+130 SET ^PS(58.4,1,V,8,S,4,D,2,0)="IS02^Information Source Entity Name^AN^60^2^R"
+131 SET ^PS(58.4,1,V,8,S,4,D,2,E,0)="^58.4001111^1^1^3201017^"
+132 SET ^PS(58.4,1,V,8,S,4,D,2,E,1,0)="Entity name of the Information Source."
+133 SET ^PS(58.4,1,V,8,S,4,D,2,L,0)="^58.410111^1^1^3201017^"
+134 SET ^PS(58.4,1,V,8,S,4,D,2,L,1,0)="$$IS02^PSOASAP()"
+135 SET ^PS(58.4,1,V,8,S,4,D,"B","IS01",1)=""
+136 SET ^PS(58.4,1,V,8,S,4,D,"B","IS02",2)=""
+137 SET ^PS(58.4,1,V,8,S,5,0)="PAT^Patient Information^PHA^R^1^3"
+138 SET ^PS(58.4,1,V,8,S,5,D,0)="^58.400111I^19^19"
+139 SET ^PS(58.4,1,V,8,S,5,D,1,0)="PAT01^ID Qualifier of Patient Identifier^AN^2^1^O"
+140 SET ^PS(58.4,1,V,8,S,5,D,1,E,0)="^58.4001111^2^2^3201012^"
+141 SET ^PS(58.4,1,V,8,S,5,D,1,E,1,0)="Code identifying the jurisdiction that issues the ID in PAT03. Used if "
+142 SET ^PS(58.4,1,V,8,S,5,D,1,E,2,0)="the PMP requires such identification and PAT02 is equal to 02 or 06."
+143 SET ^PS(58.4,1,V,8,S,5,D,1,L,0)="^^1^1^3201012^"
+144 SET ^PS(58.4,1,V,8,S,5,D,1,L,1,0)=""""""
+145 SET ^PS(58.4,1,V,8,S,5,D,2,0)="PAT02^ID Qualifier^N^2^2^O"
+146 SET ^PS(58.4,1,V,8,S,5,D,2,E,0)="^58.4001111^11^11^3201012^"
+147 SET ^PS(58.4,1,V,8,S,5,D,2,E,1,0)="Code to identify the type of ID in PAT03. If PAT02 is used, PAT03 is "
+148 SET ^PS(58.4,1,V,8,S,5,D,2,E,2,0)="required."
+149 SET ^PS(58.4,1,V,8,S,5,D,2,E,3,0)=" 01 Military ID"
+150 SET ^PS(58.4,1,V,8,S,5,D,2,E,4,0)=" 02 State Issued ID"
+151 SET ^PS(58.4,1,V,8,S,5,D,2,E,5,0)=" 03 Unique System ID"
+152 SET ^PS(58.4,1,V,8,S,5,D,2,E,6,0)=" 04 Permanent Resident Card (Green Card)"
+153 SET ^PS(58.4,1,V,8,S,5,D,2,E,7,0)=" 05 Passport ID"
+154 SET ^PS(58.4,1,V,8,S,5,D,2,E,8,0)=" 06 Driver's License ID"
+155 SET ^PS(58.4,1,V,8,S,5,D,2,E,9,0)=" 07 Social Security Number"
+156 SET ^PS(58.4,1,V,8,S,5,D,2,E,10,0)=" 08 Tribal ID"
+157 SET ^PS(58.4,1,V,8,S,5,D,2,E,11,0)=" 99 Other (Trading partner agreed upon ID, such as cardholder ID.)"
+158 SET ^PS(58.4,1,V,8,S,5,D,2,L,0)="^^1^1^3201012^"
+159 SET ^PS(58.4,1,V,8,S,5,D,2,L,1,0)=""""""
+160 SET ^PS(58.4,1,V,8,S,5,D,3,0)="PAT03^ID of Patient^AN^20^3^O"
+161 SET ^PS(58.4,1,V,8,S,5,D,3,E,0)="^58.4001111^2^2^3201012^"
+162 SET ^PS(58.4,1,V,8,S,5,D,3,E,1,0)="Identification number for the patient as indicated in PAT02. An example "
+163 SET ^PS(58.4,1,V,8,S,5,D,3,E,2,0)="would be the driver's license number."
+164 SET ^PS(58.4,1,V,8,S,5,D,3,L,0)="^^1^1^3201012^"
+165 SET ^PS(58.4,1,V,8,S,5,D,3,L,1,0)=""""""
+166 SET ^PS(58.4,1,V,8,S,5,D,4,0)="PAT04^ID Qualifier of Additional Patient Identifier^AN^2^4^O"
+167 SET ^PS(58.4,1,V,8,S,5,D,4,E,0)="^58.4001111^2^2^3201012^"
+168 SET ^PS(58.4,1,V,8,S,5,D,4,E,1,0)="Code identifying the jurisdiction that issues the ID in PAT06. Used if "
+169 SET ^PS(58.4,1,V,8,S,5,D,4,E,2,0)="the PMP requires such identification and PAT05 is equal to 02 or 06. "
+170 SET ^PS(58.4,1,V,8,S,5,D,4,L,0)="^^1^1^3201012^"
+171 SET ^PS(58.4,1,V,8,S,5,D,4,L,1,0)=""""""
+172 SET ^PS(58.4,1,V,8,S,5,D,5,0)="PAT05^Additional Patient ID Qualifier^AN^2^5^O"
+173 SET ^PS(58.4,1,V,8,S,5,D,5,E,0)="^58.4001111^11^11^3201012^"
+174 SET ^PS(58.4,1,V,8,S,5,D,5,E,1,0)="Code to identify the type of ID in PAT06 if the PMP requires a second "
+175 SET ^PS(58.4,1,V,8,S,5,D,5,E,2,0)="identifier. If PAT05 is used, PAT06 is required."
+176 SET ^PS(58.4,1,V,8,S,5,D,5,E,3,0)=" 01 Military ID"
+177 SET ^PS(58.4,1,V,8,S,5,D,5,E,4,0)=" 02 State Issued ID"
+178 SET ^PS(58.4,1,V,8,S,5,D,5,E,5,0)=" 03 Unique System ID"
+179 SET ^PS(58.4,1,V,8,S,5,D,5,E,6,0)=" 04 Permanent Resident Card (Green Card)"
+180 SET ^PS(58.4,1,V,8,S,5,D,5,E,7,0)=" 05 Passport ID"
+181 SET ^PS(58.4,1,V,8,S,5,D,5,E,8,0)=" 06 Driver's License ID"
+182 SET ^PS(58.4,1,V,8,S,5,D,5,E,9,0)=" 07 Social Security Number"
+183 SET ^PS(58.4,1,V,8,S,5,D,5,E,10,0)=" 08 Tribal ID"
+184 SET ^PS(58.4,1,V,8,S,5,D,5,E,11,0)=" 99 Other (Trading partner agreed upon ID, such as cardholder ID.)"
+185 SET ^PS(58.4,1,V,8,S,5,D,5,L,0)="^^1^1^3201012^"
+186 SET ^PS(58.4,1,V,8,S,5,D,5,L,1,0)=""""""
+187 SET ^PS(58.4,1,V,8,S,5,D,6,0)="PAT06^Additional ID^AN^20^6^O"
+188 SET ^PS(58.4,1,V,8,S,5,D,6,E,0)="^58.4001111^4^4^3201012^"
+189 SET ^PS(58.4,1,V,8,S,5,D,6,E,1,0)="Identification that might be required by the PMP for "
+190 SET ^PS(58.4,1,V,8,S,5,D,6,E,2,0)="Prescription-Monitoring Programs to further identify the individual. An "
+191 SET ^PS(58.4,1,V,8,S,5,D,6,E,3,0)="example might be in that PAT03 driver's license is required and in PAT06 "
+192 SET ^PS(58.4,1,V,8,S,5,D,6,E,4,0)="Social Security number is also required."
+193 SET ^PS(58.4,1,V,8,S,5,D,6,L,0)="^^1^1^3201012^"
+194 SET ^PS(58.4,1,V,8,S,5,D,6,L,1,0)=""""""
+195 SET ^PS(58.4,1,V,8,S,5,D,7,0)="PAT07^Last Name^AN^50^7^R"
+196 SET ^PS(58.4,1,V,8,S,5,D,7,E,0)="^58.4001111^1^1^3201012^"
+197 SET ^PS(58.4,1,V,8,S,5,D,7,E,1,0)="Patient's last name."
+198 SET ^PS(58.4,1,V,8,S,5,D,7,L,0)="^^1^1^3201012^"
+199 SET ^PS(58.4,1,V,8,S,5,D,7,L,1,0)="""REPORT"""
+200 DO POST^PSO625P2
+201 ;
+202 FOR X="PSO625P2","PSO625P3","PSO625P4","PSO625P5"
XECUTE ^%ZOSF("TEST")
IF $TEST
DO MES^XPDUTL("Deleting routine "_X_"...")
XECUTE ^%ZOSF("DEL")
+203 QUIT
