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
