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

BARPST1.m

Go to the documentation of this file.
  1. BARPST1 ; IHS/SD/LSL - Posting and Adjustments ; 07/10/2010
  1. ;;1.8;IHS ACCOUNTS RECEIVABLE;**19,21**;OCT 26, 2005
  1. ;
  1. ;
  1. ; IHS/SD/TMM 06/18/2010 1.8*19 Add Prepayment functionality.
  1. ; See work order 3PMS10001
  1. ; ------------------------
  1. ; 819_1. Display prepayments not assigned to a batch (^BARCLU)
  1. ; 819_2. Remove prompt: AUTO PRINT RECEIPT (^BARCLU01)
  1. ; 819_3. Prepayment entry ^BARPPY01 (new routine),^BARCLU1,^BARPUTL
  1. ; 819_4. Display prepayments matching payment type selected (^BARCLU)
  1. ; 819_5. Allow user to assign prepayment to batch (^BARCLU,^BARCLU01,^BARPUTL,^BARPST1,^BARBLLK)
  1. ; 819_6. Print Prepayment Receipt (^BARPPY02) (new routine)
  1. ; *********************************************************************
  1. ;
  1. EN() ; EP
  1. ; Batch Posting entry
  1. K BARPAT,BARZ
  1. D SELBILL^BARPUTL
  1. I $G(BARZ) Q BARZ
  1. D ASKPAT^BARPUTL
  1. I $G(BARZ) Q BARZ
  1. D GETBIL^BARPUTL
  1. I $G(BARZ) Q BARZ
  1. Q 0
  1. ; *********************************************************************
  1. ;
  1. TOP(BARV) ; EP
  1. ; Select Batch
  1. W !!!
  1. W "Select Batch: "_$P(BARCOL(0),U,1)
  1. S Y=+BARCOL
  1. D BATW^BARPST
  1. D BBAL^BARPST(BARCOL)
  1. W !!,"Select Item: "_BARITM
  1. S Y=+BARITM
  1. D DICW^BARPST
  1. D IBAL^BARPST(BARITM)
  1. I $G(BAREOB) D
  1. .N DA
  1. .W !!
  1. .W "Select Visit Location: "
  1. .S DA=BAREOB
  1. .S DA(1)=+BARITM
  1. .S DA(2)=+BARCOL
  1. .W $$VAL^XBDIQ1(90051.1101601,.DA,.01)
  1. .D EBAL^BARPST(BAREOB)
  1. Q:'BARV
  1. W !!
  1. W "Select Patient: "_$P(BARPAT(0),U,1)
  1. Q
  1. ;
  1. EN1(DICB,DICB2,DICB3) ; EP
  1. ;--->NEW TAG EN1---> ;M819*ADD*TMM*20100711 (819_4)
  1. ; (Same as EN^BARPST1 but passes default DIC("B") values to ^BARPUTL
  1. ;
  1. ; Batch Posting entry
  1. K BARPAT,BARZ
  1. D SELBILLB^BARPUTL(DICB2)
  1. I $G(BARZ) Q BARZ
  1. D ASKPATB^BARPUTL(DICB)
  1. I $G(BARZ) Q BARZ
  1. D GETBILB^BARPUTL(DICB3)
  1. I $G(BARZ) Q BARZ
  1. Q 0