ABSPOSFX.m

ABSPOSFX ; IHS/FCS/DRS - Print NCPDP claim ;   [ 09/12/2002  10:09 AM ]

 ;;1.0;PHARMACY POINT OF SALE;**3**;JUN 21, 2001;Build 27

 ;----------------------------------------------------------------------

 Q

ALIGN ;EP - from ABSPOSF

 N ABSP,NCPDP

 S NCPDP(302)="#CARDHOLDER ID#"

 S NCPDP(301)="THIS IS THE GROUP ID"

 S NCPDP(313)="CARDHOLDER",NCPDP(312)="CHARLIE"

 S NCPDP(311)="PATIENT",NCPDP(310)="PAULA"

 S NCPDP(308)="0",NCPDP(303)="004"

 S NCPDP(304)="19740531",NCPDP(305)=2,NCPDP(306)=4

 S NCPDP(201)="PH0123456789"

 S ABSP("Site","Name")="COLLEGE PHARMACY"

 S ABSP("Site","Addr")="12 NORTH MAIN ST."

 S ABSP("Site","City")="BOROUGH OF MANSFIELD"

 S ABSP("Site","State")="PA"

 S ABSP("Site","Zip")="16933-1234"

 S ABSP("Site","Phone")="999 999-9999"

 S ABSP("Site","Fax")="999 999-9999"

 S ABSP("Site","Tax ID #")="12-3456789"

 S NCPDP(315)="SOUTHERN TIOGA INDUSTRIES"

 S NCPDP(316)="177 INDUSTRIAL WAY"

 S NCPDP(317)="COVINGTON TOWNSHIP"

 S NCPDP(318)="PA",NCPDP(319)="16917-0000"

 S NCPDP(327)="WORKERS COMP CARRIER CO."

 S ABSP("Employer","Phone")="999 999-9999"

 N RXN F RXN=1,2 D

 . S NCPDP("RX",RXN,434)=20010319

 . S NCPDP("RX",RXN,435)="1234567890-ABCDE"

 . S NCPDP("RX",RXN,402)=RXN_"654321"

 . S NCPDP("RX",RXN,414)=20010_RXN_2_RXN

 . S NCPDP("RX",RXN,401)=20010322

 . S NCPDP("RX",RXN,403)=RXN-1

 . S NCPDP("RX",RXN,442)=$S(RXN=1:100,RXN=2:12345.678)

 . S NCPDP("RX",RXN,405)=$S(RXN=1:30,RXN=2:999)

 . S NCPDP("RX",RXN,407)="00000-00-0000"

 . S NCPDP("RX",RXN,408)="0"

 . S NCPDP("RX",RXN,416)="109999999999"

 . S NCPDP("RX",RXN,411)="ID0000000"

 . S NCPDP("RX",RXN,439)="XX"

 . S NCPDP("RX",RXN,440)="YY"

 . S NCPDP("RX",RXN,441)="ZZ"

 . S NCPDP("RX",RXN,423)="00"

 . S NCPDP("RX",RXN,424)="123.45"

 . S NCPDP("RX",RXN,443)="20010228"

 . S NCPDP("RX",RXN,426)="99999.99"

 . S NCPDP("RX",RXN,409)="10409.00"

 . S NCPDP("RX",RXN,412)="10412.00"

 . S NCPDP("RX",RXN,438)="10438.00"

 . S NCPDP("RX",RXN,410)="10410.00"

 . S NCPDP("RX",RXN,433)="10433.00"

 . S NCPDP("RX",RXN,431)="10431.00"

 . S ABSP("RX",RXN,"RX IEN")=+$O(^PSRX(" "),-1)

 . S ABSP("RX",RXN,"Drug IEN")=+$O(^PSDRUG(" "),-1)

 . S ABSP("RX",RXN,"Prescriber IEN")=+$O(^VA(200,0))

 . S ABSP("RX",RXN,"IEN57")=+$O(^ABSPTL(0))

 D PRINT^ABSPOSFP

 Q

ABSPOSFX  ; IHS/FCS/DRS - Print NCPDP claim ;   [ 09/12/2002  10:09 AM ]

 +1       ;;1.0;PHARMACY POINT OF SALE;**3**;JUN 21, 2001;Build 27

 +2       ;----------------------------------------------------------------------

 +3        QUIT 

