ACHSAI.m

ACHSAI ; IHS/ITSC/PMF - GENERATE INITIAL CHS DOCUMENTS ;  [ 10/16/2001   8:16 AM ]

 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001

 ;

 ;CALLED FROM OPTION [ACHSAI]

A1 ;

 S (ACHSTYP,ACHSPROV,ACHSCONP,ACHSCAN,ACHSSCC,ACHSCOPT,ACHSESDA,ACHSESDO,ACHSFDT,ACHSTDT,ACHSHON,ACHSHONN,ACHSEDOS)=""

 S (ACHSORDN,ACHSDES,ACHSRALR,ACHSRCOI,ACHSRDXN,ACHSRMPC,ACHSRPHY,ACHSRPXN,ACHSRECT,ACHSRDXN,ACHSSVDT,ACHSWKLD,ACHSDEST,ACHSDCR,ACHSAGRP,ACHSAGRN)=""

 K DFN,ACHSRDX,ACHSRPX,ACHSREF

 D ^ACHSA                      ;ENTER DOCUMENTS (1/8)

 I '$D(DUOUT),'$D(DTOUT) G A1

 D EN^XBVK("ACHS"),^ACHSVAR

 K DUOUT,DTOUT ; 3*17  6/12/00  PMF

 Q

 ;

ACHSAI    ; IHS/ITSC/PMF - GENERATE INITIAL CHS DOCUMENTS ;  [ 10/16/2001   8:16 AM ]

 +1       ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001

 +2       ;

 +3       ;CALLED FROM OPTION [ACHSAI]

A1        ;

 +1        SET (ACHSTYP,ACHSPROV,ACHSCONP,ACHSCAN,ACHSSCC,ACHSCOPT,ACHSESDA,ACHSESDO,ACHSFDT,ACHSTDT,ACHSHON,ACHSHONN,ACHSEDOS)=""

 +2        SET (ACHSORDN,ACHSDES,ACHSRALR,ACHSRCOI,ACHSRDXN,ACHSRMPC,ACHSRPHY,ACHSRPXN,ACHSRECT,ACHSRDXN,ACHSSVDT,ACHSWKLD,ACHSDEST,ACHSDCR,ACHSAGRP,ACHSAGRN)=""

 +3        KILL DFN,ACHSRDX,ACHSRPX,ACHSREF

 +4       ;ENTER DOCUMENTS (1/8)

           DO ^ACHSA

 +5        IF '$DATA(DUOUT)

               IF '$DATA(DTOUT)

                   GOTO A1

 +6        DO EN^XBVK("ACHS")

           DO ^ACHSVAR

 +7       ; 3*17  6/12/00  PMF

           KILL DUOUT,DTOUT

 +8        QUIT 

 +9       ;