Changeset 636 for FOIAVistA/tag/r/BAR_CODE_MED_ADMIN-ALPB-PSB/PSBO1.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/BAR_CODE_MED_ADMIN-ALPB-PSB/PSBO1.m
r628 r636 1 1 PSBO1 ;BIRMINGHAM/EFC-BCMA OUTPUTS ;Mar 2004 2 ;;3.0;BAR CODE MED ADMIN;**4,13,32 ,2**;Mar 2004;Build 222 ;;3.0;BAR CODE MED ADMIN;**4,13,32**;Mar 2004;Build 32 3 3 ;Per VHA Directive 2004-038 (or future revisions regarding same), this routine should not be modified. 4 4 ; Reference/IA … … 9 9 K RESULTS 10 10 ; Check Type 11 I '$F("DL^MD^MH^ML^MM^MV^MT^PE^PM^WA^BL^PI^AL^DO^VT^PF^XA^IV^CM^CP^CE^CI^ BZ^",PSBRTYP) S RESULTS(0)="-1^Invalid Report Type" Q11 I '$F("DL^MD^MH^ML^MM^MV^MT^PE^PM^WA^BL^PI^AL^DO^VT^PF^XA^IV^CM^CP^CE^CI^",PSBRTYP) S RESULTS(0)="-1^Invalid Report Type" Q 12 12 I '+$G(DUZ) S RESULTS(0)="-1^Undefined User" Q 13 13 I '$G(DUZ(2)) S RESULTS(0)="-1^Undefined Division" Q 14 14 ; Lock Log 15 L +(^PSB(53.69,0)): $S($G(DILOCKTM)>0:DILOCKTM,1:3)15 L +(^PSB(53.69,0)):0 16 16 E S RESULTS(0)="-1^Request Log Locked" Q 17 17 ; Generate Unique Entry and Create
Note:
See TracChangeset
for help on using the changeset viewer.