ABMDF24T.m

ABMDF24T ; IHS/ASDST/DMJ - Test NCPDP Print Alignment ;  

 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 ;

TEST ;EP - enter here

 K ABMFP

FSET1 ;set printing array patient info

 S ABMFP(1,5)="XXXXX"

 S ABMFP(1,40)="XXXXX"

 S ABMFP(3,5)="XXXXX"

 S ABMFP(5,5)="XXXXX"

 S ABMFP(7,10)="XX"

 S ABMFP(7,15)="XX"

 S ABMFP(7,20)="XXXX"

 S ABMFP(7,46)="XX"

 S ABMFP(7,65)="XX"

 S ABMFP(9,8)="XXXXX"

 S ABMFP(11,8)="XXXXX"

 S ABMFP(11,45)="XXXXX"

 S ABMFP(11,67)="XX"

 S ABMFP(13,8)="XXXXX"

 S ABMFP(13,44)="XXX  XXX-XXXX"

 S ABMFP(15,12)="XX"

 S ABMFP(15,28)="XXXXX"

 S ABMFP(20,52)="SIGNATURE ON FILE"

 S ABMFP(33,1)="XXXXX"

 S ABMFP(33,18)=$$POSDT^ABMDUTL(DT)

 S ABMFP(33,29)=$$POSDT^ABMDUTL(DT)

 S ABMFP(34,1)=" "

PRT ;print

 D EN^ABMFPRT(.ABMFP)

 K ABMFP

 Q

ABMDF24T  ; IHS/ASDST/DMJ - Test NCPDP Print Alignment ;  

 +1       ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 +2       ;

TEST      ;EP - enter here

 +1        KILL ABMFP

FSET1     ;set printing array patient info

 +1        SET ABMFP(1,5)="XXXXX"

 +2        SET ABMFP(1,40)="XXXXX"

 +3        SET ABMFP(3,5)="XXXXX"

 +4        SET ABMFP(5,5)="XXXXX"

 +5        SET ABMFP(7,10)="XX"

 +6        SET ABMFP(7,15)="XX"

 +7        SET ABMFP(7,20)="XXXX"

 +8        SET ABMFP(7,46)="XX"

 +9        SET ABMFP(7,65)="XX"

 +10       SET ABMFP(9,8)="XXXXX"

 +11       SET ABMFP(11,8)="XXXXX"

 +12       SET ABMFP(11,45)="XXXXX"

 +13       SET ABMFP(11,67)="XX"

 +14       SET ABMFP(13,8)="XXXXX"

 +15       SET ABMFP(13,44)="XXX  XXX-XXXX"

 +16       SET ABMFP(15,12)="XX"

 +17       SET ABMFP(15,28)="XXXXX"

 +18       SET ABMFP(20,52)="SIGNATURE ON FILE"

 +19       SET ABMFP(33,1)="XXXXX"

 +20       SET ABMFP(33,18)=$$POSDT^ABMDUTL(DT)

 +21       SET ABMFP(33,29)=$$POSDT^ABMDUTL(DT)

 +22       SET ABMFP(34,1)=" "

PRT       ;print

 +1        DO EN^ABMFPRT(.ABMFP)

 +2        KILL ABMFP

 +3        QUIT