Changeset 636 for FOIAVistA/tag/r/CONTROLLED_SUBSTANCES-PSD/PSDSITE.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/PSDSITE.m
r628 r636 1 1 PSDSITE ;BIR/JPW,LTL-Site Parameters for CS ; 3 May 95 2 ;;3.0; CONTROLLED SUBSTANCES ; **65**;13 Feb 97;Build 52 ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97 3 3 SITE ;entry for selecting inpatient sites in file 59.4 4 K DIC,DLAYGO S DIC="^PS(59.4,",DLAYGO=59.4,DIC(0)="QEAL",D="B",DZ="??"4 K DIC,DLAYGO S (DIC,DLAYGO)="^PS(59.4,",DIC(0)="QEAL",D="B",DZ="??" 5 5 D DQ^DICQ K D,DZ W ! D ^DIC K DIC G:Y<0 END 6 6 K DA,DIE,DR S DIE=59.4,DA=+Y,DR="31"_"Is "_$P(Y,U,2)_" selectable for Controlled Subs" W ! D ^DIE K DIE
Note:
See TracChangeset
for help on using the changeset viewer.