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

ABSPOSCB.m

Go to the documentation of this file. 
  1. ABSPOSCB ; IHS/FCS/DRS - VMEDS(*) prep for ABSP(*) ;    [ 09/12/2002  10:07 AM ]
  1.  ;;1.0;PHARMACY POINT OF SALE;**3**;JUN 21, 2001;Build 38
  1.  ;----------------------------------------------------------------------
  1.  ;----------------------------------------------------------------------
  1.  ; Called from ABSPOSCA from ABSPOSQG from ABSPOSQ2
  1.  ;Setup ABSP() array which contains all pertinent data to create
  1.  ;Claim Submission Records for the current Billing Item Record:
  1.  ;
  1.  ;Parameters:  DIALOUT   - Dial-out (9002313.55)
  1.  ;            .ABSP      - Formatted array containing data required
  1.  ;                         to create claim submission records
  1.  ;----------------------------------------------------------------------
  1.  ;
  1.  Q
  1. ABSP(DIALOUT,ABSP) ;EP
  1.  I $D(RXILIST)<10 D IMPOSS^ABSPOSUE("P","TI","bad RXILIST",,,$T(+0))
  1.  N PATIEN,VMEDS,NMEDS,INSURER,INSPINS,VSTIEN,INDEX
  1.  D  ; set up some vars and make very sure some basic data exists
  1.  . N RXI,R0,R1 S RXI=$O(RXILIST(""))
  1.  . S R0=^ABSPT(RXI,0),R1=^(1)
  1.  . S PATIEN=$P(R0,U,6)
  1.  . S VSTIEN=$P(R0,U,7)
  1.  . S INSURER=$P(R1,U,6)
  1.  . S INSPINS=$P(R1,U,8),INSPINS=$P(^ABSPT(RXI,6),U,INSPINS)
  1.  . I 'PATIEN D IMPOSS^ABSPOSUE("DB","TI","PATIEN",,,$T(+0))
  1.  . I '$D(^DPT(PATIEN,0)) D IMPOSS^ABSPOSUE("DB","TI","^DPT(PATIEN)",,,$T(+0))
  1.  . I 'VSTIEN D IMPOSS^ABSPOSUE("DB","TI","VSTIEN",,,$T(+0))
  1.  . I '$D(^AUPNVSIT(VSTIEN,0)) D IMPOSS^ABSPOSUE("DB","TI","^AUPNVSIT(VSITIEN,0)",,,$T(+0))
  1.  ;
  1. E ;Set up VMEDS(*)=a bunch of pointers to important stuff
  1.  ; Somewhat vestigial but for now, it survives.
  1.  D GETVMED(.VMEDS)
  1.  I '$D(VMEDS) Q 551
  1.  I 'VMEDS(0) Q 553
  1.  ;
  1.  ;Get general info and set up ABSP array for Patient, Insurer, Site and
  1.  ;NCPDP record format data
  1.  D GETINFO^ABSPOSCC(DIALOUT,PATIEN,VSTIEN,INSPINS,INSURER)
  1.  ;
  1.  ;Determine number of mediations returned from GetInfo procedure
  1.  S NMEDS=+$G(VMEDS(0))
  1.  S ABSP("RX",0)=NMEDS
  1.  Q:NMEDS=0 552
  1. L ;Get medication and prescription data for each medication
  1.  F INDEX=1:1:NMEDS D MEDINFO^ABSPOSCD(VMEDS(INDEX),INDEX,INSPINS)
  1.  Q 0
  1.  ;----------------------------------------------------------------------
  1.  ;Setup VMEDS() array, which contains medication and prescription data
  1.  ;for each medication in the billing items record:
  1.  ;
  1.  ;            .VMEDS     - Array of V Medication IEN #s (9000010.14)
  1.  ;                         VMEDS(0) = <Total Number>
  1.  ;                         VMEDS(N) = $P=1 --> <V Medication IEN>
  1.  ;                                    $P=2 --> <RXIEN>
  1.  ;                                    $P=3 --> <RXRFIEN>
  1.  ;                                    $P=4 --> <VCPTIEN>
  1.  ;                                    $P=5 --> pointer to 9002313.59
  1.  ;----------------------------------------------------------------------
  1. GETVMED(VMEDS) ;
  1.  ;Manage local variables
  1.  N NEXT,COUNT,RXIEN,RXRFIEN,VMEDIEN,VCPTIEN,ABSBRXI
  1.  ;
  1.  ;Loop:  RXILIST(*) -> VMED(*)
  1.  ;
  1.  S (NEXT,COUNT)=0
  1.  F  D  Q:'NEXT
  1.  .S NEXT=$O(RXILIST(NEXT)) Q:'NEXT
  1.  .S ABSBRXI=NEXT
  1.  .;D SETSLOT^ABSPOSL(ABSBRXI) ; point to prescription's logging
  1.  .N R0,R1 S R0=^ABSPT(ABSBRXI,0),R1=^(1)
  1.  .S VMEDIEN="" ; don't know, don't care
  1.  .S RXIEN=$P(R1,U,11) I 'RXIEN D IMPOSS^ABSPOSUE("DB","TI","RXIEN",,"GETVMED",$T(+0))
  1.  .S RXRFIEN=$P(R1,U,1) I RXRFIEN="" D IMPOSS^ABSPOSUE("DB","TI","RXRFIEN",,"GETVMED",$T(+0))
  1.  .S VCPTIEN=$P(R1,U,3)
  1.  .S COUNT=COUNT+1
  1.  .S VMEDS(COUNT)=VMEDIEN_U_RXIEN_U_RXRFIEN_U_VCPTIEN_U_ABSBRXI
  1.  .;D RELSLOT^ABSPOSL ; release slot for this prescription
  1.  ;
  1.  S VMEDS(0)=COUNT
  1.  Q