AGGPS1P1.m

AGGPS1P1 ;VNGT/HS/ALA-Post Install for Patch 1 ; 30 Dec 2010  8:21 AM

 ;;1.0;PATIENT REGISTRATION GUI;**1**;Nov 15, 2010

 ;

EN ; Find comments that contain the $C(13) control character

 NEW DFN,TEXT,RGN

 S DFN=0

 F  S DFN=$O(^AUPNPAT(DFN)) Q:'DFN  D

 . S RGN=0

 . F  S RGN=$O(^AUPNPAT(DFN,13,RGN)) Q:'RGN  D

 .. I ^AUPNPAT(DFN,13,RGN,0)[$C(13) D

 ... S TEXT=^AUPNPAT(DFN,13,RGN,0)

 ... S TEXT=$$CTRL^AGGUL1(TEXT)

 ... S ^AUPNPAT(DFN,13,RGN,0)=TEXT

 . S RGN=0

 . F  S RGN=$O(^AUPNPAT(DFN,12,RGN)) Q:'RGN  D

 .. I ^AUPNPAT(DFN,12,RGN,0)[$C(13) D

 ... S TEXT=^AUPNPAT(DFN,12,RGN,0)

 ... S TEXT=$$CTRL^AGGUL1(TEXT)

 ... S ^AUPNPAT(DFN,12,RGN,0)=TEXT

 Q

AGGPS1P1  ;VNGT/HS/ALA-Post Install for Patch 1 ; 30 Dec 2010  8:21 AM

 +1       ;;1.0;PATIENT REGISTRATION GUI;**1**;Nov 15, 2010

 +2       ;

EN        ; Find comments that contain the $C(13) control character

 +1        NEW DFN,TEXT,RGN

 +2        SET DFN=0

 +3        FOR 

               SET DFN=$ORDER(^AUPNPAT(DFN))

               IF 'DFN

                   QUIT 

               Begin DoDot:1

 +4                SET RGN=0

 +5                FOR 

                       SET RGN=$ORDER(^AUPNPAT(DFN,13,RGN))

                       IF 'RGN

                           QUIT 

                       Begin DoDot:2

 +6                        IF ^AUPNPAT(DFN,13,RGN,0)[$CHAR(13)

                               Begin DoDot:3

 +7                                SET TEXT=^AUPNPAT(DFN,13,RGN,0)

 +8                                SET TEXT=$$CTRL^AGGUL1(TEXT)

 +9                                SET ^AUPNPAT(DFN,13,RGN,0)=TEXT

                               End DoDot:3

                       End DoDot:2

 +10               SET RGN=0

 +11               FOR 

                       SET RGN=$ORDER(^AUPNPAT(DFN,12,RGN))

                       IF 'RGN

                           QUIT 

                       Begin DoDot:2

 +12                       IF ^AUPNPAT(DFN,12,RGN,0)[$CHAR(13)

                               Begin DoDot:3

 +13                               SET TEXT=^AUPNPAT(DFN,12,RGN,0)

 +14                               SET TEXT=$$CTRL^AGGUL1(TEXT)

 +15                               SET ^AUPNPAT(DFN,12,RGN,0)=TEXT

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +16       QUIT