Changeset 636 for FOIAVistA/tag/r/BAR_CODE_MED_ADMIN-ALPB-PSB/ALPBGEN1.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/ALPBGEN1.m
r628 r636 1 ALPBGEN1 ;SFVAMC/JC - Parse and File HL7 PMU messages ;05/10/07 2 ;;3.0;BAR CODE MED ADMIN;**8,37**;Mar 2004;Build 10 3 ;;Per VHA Directive 2004-038, this routine should not be modified. 1 ALPBGEN1 ;SFVAMC/JC - Parse and File HL7 PMU messages ;04/30/2003 07:59 2 ;;3.0;BAR CODE MED ADMIN;**8**;Mar 2004 4 3 Q 5 4 ; … … 45 44 ;If SSN lookup fails, try name lookup and add 46 45 I +Y<1 S DLAYGO=200,DIC="^VA(200,",DIC(0)="LM",X=ALPBNAM D ^DIC K DIC,DA,DR 47 I +Y>0 S (ALPBDA,DA ,DUZ)=+Y S ALPBMENU=$O(^DIC(19,"B","PSB BCBU WRKSTN MAIN",0)) D46 I +Y>0 S (ALPBDA,DA)=+Y S ALPBMENU=$O(^DIC(19,"B","PSB BCBU WRKSTN MAIN",0)) D 48 47 . S DIE="^VA(200,",DR="2////^S X=ALPBAC" 49 48 . ;Update name too
Note:
See TracChangeset
for help on using the changeset viewer.