- 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/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSODEA.m
r628 r636 1 PSODEA ;BHAM ISC/ - HELP TEXT FOR DEA FIELD IN DRUG FILE ; 10/17/07 7:41am2 ;;7.0;OUTPATIENT PHARMACY; **206**;DEC 1997;Build 391 PSODEA ;BHAM ISC/ - HELP TEXT FOR DEA FIELD IN DRUG FILE ; 06/03/92 17:28 2 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997 3 3 W !,"THE SPECIAL HANDLING CODE IS A 2 TO 6 POSTION FIELD. IF APPLICABLE,",!,"A SCHEDULE CODE MUST APPEAR IN THE FIRST POSITION. FOR EXAMPLE," 4 4 W !,"A SCHEDULE 3 NARCOTIC WILL BE CODED '3A' AND A SCHEDULE 2 DEPRESSANT",!,"WILL BE CODED '2L'. THE CODES ARE:",! … … 21 21 ;;R RESTRICTED ITEMS 22 22 ;;S SUPPLY ITEMS 23 ;;B ALLOW REFILL (SCH. 3, 4, 5 ONLY)23 ;;B ALLOW REFILL (SCH. 3, 4, 5 NARCOTICS ONLY) 24 24 ;;W NOT RENEWABLE 25 25 ;; 26 26 EDIT ;INPUT XFORM FOR DEA FIELD IN DRUG FILE 27 I X["B",(+X<3 ) W !,"The B designation is only valid for schedule 3, 4, 5!",$C(7) K X Q27 I X["B",(+X<3!(X'["A")) W !,"The B designation is only valid for schedule 3, 4, 5 narcotics !",$C(7) K X Q 28 28 Q
Note:
See TracChangeset
for help on using the changeset viewer.