ABSPOSHU.m

ABSPOSHU ;IHS/SD/lwj - various miscellaneous 5.1 utilities [ 09/04/2002  10:17 AM ]

 ;;1.0;PHARMACY POINT OF SALE;**3**;JUN 21, 2001;Build 38

 ;

 ;--------------------------------------------------------------

 ; Because of SAC routine size limitations, many utilities 

 ; had to be split off into their own individual routines to

 ; avoid the limitation.

 ;

 ;

CLNDATA ;EP   NCPDP 5.1   Called from ABSPOSH5

 ; Remove the leading and trailing blanks in each of the fields

 ; that is to be written to the ^ABSPR global.

 ;

 N NEXT,MEDN

 ; 

 S NEXT=0

 F  D  Q:'NEXT

 .S NEXT=$O(FDATA(NEXT)) Q:'NEXT

 .S FDATA(NEXT)=$$CLIP^ABSPOSU9($G(FDATA(NEXT)))

 S MEDN=""

 F  D  Q:MEDN=""

 .S MEDN=$O(FDATA("M",MEDN))

 .Q:MEDN=""

 .S NEXT=0

 .F  D  Q:'+NEXT

 ..S NEXT=$O(FDATA("M",MEDN,NEXT))

 ..Q:'+NEXT

 ..S FDATA("M",MEDN,NEXT)=$$CLIP^ABSPOSU9($G(FDATA("M",MEDN,NEXT)))

 ;

 Q

ABSPOSHU  ;IHS/SD/lwj - various miscellaneous 5.1 utilities [ 09/04/2002  10:17 AM ]

 +1       ;;1.0;PHARMACY POINT OF SALE;**3**;JUN 21, 2001;Build 38

 +2       ;

 +3       ;--------------------------------------------------------------

 +4       ; Because of SAC routine size limitations, many utilities 

 +5       ; had to be split off into their own individual routines to

 +6       ; avoid the limitation.

 +7       ;

 +8       ;

CLNDATA   ;EP   NCPDP 5.1   Called from ABSPOSH5

 +1       ; Remove the leading and trailing blanks in each of the fields

 +2       ; that is to be written to the ^ABSPR global.

 +3       ;

 +4        NEW NEXT,MEDN

 +5       ; 

 +6        SET NEXT=0

 +7        FOR 

               Begin DoDot:1

 +8                SET NEXT=$ORDER(FDATA(NEXT))

                   IF 'NEXT

                       QUIT 

 +9                SET FDATA(NEXT)=$$CLIP^ABSPOSU9($GET(FDATA(NEXT)))

               End DoDot:1

               IF 'NEXT

                   QUIT 

 +10       SET MEDN=""

 +11       FOR 

               Begin DoDot:1

 +12               SET MEDN=$ORDER(FDATA("M",MEDN))

 +13               IF MEDN=""

                       QUIT 

 +14               SET NEXT=0

 +15               FOR 

                       Begin DoDot:2

 +16                       SET NEXT=$ORDER(FDATA("M",MEDN,NEXT))

 +17                       IF '+NEXT

                               QUIT 

 +18                       SET FDATA("M",MEDN,NEXT)=$$CLIP^ABSPOSU9($GET(FDATA("M",MEDN,NEXT)))

                       End DoDot:2

                       IF '+NEXT

                           QUIT 

               End DoDot:1

               IF MEDN=""

                   QUIT 

 +19      ;

 +20       QUIT