Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDEC15

SDEC15.m

Go to the documentation of this file.
  1. SDEC15 ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016
  1. ;;5.3;Scheduling;**627**;Aug 13, 1993;Build 249
  1. ;
  1. Q
  1. ;
  1. ;
  1. ACCGPTYG(SDECY) ;Get access group types
  1. ;ACCGPTYG(SDECY) external parameter tag is in SDEC
  1. ;Returns ADO recordset containing ACTIVE Access types ordered alphabetically
  1. ;by Access Group
  1. ;AccessGroupID, AccessGroup, AccessTypeID, AccessType
  1. ;
  1. N SDEC0,SDEC1,SDEC2,SDECGPN,SDECI,SDECNOD,SDECTN
  1. S SDECY="^TMP(""SDEC"","_$J_")"
  1. K @SDECY
  1. S SDECI=0
  1. S ^TMP("SDEC",$J,SDECI)="I00020ACCESS_GROUP_TYPEID^I00020ACCESS_GROUP_ID^T00030ACCESS_GROUP^I00020ACCESS_TYPE_ID^T00030ACCESS_TYPE"_$C(30)
  1. ;
  1. ;$O Through "B" x-ref of SDEC ACCESS GROUP file
  1. S SDECGPN=0 F S SDECGPN=$O(^SDEC(409.822,"B",SDECGPN)) Q:SDECGPN="" D
  1. . S SDEC0=$O(^SDEC(409.822,"B",SDECGPN,0))
  1. . Q:'+SDEC0
  1. . Q:'$D(^SDEC(409.822,SDEC0,0)) ;INDEX VALIDITY CHECK
  1. . Q:'$D(^SDEC(409.824,"B",SDEC0))
  1. . ;$O through "B" x-ref of SDEC ACCESS GROUP TYPE
  1. . S SDEC1=0 F S SDEC1=$O(^SDEC(409.824,"B",SDEC0,SDEC1)) Q:'+SDEC1 D
  1. . . Q:'$D(^SDEC(409.824,SDEC1,0))
  1. . . S SDEC2=$P(^SDEC(409.824,SDEC1,0),U,2)
  1. . . Q:'+SDEC2
  1. . . Q:'$D(^SDEC(409.823,SDEC2,0))
  1. . . S SDECNOD=^SDEC(409.823,SDEC2,0)
  1. . . Q:$P(SDECNOD,U,2)=1 ;INACTIVE
  1. . . S SDECTN=$P(SDECNOD,U)
  1. . . S SDECI=SDECI+1
  1. . . S ^TMP("SDEC",$J,SDECI)=SDEC1_U_SDEC0_U_SDECGPN_U_SDEC2_U_SDECTN_$C(30)
  1. . . Q
  1. . Q
  1. S ^TMP("SDEC",$J,SDECI)=^TMP("SDEC",$J,SDECI)_$C(31)
  1. Q
  1. ;
  1. ERR(SDECI,SDECID,SDECERR) ;Error processing
  1. S SDECI=SDECI+1
  1. S ^TMP("SDEC",$J,SDECI)=SDECERR_"^^^^"_$C(30)
  1. S SDECI=SDECI+1
  1. S ^TMP("SDEC",$J,SDECI)=$C(31)
  1. Q
  1. ;
  1. ETRAP ;EP Error trap entry
  1. I '$D(SDECI) N SDECI S SDECI=999
  1. S SDECI=SDECI+1
  1. D ERR(SDECI,99,70)
  1. Q