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

ABSPOS.m

Go to the documentation of this file. 
  1. ABSPOS ; IHS/FCS/DRS - Table of Contents, etc ;        
  1.  ;;1.0;PHARMACY POINT OF SALE;**11**;JUN 21, 2001;Build 38
  1.  ;---------------------------------------------------------
  1.  ;IHS/SD/lwj 10/05/04 patch 11
  1.  ; the location of the status field within the prescription
  1.  ; file was moved in Outpatient Pharmacy 7.0.  Altered
  1.  ; the RXDEL subroutine to look for it by Fileman instead
  1.  ; of a direct look up.
  1.  ;---------------------------------------------------------
  1.  ;
  1.  D EN^ABSPOS6A() Q  ; convenient shortcut for programmer mode
  1. VERSION() ;EP
  1.  Q $P($T(+2),";",3)
  1. VARIANT() ;EP
  1.  Q "Base level 1"
  1. TOC N I,X F I=0:1 S X=$P($T(TOC1+I),";",2,9) Q:X="*"  D
  1.  . W X,!
  1.  Q
  1. TOC1 ; Directory of ABSPOS*
  1.  ; ABSPECA* - Build/Parse formatted claim/response packets
  1.  ; ABSPECFM - Formatting (signed numeric overpunch, RJZF, LJBF, etc.)
  1.  ; ABSPECP* - Receipts
  1.  ; ABSPECR* - Development - print NCPDP formats - 9002313.91,9002313.92
  1.  ; ABSPECX* - Low-level 9002313.02 routines, descendant from ABSPOSQ2
  1.  ; ABSPECZ* - ILC A/R claims inquiry routines
  1.  ;            (want to decouple from billing system)
  1.  ; ABSPER*  - Obsolete Reports - to be phased out
  1.  ; ABSPES*  - ILC A/R selection utilities
  1.  ; ABSPMHDR - Menu header
  1.  ; ABSPOS0* - Some fetch utilities for 9002313.02, 9002313.03
  1.  ; ABSPOS1* - none
  1.  ; ABSPOS2# - Insurance auto-selection
  1.  ; ABSPOS2,2x - Manager's Stats & misc. options ScreenMan
  1.  ; ABSPOS3* - The survey routines - probes of RPMS insurance data, etc.
  1.  ; ABSPOS4* - none
  1.  ; ABSPOS5* - none
  1.  ; ABSPOS6* - User's data entry ScreenMan
  1.  ; ABSPOS7* - none
  1.  ; ABSPOS8* - none 
  1.  ; ABSPOS9  - NDC number utilities
  1.  ; ABSPOS9* - none
  1.  ; ABSPOSA* - Modem handling, low-level communications routines
  1.  ; ABSPOSB* - A/R interfaces - post charges to A/R
  1.  ; ABSPOSC# - Certification utilities (sporadic development use only)
  1.  ; ABSPOSCx - Building 9002313.02 claim (ABSPOSQ2->QG->CA->C*)
  1.  ; ABSPOSD* - none
  1.  ; ABSPOSE* - none
  1.  ; ABSPOSF* - new NCPDP forms (in development for future release)
  1.  ; ABSPOSG* - none
  1.  ; ABSPOSH* - none
  1.  ; ABSPOSI* - Data Entry / ScreenMan interface
  1.  ; ABSPOSJ* - none
  1.  ; ABSPOSK* - Winnowing old data
  1.  ; ABSPOSL* - Log file utilities
  1.  ; ABSPOSM* - Report Master file 9002313.61 / Inquire/Report 9002313.57
  1.  ;            (note: ABSPOSMA-ABSPOSMZ are in development for future)
  1.  ; ABSPOSN* - ILC A/R Billing Interface - NCPDP Paper forms print
  1.  ; ABSPOSO* - Data Entry - Override NCPDP Data Dictionary values
  1.  ; ABSPOSP* - ILC A/R Billing Interface - EOB to Payment batches
  1.  ; ABSPOSQ* - Claim processing through the queues
  1.  ; ABSPOSR* - Callable entry points from RPMS Pharm; and
  1.  ;            Background Silent Claim Submitter (monitors ^PSRX indexes)
  1.  ; ABSPOSS* - Setup POS
  1.  ; ABSPOST* - None (some name conflicts in ILC A/R V1 and V2)
  1.  ; ABSPOSU* - Utilities; some from ABSUD0xx series in ILC A/R V1
  1.  ; ABSPOSV* - None
  1.  ; ABSPOSW* - None
  1.  ; ABSPOSX* - Utilties for support usage
  1.  ; ABSPOSY* - None
  1.  ; ABSPOSZ* - Special for upgrades, installations
  1.  ;   Generally, only ABSPOSZ is distributed.
  1.  ;   ABSPOSZ_ are not distributed, and are marked DELETE AT SITE.
  1.  ;*
  1. RXDEL(RXI,RXR) ; EP - $$ is RX deleted?
  1.  ; For refills:  if the refill multiple is gone, it's been "deleted"
  1.  I $G(RXR) Q '$D(^PSRX(RXI,1,RXR,0))
  1.  ; For first fill: look at the STATUS flag
  1.  I '$D(^PSRX(RXI,0)) Q 1 ; shouldn't be missing, but it is
  1.  ;IHS/SD/lwj 10/5/04 patch 11 nxt line rmkd out, following added
  1.  ;N X S X=$P(^PSRX(RXI,0),U,15)    ;IHS/SD/lwj 10/5/04 ptch 11
  1.  N X S X=$$RXSTS(RXI)
  1.  Q X=13 ; if status is DELETED
  1. ZWRITE(%,%A,%B,%C,%D,%E)          ;EP - from many, many places
  1.  I %="%"!(%?1"%"1U) D  Q
  1.  . D IMPOSS^ABSPOSUE("P","TI","Conflict in var names",%,"ZWRITE",$T(+0))
  1.  I '$D(@%) W %," is undefined",! Q
  1.  I $D(@%)#10 W %,"=",@%,!
  1.  F  S %=$Q(@%) Q:%=""  W %,"=",@%,!
  1.  I $D(%A) D ZWRITE(%A)
  1.  I $D(%B) D ZWRITE(%B)
  1.  I $D(%C) D ZWRITE(%C)
  1.  I $D(%D) D ZWRITE(%D)
  1.  I $D(%E) D ZWRITE(%E)
  1.  Q
  1. ZE() ;EP - return value of $ZERROR
  1.  Q $$Z^ZIBNSSV("E")
  1. NOW() ;EP -
  1.  N %,%H,%I,X D NOW^%DTC Q %
  1. NOWEXT() ;EP -
  1.  N %H,%,Y,X S %H=$H D YX^%DTC Q Y
  1. RXSTS(RX)      ; EP - API Return status (patch 11)
  1.  ; 1 is returned if prescription is deleted
  1.  ; 0 if prescription is not deleted
  1.  N IENS,FILE,FLD,FLAG
  1.  S IENS=RX_","
  1.  S FILE=52
  1.  S FLD=100
  1.  S FLAG="I"
  1.  Q $$GET1^DIQ(FILE,IENS,FLD,FLAG)