ABSPOSN4.m

ABSPOSN4 ; IHS/FCS/DRS - NCPDP Fms F ILC A/R ;  [ 09/12/2002  10:16 AM ]

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

 Q

PFM ;EP

 ;

 N XXX

 S $P(XXX,"X",80)=""

 N I F I=1:1:3 D

 .W !

 .W ?7,$E(XXX,1,15),?31,$E(XXX,1,20),!!

 .W ?6,$E(XXX,1,33),?46,"X",!!!

 .W ?5,$E(XXX,1,23),?29,$E(XXX,1,19),!

 .W ?49,$E(XXX,4,5),?52,$E(XXX,6,7)

 .W ?55,$E(XXX,2,3)

 .W ?58,"X",?60,"X",?63,"X",?66,"X",?69,"X",?72,"X",!

 .W ?5,$E(XXX,1,23),!

 .W ?56,"XXXX.XX",?64,"XXXX.XX",!

 .W ?5,$E(XXX,1,23),!

 .W ?56,"XXXX.XX",?64,"XXXX.XX",!

 .W ?6,$E(XXX,1,13),?20,$E(XXX,4,5)

 .W ?23,$E(XXX,6,7),?26,$E(XXX,2,3),!!

 .W ?6,$E(XXX,1,13),?20,$E(XXX,4,5)

 .W ?23,$E(XXX,6,7),?26,$E(XXX,2,3),!

 .W ?56,"XXXX.XX",?64,"XXXX.XX",!!

 .W ?4,$E(XXX,1,7),?12,$E(XXX,1,1)

 .W ?15,$E(XXX,1,5),?21,$E(XXX,1,4)

 .W ?26,$E(XXX,1,7),?34,$E(XXX,1,6)

 .W ?41,$E(XXX,1,2),?44,$E(XXX,1,9),!!

 .W ?4,$E(XXX,1,7),?12,$E(XXX,1,1)

 .W ?15,$E(XXX,1,5),?21,$E(XXX,1,4)

 .W ?26,$E(XXX,1,7),?34,$E(XXX,1,6)

 .W ?41,$E(XXX,1,2),?44,$E(XXX,1,9)

 .W ?56,"XXXX.XX",?64,"XXXX.XX",!!

 Q

ABSPOSN4  ; IHS/FCS/DRS - NCPDP Fms F ILC A/R ;  [ 09/12/2002  10:16 AM ]

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

 +2        QUIT 

PFM       ;EP

 +1       ;

 +2        NEW XXX

 +3        SET $PIECE(XXX,"X",80)=""

 +4        NEW I

           FOR I=1:1:3

               Begin DoDot:1

 +5                WRITE !

 +6                WRITE ?7,$EXTRACT(XXX,1,15),?31,$EXTRACT(XXX,1,20),!!

 +7                WRITE ?6,$EXTRACT(XXX,1,33),?46,"X",!!!

 +8                WRITE ?5,$EXTRACT(XXX,1,23),?29,$EXTRACT(XXX,1,19),!

 +9                WRITE ?49,$EXTRACT(XXX,4,5),?52,$EXTRACT(XXX,6,7)

 +10               WRITE ?55,$EXTRACT(XXX,2,3)

 +11               WRITE ?58,"X",?60,"X",?63,"X",?66,"X",?69,"X",?72,"X",!

 +12               WRITE ?5,$EXTRACT(XXX,1,23),!

 +13               WRITE ?56,"XXXX.XX",?64,"XXXX.XX",!

 +14               WRITE ?5,$EXTRACT(XXX,1,23),!

 +15               WRITE ?56,"XXXX.XX",?64,"XXXX.XX",!

 +16               WRITE ?6,$EXTRACT(XXX,1,13),?20,$EXTRACT(XXX,4,5)

 +17               WRITE ?23,$EXTRACT(XXX,6,7),?26,$EXTRACT(XXX,2,3),!!

 +18               WRITE ?6,$EXTRACT(XXX,1,13),?20,$EXTRACT(XXX,4,5)

 +19               WRITE ?23,$EXTRACT(XXX,6,7),?26,$EXTRACT(XXX,2,3),!

 +20               WRITE ?56,"XXXX.XX",?64,"XXXX.XX",!!

 +21               WRITE ?4,$EXTRACT(XXX,1,7),?12,$EXTRACT(XXX,1,1)

 +22               WRITE ?15,$EXTRACT(XXX,1,5),?21,$EXTRACT(XXX,1,4)

 +23               WRITE ?26,$EXTRACT(XXX,1,7),?34,$EXTRACT(XXX,1,6)

 +24               WRITE ?41,$EXTRACT(XXX,1,2),?44,$EXTRACT(XXX,1,9),!!

 +25               WRITE ?4,$EXTRACT(XXX,1,7),?12,$EXTRACT(XXX,1,1)

 +26               WRITE ?15,$EXTRACT(XXX,1,5),?21,$EXTRACT(XXX,1,4)

 +27               WRITE ?26,$EXTRACT(XXX,1,7),?34,$EXTRACT(XXX,1,6)

 +28               WRITE ?41,$EXTRACT(XXX,1,2),?44,$EXTRACT(XXX,1,9)

 +29               WRITE ?56,"XXXX.XX",?64,"XXXX.XX",!!

               End DoDot:1

 +30       QUIT