BSDX39.m

BSDX39 ; IHS/OIT/HMW/MSC/SAT - WINDOWS SCHEDULING RPCS ;

 ;;3.0;IHS WINDOWS SCHEDULING;;DEC 09, 2010

 ;

 ;  PWH = return list of active Health Summary PWH Types - RPC

 ;

 ;return list of active Health Summary PWH Types - RPC

PWH(BSDXY) ;EP

 ; RPC Name is BSDX PWH TYPES

 ;  .BSDXY   = returned pointer to list of active Health Summary PWH Types from file 9001026 ^APCHPWHT

 ;   no input

 ; called by BSDX HS PWH TYPES

 N BSDXI,PWH,PWHNAME

 D ^XBKVAR S X="ERROR^BSDXERR",@^%ZOSF("TRAP")

 S BSDXI=0

 K ^BSDXTMP($J)

 S BSDXY="^BSDXTMP("_$J_")"

 ; data header

 S ^BSDXTMP($J,0)="T00020PWH_TYPE_IEN^T00020PWH_TYPE_NAME"_$C(30)

 ;loop thru PWH Types

 S PWH=0 F  S PWH=$O(^APCHPWHT(PWH)) Q:PWH'>0  D

 . S PWHNAME=$$GET1^DIQ(9001026,PWH_",",.01)

 . S BSDXI=BSDXI+1

 . S ^BSDXTMP($J,BSDXI)=PWH_U_PWHNAME_$C(30)

 ;

 S BSDXI=BSDXI+1

 S ^BSDXTMP($J,BSDXI)=$C(31)

 Q

BSDX39    ; IHS/OIT/HMW/MSC/SAT - WINDOWS SCHEDULING RPCS ;

 +1       ;;3.0;IHS WINDOWS SCHEDULING;;DEC 09, 2010

 +2       ;

 +3       ;  PWH = return list of active Health Summary PWH Types - RPC

 +4       ;

 +5       ;return list of active Health Summary PWH Types - RPC

PWH(BSDXY) ;EP

 +1       ; RPC Name is BSDX PWH TYPES

 +2       ;  .BSDXY   = returned pointer to list of active Health Summary PWH Types from file 9001026 ^APCHPWHT

 +3       ;   no input

 +4       ; called by BSDX HS PWH TYPES

 +5        NEW BSDXI,PWH,PWHNAME

 +6        DO ^XBKVAR

           SET X="ERROR^BSDXERR"

           SET @^%ZOSF("TRAP")

 +7        SET BSDXI=0

 +8        KILL ^BSDXTMP($JOB)

 +9        SET BSDXY="^BSDXTMP("_$JOB_")"

 +10      ; data header

 +11       SET ^BSDXTMP($JOB,0)="T00020PWH_TYPE_IEN^T00020PWH_TYPE_NAME"_$CHAR(30)

 +12      ;loop thru PWH Types

 +13       SET PWH=0

           FOR 

               SET PWH=$ORDER(^APCHPWHT(PWH))

               IF PWH'>0

                   QUIT 

               Begin DoDot:1

 +14               SET PWHNAME=$$GET1^DIQ(9001026,PWH_",",.01)

 +15               SET BSDXI=BSDXI+1

 +16               SET ^BSDXTMP($JOB,BSDXI)=PWH_U_PWHNAME_$CHAR(30)

               End DoDot:1

 +17      ;

 +18       SET BSDXI=BSDXI+1

 +19       SET ^BSDXTMP($JOB,BSDXI)=$CHAR(31)

 +20       QUIT