APSPMDD.m

APSPMDD ;IHS/DSD/KML/ENM - NDC XREF CREATE IN DRUG FILE  [ 08/25/1999  3:10 PM ]

 ;;6.1;IHS PHARMACY AWP;**1,2**;03/13/98

XREF ;EP

 ; callable subroutine executed by VA FILEMAN trigger when creating the

 ; ZNDC cross-reference for file # 50 

 ; dashes will be removed from the NDC string

 ;Q:'+X ;IHS/DSD/ENM 11/27/98

 S APSPNDC=$TR(X,"-")

 S APSPNDC=$TR(APSPNDC,"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz") ;IHS/DSD/ENM 11/27/98

 S X=APSPNDC

 Q

APSPMDD   ;IHS/DSD/KML/ENM - NDC XREF CREATE IN DRUG FILE  [ 08/25/1999  3:10 PM ]

 +1       ;;6.1;IHS PHARMACY AWP;**1,2**;03/13/98

XREF      ;EP

 +1       ; callable subroutine executed by VA FILEMAN trigger when creating the

 +2       ; ZNDC cross-reference for file # 50 

 +3       ; dashes will be removed from the NDC string

 +4       ;Q:'+X ;IHS/DSD/ENM 11/27/98

 +5        SET APSPNDC=$TRANSLATE(X,"-")

 +6       ;IHS/DSD/ENM 11/27/98

           SET APSPNDC=$TRANSLATE(APSPNDC,"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz")

 +7        SET X=APSPNDC

 +8        QUIT