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

ABSPECX4.m

Go to the documentation of this file.
  1. ABSPECX4 ; IHS/FCS/DRS - JWS ; [ 09/12/2002 10:00 AM ]
  1. ;;1.0;PHARMACY POINT OF SALE;**3**;JUN 21, 2001;Build 38
  1. ;----------------------------------------------------------------------
  1. ;----------------------------------------------------------------------
  1. ;Function which gets a claim or response record from the ^ABSPECX
  1. ;transmission scratch global.
  1. ;
  1. ;Input Variables: IEN - Internal Entry Number of Claim Record
  1. ; MODE - "C" for Claim or "R" for Response
  1. ;
  1. ;Function Returns: AREC - ASCII formated record
  1. ;----------------------------------------------------------------------
  1. ; SVEAREC (Save a Record)
  1. ; Called from ABSPOSQH from ABSPOSQG from ABSPOSQ2
  1. ; GETAREC is apparently obsolete?
  1. ;
  1. ;GetAREC(IEN,MODE)
  1. ;Manage Local variables
  1. ;N AREC,NNODES,INDEX
  1. ;
  1. ;Make sure input variables are defined
  1. ;Q:$G(IEN)="" ""
  1. ;Q:$G(MODE)="" ""
  1. ;
  1. ;Assemble ascii record from its 245 character sections
  1. ;S AREC=""
  1. ;S NNODES=$G(^ABSPECX($J,MODE,IEN,0))
  1. ;Q:+NNODES=0
  1. ;F INDEX=1:1:NNODES D
  1. ;.S AREC=AREC_$G(^ABSPECX($J,MODE,IEN,INDEX))
  1. ;
  1. ;Q AREC
  1. ;----------------------------------------------------------------------
  1. ;Routine which creates and breaks apart an ASCII claim or response
  1. ;record and stores it in the ^ABSPECX transmission scratch global.
  1. ;
  1. ;Input Variables: AREC - ASCII formatted record
  1. ; IEN - Internal Entry Number of Claim Record
  1. ; MODE - "C" for Claim or "R" for Response
  1. ;
  1. ;Function Returns: AREC - ASCII formated record
  1. ;----------------------------------------------------------------------
  1. SVEAREC(AREC,IEN,MODE) ;EP - from ABSPOSQH
  1. ;Manage local variables
  1. N NCHARS,NNODES,INDEX,START,END
  1. ;
  1. ;Make sure input variables are defined
  1. Q:$G(AREC)=""
  1. Q:$G(MODE)=""
  1. Q:$G(IEN)=""
  1. ;
  1. ;Determine number of nodes need to store AREC
  1. S NCHARS=$L(AREC)
  1. S NNODES=((NCHARS-1)\245)+1
  1. ;
  1. K ^ABSPECX($J,MODE,IEN)
  1. S ^ABSPECX($J,MODE,IEN,0)=NNODES
  1. ;
  1. ;Break AREC into 245 character sections
  1. F INDEX=1:1:NNODES D
  1. .S START=((INDEX-1)*245)+1
  1. .S END=START+245-1
  1. .S:END>NCHARS END=NCHARS
  1. .S ^ABSPECX($J,MODE,IEN,INDEX)=$E(AREC,START,END)
  1. Q