ALIGN     ;EP - from ABSPOSF

 +1        NEW ABSP,NCPDP

 +2        SET NCPDP(302)="#CARDHOLDER ID#"

 +3        SET NCPDP(301)="THIS IS THE GROUP ID"

 +4        SET NCPDP(313)="CARDHOLDER"

           SET NCPDP(312)="CHARLIE"

 +5        SET NCPDP(311)="PATIENT"

           SET NCPDP(310)="PAULA"

 +6        SET NCPDP(308)="0"

           SET NCPDP(303)="004"

 +7        SET NCPDP(304)="19740531"

           SET NCPDP(305)=2

           SET NCPDP(306)=4

 +8        SET NCPDP(201)="PH0123456789"

 +9        SET ABSP("Site","Name")="COLLEGE PHARMACY"

 +10       SET ABSP("Site","Addr")="12 NORTH MAIN ST."

 +11       SET ABSP("Site","City")="BOROUGH OF MANSFIELD"

 +12       SET ABSP("Site","State")="PA"

 +13       SET ABSP("Site","Zip")="16933-1234"

 +14       SET ABSP("Site","Phone")="999 999-9999"

 +15       SET ABSP("Site","Fax")="999 999-9999"

 +16       SET ABSP("Site","Tax ID #")="12-3456789"

 +17       SET NCPDP(315)="SOUTHERN TIOGA INDUSTRIES"

 +18       SET NCPDP(316)="177 INDUSTRIAL WAY"

 +19       SET NCPDP(317)="COVINGTON TOWNSHIP"

 +20       SET NCPDP(318)="PA"

           SET NCPDP(319)="16917-0000"

 +21       SET NCPDP(327)="WORKERS COMP CARRIER CO."

 +22       SET ABSP("Employer","Phone")="999 999-9999"

 +23       NEW RXN

           FOR RXN=1,2

               Begin DoDot:1

 +24               SET NCPDP("RX",RXN,434)=20010319

 +25               SET NCPDP("RX",RXN,435)="1234567890-ABCDE"

 +26               SET NCPDP("RX",RXN,402)=RXN_"654321"

 +27               SET NCPDP("RX",RXN,414)=20010_RXN_2_RXN

 +28               SET NCPDP("RX",RXN,401)=20010322

 +29               SET NCPDP("RX",RXN,403)=RXN-1

 +30               SET NCPDP("RX",RXN,442)=$SELECT(RXN=1:100,RXN=2:12345.678)

 +31               SET NCPDP("RX",RXN,405)=$SELECT(RXN=1:30,RXN=2:999)

 +32               SET NCPDP("RX",RXN,407)="00000-00-0000"

 +33               SET NCPDP("RX",RXN,408)="0"

 +34               SET NCPDP("RX",RXN,416)="109999999999"

 +35               SET NCPDP("RX",RXN,411)="ID0000000"

 +36               SET NCPDP("RX",RXN,439)="XX"

 +37               SET NCPDP("RX",RXN,440)="YY"

 +38               SET NCPDP("RX",RXN,441)="ZZ"

 +39               SET NCPDP("RX",RXN,423)="00"

 +40               SET NCPDP("RX",RXN,424)="123.45"

 +41               SET NCPDP("RX",RXN,443)="20010228"

 +42               SET NCPDP("RX",RXN,426)="99999.99"

 +43               SET NCPDP("RX",RXN,409)="10409.00"

 +44               SET NCPDP("RX",RXN,412)="10412.00"

 +45               SET NCPDP("RX",RXN,438)="10438.00"

 +46               SET NCPDP("RX",RXN,410)="10410.00"

 +47               SET NCPDP("RX",RXN,433)="10433.00"

 +48               SET NCPDP("RX",RXN,431)="10431.00"

 +49               SET ABSP("RX",RXN,"RX IEN")=+$ORDER(^PSRX(" "),-1)

 +50               SET ABSP("RX",RXN,"Drug IEN")=+$ORDER(^PSDRUG(" "),-1)

 +51               SET ABSP("RX",RXN,"Prescriber IEN")=+$ORDER(^VA(200,0))

 +52               SET ABSP("RX",RXN,"IEN57")=+$ORDER(^ABSPTL(0))

               End DoDot:1

 +53       DO PRINT^ABSPOSFP

 +54       QUIT