BQICMCSM.m

BQICMCSM ;GDHS/HSD/ALA-Case Summary Component ; 15 Feb 2016  1:26 PM

 ;;2.5;ICARE MANAGEMENT SYSTEM;**1**;May 24, 2016;Build 17

 ;

SUM(DATA,SUBREG) ;EP --

 Q

 ;

TBL(DATA,FAKE) ;EP --

 S N=0

 F  S N=$O(^ACM(56,N)) Q:'N  D

 . S CDATA=^ACM(56,N,0)

 . S ORD=$P(CDATA,"^",3),COD=$P(CDATA,"^",2),TEXT=$P(CDATA,"^",1)

 Q

 ;

GLS(DATA,SUBREG) ;EP --

 Q

BQICMCSM  ;GDHS/HSD/ALA-Case Summary Component ; 15 Feb 2016  1:26 PM

 +1       ;;2.5;ICARE MANAGEMENT SYSTEM;**1**;May 24, 2016;Build 17

 +2       ;

SUM(DATA,SUBREG) ;EP --

 +1        QUIT 

 +2       ;

TBL(DATA,FAKE) ;EP --

 +1        SET N=0

 +2        FOR 

               SET N=$ORDER(^ACM(56,N))

               IF 'N

                   QUIT 

               Begin DoDot:1

 +3                SET CDATA=^ACM(56,N,0)

 +4                SET ORD=$PIECE(CDATA,"^",3)

                   SET COD=$PIECE(CDATA,"^",2)

                   SET TEXT=$PIECE(CDATA,"^",1)

               End DoDot:1

 +5        QUIT 

 +6       ;

GLS(DATA,SUBREG) ;EP --

 +1        QUIT