Routine: ABSPOSSC

ABSPOSSC ;IHS/SD/lwj  - Set Cache device type in ABSP Dial out file [ 09/16/2002  9:37 AM ]

 ;;1.0;PHARMACY POINT OF SALE;**2,48**;JUN 21, 2001;Build 38

 ;IHS/SD/lwj 6/13/02

 ; This routine is a post-init routine called from the Kids

 ; installation file for Patch 2 of Pharmacy POS.  It's only

 ; purpose is to stuff the Cache device value into the newly

 ; created Cache device field (420.03) of the ABSP(9002313.55

 ; file.

 ; The value that will be stuffed represent the device and

 ; port - |TCP|6802 .

CACHE ;EP  As of Patch 3, this routine is called from ABSPOSJ1 as part

 ; of the post init functionality

 N ABSPLIN,ABSPIEN,FDA,MSG

 S ABSPLIN="ENVOY DIRECT VIA T1 LINE"    ;line name

 S ABSPIEN=$O(^ABSP(9002313.55,"B",ABSPLIN,0)) ;ien for stuffing

 ; fda(root,ien,field number)=value

 ; field 420.03 is on the DEVICE node and represents the Cache device

 S FDA(9002313.55,ABSPIEN_",",420.03)="|TCP|6802"  ;absp dial out file

 D FILE^DIE(,"FDA","MSG")

 I $D(MSG) D LOG^ABSPOSL2("CACHE^ABSPOSSC",.MSG) ; /IHS/OIT/RAM ; 12 JUN 17 ; AND LOG IT IF AN ERROR OCCURS.

 I $D(MSG) U 0 W !,"Error in setting Cache device...",! D ZWRITE^ABSPOS("MSG") Q

ABSPOSSC  ;IHS/SD/lwj  - Set Cache device type in ABSP Dial out file [ 09/16/2002  9:37 AM ]

 +1       ;;1.0;PHARMACY POINT OF SALE;**2,48**;JUN 21, 2001;Build 38

 +2       ;

 +3       ;IHS/SD/lwj 6/13/02

 +4       ; This routine is a post-init routine called from the Kids

 +5       ; installation file for Patch 2 of Pharmacy POS.  It's only

 +6       ; purpose is to stuff the Cache device value into the newly

 +7       ; created Cache device field (420.03) of the ABSP(9002313.55

 +8       ; file.

 +9       ;

 +10      ; The value that will be stuffed represent the device and

 +11      ; port - |TCP|6802 .

 +12      ;

 +13      ;

CACHE     ;EP  As of Patch 3, this routine is called from ABSPOSJ1 as part

 +1       ; of the post init functionality

 +2       ;

 +3        NEW ABSPLIN,ABSPIEN,FDA,MSG

 +4       ;

 +5       ;line name

           SET ABSPLIN="ENVOY DIRECT VIA T1 LINE"

 +6       ;ien for stuffing

           SET ABSPIEN=$ORDER(^ABSP(9002313.55,"B",ABSPLIN,0))

 +7       ;

 +8       ; fda(root,ien,field number)=value

 +9       ; field 420.03 is on the DEVICE node and represents the Cache device

 +10      ;absp dial out file

           SET FDA(9002313.55,ABSPIEN_",",420.03)="|TCP|6802"

 +11       DO FILE^DIE(,"FDA","MSG")

 +12      ; /IHS/OIT/RAM ; 12 JUN 17 ; AND LOG IT IF AN ERROR OCCURS.

           IF $DATA(MSG)

               DO LOG^ABSPOSL2("CACHE^ABSPOSSC",.MSG)

 +13      ;

 +14       IF $DATA(MSG)

               USE 0

               WRITE !,"Error in setting Cache device...",!

               DO ZWRITE^ABSPOS("MSG")

               QUIT

 +15      ;

 +16      ;

 +17       QUIT

ABSPOSSC.m