Changeset 636 for FOIAVistA/tag/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCASVC.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCASVC.m
r628 r636 1 1 PRCASVC ;SF-ISC/YJK-ACCEPT, AMMEND AND CANCEL AR BILL ;9/6/95 2:09 PM 2 V ;;4.5;Accounts Receivable;**1,21,48,90,136,138 ,249**;Mar 20, 1995;Build 22 V ;;4.5;Accounts Receivable;**1,21,48,90,136,138**;Mar 20, 1995 3 3 ;;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 REL ;Accept bill into AR … … 9 9 Q3 K PRCAT,PRCAORA,PRCADEBT,DIE,DR,% 10 10 ; set the fund for the bill (set in routine rcxfmsuf) 11 S :'$G(DA) DA=PRCASV("ARREC") S%=$$GETFUNDB^RCXFMSUF(DA)11 S %=$$GETFUNDB^RCXFMSUF(DA) 12 12 I "^27^28^"[("^"_PRCASV("CAT")_"^") D 13 13 .N P
Note:
See TracChangeset
for help on using the changeset viewer.