GMTSY64.m

GMTSY64 ; SLC/dcm - Health Summary Patch 64 Post init ; 01/06/2003

 ;;2.7;Health Summary;**64**;Oct 20, 1995

 ;

EN ; Add an occurrance limit of 50 to Remote HS Progress Notes Reports

 N IFN,IFN1,NAME,PN

 S PN=$O(^GMT(142.1,"B","PROGRESS NOTES",0))

 Q:'PN

 S NAME="REMOTE"

 F  S NAME=$O(^GMT(142,"B",NAME)) Q:NAME=""!(NAME]"REMOTEZ")  D

 . S IFN=$O(^GMT(142,"B",NAME,0))

 . Q:'IFN  Q:'$O(^GMT(142,IFN,1,0))

 . S IFN1=0

 . F  S IFN1=$O(^GMT(142,IFN,1,IFN1)) Q:'IFN1  I $P(^(IFN1,0),"^",2)=PN D

 .. S $P(^GMT(142,IFN,1,IFN1,0),"^",3)=50

 Q

GMTSY64   ; SLC/dcm - Health Summary Patch 64 Post init ; 01/06/2003

 +1       ;;2.7;Health Summary;**64**;Oct 20, 1995

 +2       ;

EN        ; Add an occurrance limit of 50 to Remote HS Progress Notes Reports

 +1        NEW IFN,IFN1,NAME,PN

 +2        SET PN=$ORDER(^GMT(142.1,"B","PROGRESS NOTES",0))

 +3        IF 'PN

               QUIT 

 +4        SET NAME="REMOTE"

 +5        FOR 

               SET NAME=$ORDER(^GMT(142,"B",NAME))

               IF NAME=""!(NAME]"REMOTEZ")

                   QUIT 

               Begin DoDot:1

 +6                SET IFN=$ORDER(^GMT(142,"B",NAME,0))

 +7                IF 'IFN

                       QUIT 

                   IF '$ORDER(^GMT(142,IFN,1,0))

                       QUIT 

 +8                SET IFN1=0

 +9                FOR 

                       SET IFN1=$ORDER(^GMT(142,IFN,1,IFN1))

                       IF 'IFN1

                           QUIT 

                       IF $PIECE(^(IFN1,0),"^",2)=PN

                           Begin DoDot:2

 +10                           SET $PIECE(^GMT(142,IFN,1,IFN1,0),"^",3)=50

                           End DoDot:2

               End DoDot:1

 +11       QUIT