Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ABSPOSSC

ABSPOSSC.m

Go to the documentation of this file. 
  1. 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
  1.  ;
  1.  ;IHS/SD/lwj 6/13/02
  1.  ; This routine is a post-init routine called from the Kids 
  1.  ; installation file for Patch 2 of Pharmacy POS.  It's only 
  1.  ; purpose is to stuff the Cache device value into the newly
  1.  ; created Cache device field (420.03) of the ABSP(9002313.55
  1.  ; file.
  1.  ;
  1.  ; The value that will be stuffed represent the device and 
  1.  ; port - |TCP|6802 .
  1.  ;
  1.  ;
  1. CACHE ;EP  As of Patch 3, this routine is called from ABSPOSJ1 as part
  1.  ; of the post init functionality
  1.  ;
  1.  N ABSPLIN,ABSPIEN,FDA,MSG
  1.  ;
  1.  S ABSPLIN="ENVOY DIRECT VIA T1 LINE"    ;line name
  1.  S ABSPIEN=$O(^ABSP(9002313.55,"B",ABSPLIN,0)) ;ien for stuffing
  1.  ;
  1.  ; fda(root,ien,field number)=value
  1.  ; field 420.03 is on the DEVICE node and represents the Cache device
  1.  S FDA(9002313.55,ABSPIEN_",",420.03)="|TCP|6802"  ;absp dial out file
  1.  D FILE^DIE(,"FDA","MSG")
  1.  I $D(MSG) D LOG^ABSPOSL2("CACHE^ABSPOSSC",.MSG) ; /IHS/OIT/RAM ; 12 JUN 17 ; AND LOG IT IF AN ERROR OCCURS.
  1.  ;
  1.  I $D(MSG) U 0 W !,"Error in setting Cache device...",! D ZWRITE^ABSPOS("MSG") Q
  1.  ;
  1.  ;
  1.  Q