ABMPOST.m

ABMPOST ;IHS/ASDS/LSL - 3PB Pharmacy POS - Patch 6 POST INIT  

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

 ;

 ; IHS/ASDS/LSL - 05/21/2001 - V2.4 Patch 6 - Post Init

 ;     Populate 3P Visit Type file with 901 Pharmacy POS

 ;

 Q

 ;

EN ;      

 K DA,DR,DIC,DLAYGO,X,DINUM

 S DIC="^ABMDVTYP("

 S DIC(0)="LX"

 S DLAYGO=9002274

 S DIC("DR")=".02////131"

 S DINUM=901

 S X="Pharmacy POS"

 D ^DIC

 K DA,DR,DIC,DLAYGO,X,DINUM,Y

 Q

ABMPOST   ;IHS/ASDS/LSL - 3PB Pharmacy POS - Patch 6 POST INIT  

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

 +2       ;

 +3       ; IHS/ASDS/LSL - 05/21/2001 - V2.4 Patch 6 - Post Init

 +4       ;     Populate 3P Visit Type file with 901 Pharmacy POS

 +5       ;

 +6        QUIT 

 +7       ;

EN        ;      

 +1        KILL DA,DR,DIC,DLAYGO,X,DINUM

 +2        SET DIC="^ABMDVTYP("

 +3        SET DIC(0)="LX"

 +4        SET DLAYGO=9002274

 +5        SET DIC("DR")=".02////131"

 +6        SET DINUM=901

 +7        SET X="Pharmacy POS"

 +8        DO ^DIC

 +9        KILL DA,DR,DIC,DLAYGO,X,DINUM,Y

 +10       QUIT