ABSPOSS5.m

ABSPOSS5 ; IHS/FCS/DRS - 9002313.55 DIAL OUT ;  

 ;;1.0;PHARMACY POINT OF SALE;;JUN 21, 2001

 Q

ABSPOSS1 ;EP - ABSPOSS1

 ; We want to just print the ones that are used, perhaps?

 ; And make mention of the ones that aren't used?

 D TEMPLATE^ABSPOSS2("ABSP DIAL OUT",9002313.55,"CAPTIONED")

 Q

DEFAULT()          ; return pointer to the DEFAULT dial out

 N X S X=$O(^ABSP(9002313.55,"B","DEFAULT",0))

 I 'X D IMPOSS^ABSPOSUE("DB","TI","Missing the dial out named DEFAULT",,"DEFAULT",$T(+0))

 Q X

BASIC ;EP - option ABSP DIAL OUT BASIC

 ; Basic edit - just a few fields in the default dial out

 ; and the 9002313.99 pointer to the default dial out

 N DIE,DA,DR,DIDEL,DTOUT

 W !,"Set up information about the modem being used to send claims:",!

 S DIE=9002313.55,DA=$$DEFAULT,DR="[ABSP SETUP DIAL OUT BASIC]"

 D ^DIE

 D DEF

 Q

DEF ;EP - option ABSP DIAL OUT DEF. ; also done as part of BASIC

 W !!,"Choose the destination to which claims will be sent.",!!

 W "Usually, answer ENVOY and select any one of the choices.",!!

 N DIE,DA,DR,DIDEL,DTOUT

 S DIE=9002313.99,DA=1,DR=440.01 D ^DIE

 Q

 ; ABSP SETUP DIAL OUT ADV ; advanced setup

 ; is done as an "edit" option

ABSPOSS5  ; IHS/FCS/DRS - 9002313.55 DIAL OUT ;  

 +1       ;;1.0;PHARMACY POINT OF SALE;;JUN 21, 2001

 +2        QUIT 

ABSPOSS1  ;EP - ABSPOSS1

 +1       ; We want to just print the ones that are used, perhaps?

 +2       ; And make mention of the ones that aren't used?

 +3        DO TEMPLATE^ABSPOSS2("ABSP DIAL OUT",9002313.55,"CAPTIONED")

 +4        QUIT 

DEFAULT() ; return pointer to the DEFAULT dial out

 +1        NEW X

           SET X=$ORDER(^ABSP(9002313.55,"B","DEFAULT",0))

 +2        IF 'X

               DO IMPOSS^ABSPOSUE("DB","TI","Missing the dial out named DEFAULT",,"DEFAULT",$TEXT(+0))

 +3        QUIT X

BASIC     ;EP - option ABSP DIAL OUT BASIC

 +1       ; Basic edit - just a few fields in the default dial out

 +2       ; and the 9002313.99 pointer to the default dial out

 +3        NEW DIE,DA,DR,DIDEL,DTOUT

 +4        WRITE !,"Set up information about the modem being used to send claims:",!

 +5        SET DIE=9002313.55

           SET DA=$$DEFAULT

           SET DR="[ABSP SETUP DIAL OUT BASIC]"

 +6        DO ^DIE

 +7        DO DEF

 +8        QUIT 

DEF       ;EP - option ABSP DIAL OUT DEF. ; also done as part of BASIC

 +1        WRITE !!,"Choose the destination to which claims will be sent.",!!

 +2        WRITE "Usually, answer ENVOY and select any one of the choices.",!!

 +3        NEW DIE,DA,DR,DIDEL,DTOUT

 +4        SET DIE=9002313.99

           SET DA=1

           SET DR=440.01

           DO ^DIE

 +5        QUIT 

 +6       ; ABSP SETUP DIAL OUT ADV ; advanced setup

 +7       ; is done as an "edit" option