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

PRCH58.m

Go to the documentation of this file.
  1. PRCH58 ;WISC/CLH-1358 FUNCTIONS UTILITY ;9/10/92 8:44 AM
  1. V ;;5.1;IFCAP;;Oct 20, 2000
  1. ;Per VHA Directive 10-93-142, this routine should not be modified.
  1. BAL(Y) ;return 1358 balances
  1. ;input internal obligation number
  1. S Y=$S($G(Y)="":-1,1:$G(^PRC(442,Y,8)))
  1. Q Y
  1. BALUP(PODA,BAL1) ;update amount of total authorizations
  1. N DIE,DR,DA,X,NBAL,ABAL
  1. S NBAL=$P($G(^PRC(442,PODA,8)),U,3),NBAL=NBAL+BAL1
  1. S DIE="^PRC(442,",DR="96////^S X=NBAL",DA=PODA D ^DIE
  1. Q
  1. BALOB(PODA,AMT) ;obligation balance
  1. N DIE,DR,DA,X
  1. S DIE="^PRC(442,",DR="94////^S X=AMT",DA=PODA D ^DIE
  1. Q
  1. ;
  1. BALAU(PODA,AMT) N DIE,DR,DA,X
  1. S DIE="^PRC(442,",DR="96////^S X=AMT",DA=PODA D ^DIE
  1. Q
  1. ;
  1. BUL(PODA) ;set bulletin node in 442
  1. S $P(^PRC(442,PODA,8),U,6)=1
  1. Q
  1. ;
  1. BULC(PODA) ;clear bulletin node in 442
  1. S $P(^PRC(442,PODA,8),U,6)=0
  1. Q
  1. ;
  1. DATE() ;date time conversion
  1. N %,X,Y
  1. D NOW^%DTC
  1. S Y=% D DD^%DT
  1. Q Y
  1. ;