Changeset 636 for FOIAVistA/tag/r/CONTROLLED_SUBSTANCES-PSD/PSDACT1.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/CONTROLLED_SUBSTANCES-PSD/PSDACT1.m
r628 r636 1 1 PSDACT1 ;BIR/JPW,BJW-Print Daily Activity Log (cont'd) ; 17 Jun 98 2 ;;3.0; CONTROLLED SUBSTANCES ;**10,14,30 ,65**;13 Feb 97;Build 52 ;;3.0; CONTROLLED SUBSTANCES ;**10,14,30**;13 Feb 97 3 3 ;Reference to ^PRC(442 supported by IA #682 4 4 ;Reference to ^PRCS(410 supported by IA #198 … … 96 96 T14 S NUM="GS # ",TEXT="EDIT VERIFIED ORDER" 97 97 I +$P(NODE,"^",17) S NUM=NUM_$P(NODE,"^",17) 98 S:$D(^PSD(58.81,PSDA,8)) TEXT="EDIT VERIFIED INVOICE",NUM=$P(^PSD(58.81,PSDA,8),"^",1) ; <*65-RJS>99 98 S QTY=$P(^PSD(58.81,PSDA,4),"^",4),BFWD=$P(^(4),"^",7) 100 99 Q
Note:
See TracChangeset
for help on using the changeset viewer.