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

PRCAFOR.m

Go to the documentation of this file.
  1. PRCAFOR ;WASH-ISC@ALTOONA,PA/RGY-VIA A FORM FROM BILLING MODULE ;6/22/93 2:20 PM
  1. V ;;4.5;Accounts Receivable;**198**;Mar 20, 1995
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. NEW DIC,Y,PRCAP,L,FR,TO,BY,FLDS
  1. N DPTNOFZY,DPTNOFZK S (DPTNOFZY,DPTNOFZK)=1
  1. D SVC^PRCABIL G:'$D(PRCAP("S")) Q
  1. BEG F S DIC="^PRCA(430,",DIC(0)="QEAM",DIC("S")="I +$G(^(100)),$P($G(^(100)),""^"",2)=PRCAP(""S"")" D ^DIC G:Y<0 Q S L=0,FLDS="[PRCA VENDOR PROFILE]",(FR,TO)=+Y,BY="@NUMBER" D EN1^DIP
  1. Q Q