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

SDECINI1.m

Go to the documentation of this file.
  1. SDECINI1 ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016
  1. ;;5.3;Scheduling;**627**;Aug 13, 1993;Build 249
  1. ;
  1. Q
  1. ;
  1. RESAB ;populate SDEC ACCESS BLOCK file from existing AVAILABILITY in file 44
  1. Q
  1. ;
  1. SDWLCL ;populate SD WL CLINIC LOCATION file with clinics from file 44
  1. N SDCL,SDCLID,SDCLN,SDCLRD,SDDATA,SDFDA,SDFIELDS,SDIEN,SDMSG,SDW
  1. W !!,"Updating SD WL CLINIC LOCATION file 409.32 with clinics from file 44..."
  1. S SDCL=0 F S SDCL=$O(^SC(SDCL)) Q:SDCL'>0 D
  1. .K SDDATA,SDMSG
  1. .; .01 name; 2 type; 1912 len of appt; 2508 no show let; 2509 pre-appt let; 2510 clinic can let;
  1. .;S SDFIELDS=".01;2;3;1912;2502.3;2505;2506;2508;2509;2510"
  1. .S SDFIELDS=".01;2;3;1912;2505;2506;2508;2509;2510"
  1. .D GETS^DIQ(44,SDCL_",",SDFIELDS,"IE","SDDATA","SDMSG")
  1. .Q:SDDATA(44,SDCL_",",2,"I")'="C"
  1. .;Q:SDDATA(44,SDCL_",",2502.3,"I")=1
  1. .S SDCLN=SDDATA(44,SDCL_",",.01,"E") ;clinic name
  1. .;look for existing to allow this post-init to be re-entrant
  1. .I $O(^SDWL(409.32,"B",SDCL,0)) D SDWLCL1(SDCL,.SDDATA) Q ;W !,"SDWLCL: Clinic "_SDCLN_" is already defined in SD WL CLINIC LOCATION." Q
  1. .S SDCLID=SDDATA(44,SDCL_",",2505,"I")
  1. .S SDCLRD=SDDATA(44,SDCL_",",2506,"I")
  1. .Q:$$INACTIVE^SDECUTL2(SDCL,$P($$NOW^XLFDT,".",1),9991231,SDCLID,SDCLRD)
  1. .I SDDATA(44,SDCL_",",3,"I")="" D Q
  1. ..W !,"SDWLCL: Clinic "_SDCLN_" does not have an INSTITUTION defined in file 44."
  1. ..W !," Unable to store "_SDCLN_" in the SD WL CLINIC LOCATION file."
  1. .S SDW="+1"
  1. .K SDFDA,SDIEN,SDMSG
  1. .S SDFDA=$NA(SDFDA(409.32,SDW_","))
  1. .S @SDFDA@(.01)=SDCL
  1. .S @SDFDA@(.02)=SDDATA(44,SDCL_",",3,"I")
  1. .I SDCLID="" S @SDFDA@(1)=$P($$NOW^XLFDT,".",1)
  1. .I SDCLID="" S @SDFDA@(2)=DUZ
  1. .I SDCLID'="" S @SDFDA@(3)=SDDATA(44,SDCL_",",2505,"I")
  1. .I SDCLID'="" S @SDFDA@(4)=DUZ ;SDDATA(44,SDCL_",",2506,"I")
  1. .D UPDATE^DIE("","SDFDA","SDIEN","SDMSG")
  1. .I $D(SDMSG) W !,"SDWLCL: Unable to store clinic "_SDCL_" in SD WL CLINIC LOCATION." Q
  1. Q
  1. SDWLCL1(SDCL,SDDATA) ;
  1. N SDAD,SDCLI,SDCLAD,SDCLID,SDCLRD,SDFDA,SDI,SDID
  1. S SDI="" F S SDI=$O(^SDWL(409.32,"B",SDCL,SDI)) Q:SDI'>0 D
  1. .S SDAD=$$GET1^DIQ(409.32,SDI_",",1,"I")
  1. .S SDID=$$GET1^DIQ(409.32,SDI_",",3,"I")
  1. .S SDCLAD=$P($$NOW^XLFDT,".",1)
  1. .S SDCLID=SDDATA(44,SDCL_",",2505,"I")
  1. .S SDCLRD=SDDATA(44,SDCL_",",2506,"I")
  1. .S SDCLI=$$INACTIVE^SDECUTL2(SDCL,SDCLAD,9991231,SDCLID,SDCLRD)
  1. .Q:SDCLI=0 ;leave the settings in 409.32 as they are if clinic is active
  1. .;I SDCLI=0 D ;clinic is active
  1. .;.I SDID="",((SDAD="")!(SDAD>SDCLAD)) D
  1. .;..K SDFDA
  1. .;..S SDFDA=$NA(SDFDA(409.32,SDI_","))
  1. .;..S @SDFDA@(1)=SDCLAD
  1. .;..S @SDFDA@(2)=DUZ
  1. .;..D UPDATE^DIE("","SDFDA")
  1. .I SDCLI=1 D ;clinic is inactive
  1. ..I SDID'="",SDID<=SDCLAD Q ;409.32 is already inactive
  1. ..K SDFDA
  1. ..S SDFDA=$NA(SDFDA(409.32,SDI_","))
  1. ..S @SDFDA@(3)=SDCLAD
  1. ..S @SDFDA@(4)=DUZ
  1. ..D UPDATE^DIE("","SDFDA")
  1. Q
  1. ;
  1. INDEX ;initialize new xrefs
  1. N CNT,DA,DIK,GMR,SDCL,SDWL,Y
  1. ;
  1. ;44
  1. ;AVADPR in file 44
  1. S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
  1. W !!,"Build new 'AVADPR' and 'AG' indexes for HOSPITAL LOCATION file 44"
  1. W !,Y
  1. S SDCL=0 F S SDCL=$O(^SC(SDCL)) Q:SDCL'>0 D AVADPR44(SDCL)
  1. D AG44() ;AG
  1. ;
  1. ;403.5
  1. S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
  1. W !!,"Build new 'AC' index for RECALL REMINDERS file 403.5"
  1. W !,Y
  1. D AC4035() ;AC
  1. ;
  1. ;403.56
  1. S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
  1. W !!,"Build new 'AC' index for RECALL REMINDERS REMOVED file 403.56"
  1. W !,Y
  1. D AC40356() ;AC
  1. ;
  1. ;409.3
  1. ;E in file 409.3
  1. S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
  1. W !!,"Build new 'E','AC','AD', and 'AE' indexes for SD WAIT LIST file 409.3"
  1. W !,Y
  1. N DA,DIK,SDCL
  1. D E4093() ;E
  1. D AE4093() ;AE
  1. D AC4093() ;AC
  1. D AD4093() ;AD
  1. ;
  1. ;409.831
  1. D AC409831()
  1. ;
  1. S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
  1. W !!,"Build new 'AD' index for SDEC RESOURCE USER file 409.833"
  1. W !,Y
  1. D AD833()
  1. ;
  1. ;409.85
  1. S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
  1. W !!,"Build new 'E' and 'AC' index for SDEC APPT REQUEST file 409.85"
  1. W !,Y
  1. D E40985()
  1. ;
  1. ;123 this will be done in GMRC*3.0*83
  1. ;S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
  1. ;W !!,"Build new 'AG' index for REQUEST/CONSULTATION file 123"
  1. ;W !,Y
  1. ;D I123()
  1. Q
  1. ;
  1. AC409831() ;create and build NEW style AC for all SDEC RESOURCE entries in file 44
  1. N GMRCXR,GMRCRES,GMRCOUT
  1. S GMRCXR("FILE")=409.831
  1. S GMRCXR("NAME")="AC"
  1. S GMRCXR("TYPE")="MU"
  1. S GMRCXR("USE")="S"
  1. S GMRCXR("EXECUTION")="R"
  1. S GMRCXR("ACTIVITY")="IR"
  1. S GMRCXR("SHORT DESCR")="Index of RESOURCE TYPE"
  1. S GMRCXR("DESCR",1)="This cross-reference is built from both pieces of the"
  1. S GMRCXR("DESCR",2)="RESOURCE TYPE variable pointer field to speed up the"
  1. S GMRCXR("DESCR",3)="sorting of resources when given a specific source and ID."
  1. S GMRCXR("DESCR",4)="The sources could be HOSPITAL LOCATION, NEW PERSON, or SDEC"
  1. S GMRCXR("DESCR",5)="ADDITIONAL RESOURCE."
  1. S GMRCXR("SET")="D RTS^SDEC03(DA,X) Q"
  1. S GMRCXR("KILL")="D RTK^SDEC03(DA,X) Q"
  1. S GMRCXR("WHOLE KILL")="K ^SDEC(409.831,""AC"")"
  1. S GMRCXR("VAL",1)=.012
  1. S GMRCXR("VAL",1,"SUBSCRIPT")=1
  1. S GMRCXR("VAL",1,"LENGTH")=""
  1. S GMRCXR("VAL",1,"COLLATION")="F"
  1. S GMRCXR("VAL",1,"TYPE")="F"
  1. S GMRCXR("VAL",2)=.012
  1. S GMRCXR("VAL",2,"SUBSCRIPT")=2
  1. S GMRCXR("VAL",2,"LENGTH")=""
  1. S GMRCXR("VAL",2,"COLLATION")="F"
  1. S GMRCXR("VAL",2,"TYPE")="F"
  1. D CREIXN^DDMOD(.GMRCXR,"S",.GMRCRES,"GMRCOUT")
  1. Q
  1. ;
  1. AG44() ;create and build NEW style AG for all HOSPITAL LOCATION entries in file 44
  1. N GMRCXR,GMRCRES,GMRCOUT
  1. S GMRCXR("FILE")=44
  1. S GMRCXR("NAME")="AG"
  1. S GMRCXR("TYPE")="R"
  1. S GMRCXR("USE")="S"
  1. S GMRCXR("EXECUTION")="R"
  1. S GMRCXR("ACTIVITY")="IR"
  1. S GMRCXR("SHORT DESCR")="Index by TYPE and NAME."
  1. S GMRCXR("DESCR",1)="This cross reference is used to sort by TYPE and NAME."
  1. S GMRCXR("VAL",1)=2
  1. S GMRCXR("VAL",1,"SUBSCRIPT")=1
  1. S GMRCXR("VAL",1,"LENGTH")=""
  1. S GMRCXR("VAL",1,"COLLATION")="F"
  1. S GMRCXR("VAL",2)=.01
  1. S GMRCXR("VAL",2,"SUBSCRIPT")=2
  1. S GMRCXR("VAL",2,"LENGTH")=""
  1. S GMRCXR("VAL",2,"COLLATION")="F"
  1. D CREIXN^DDMOD(.GMRCXR,"S",.GMRCRES,"GMRCOUT")
  1. Q
  1. ;
  1. AVADPR44(SDCL) ;rebuild AVADPR for given Hospital Location in file 44
  1. N DA,DIK,SDI
  1. S SDI=0 F S SDI=$O(^SC(SDCL,"PR",SDI)) Q:SDI'>0 D
  1. .S DIK="^SC("_SDCL_",""PR"","
  1. .S DA(1)=SDCL
  1. .S DA=SDI
  1. .S DIK(1)=".01^AVADPR"
  1. .D EN1^DIK
  1. Q
  1. ;
  1. AC4035() ;create and build NEW style AC for all RECALL REMINDERS entries in file 403.5
  1. N GMRCXR,GMRCRES,GMRCOUT
  1. K GMRCXR
  1. S GMRCXR("FILE")=403.5
  1. S GMRCXR("INDEX")="AC"
  1. S GMRCXR("FLAGS")="K"
  1. D DELIXN^DDMOD(GMRCXR("FILE"),GMRCXR("INDEX"),GMRCXR("FLAGS"))
  1. K GMRCXR
  1. S GMRCXR("FILE")=403.5
  1. S GMRCXR("NAME")="AC"
  1. S GMRCXR("TYPE")="R"
  1. S GMRCXR("USE")="S"
  1. S GMRCXR("EXECUTION")="R"
  1. S GMRCXR("ACTIVITY")="IR"
  1. S GMRCXR("SHORT DESCR")="Index by DATE/TIME RECALL ADDED and USER WHO ENTERED RECALL"
  1. S GMRCXR("DESCR",1)="This cross reference is used to sort by DATE/TIME RECALL ADDED"
  1. S GMRCXR("DESCR",2)="and USER WHO ENTERED RECALL."
  1. S GMRCXR("VAL",1)=7.5
  1. S GMRCXR("VAL",1,"SUBSCRIPT")=1
  1. S GMRCXR("VAL",1,"LENGTH")=""
  1. S GMRCXR("VAL",1,"COLLATION")="F"
  1. S GMRCXR("VAL",2)=7
  1. S GMRCXR("VAL",2,"SUBSCRIPT")=2
  1. S GMRCXR("VAL",2,"LENGTH")=""
  1. S GMRCXR("VAL",2,"COLLATION")="F"
  1. D CREIXN^DDMOD(.GMRCXR,"S",.GMRCRES,"GMRCOUT")
  1. Q
  1. ;
  1. AC40356() ;create and build NEW style AC for all RECALL REMINDERS REMOVED entries in file 403.56
  1. N GMRCXR,GMRCRES,GMRCOUT
  1. K GMRCXR
  1. S GMRCXR("FILE")=403.56
  1. S GMRCXR("INDEX")="AC"
  1. S GMRCXR("FLAGS")="K"
  1. D DELIXN^DDMOD(GMRCXR("FILE"),GMRCXR("INDEX"),GMRCXR("FLAGS"))
  1. K GMRCXR
  1. S GMRCXR("FILE")=403.56
  1. S GMRCXR("NAME")="AC"
  1. S GMRCXR("TYPE")="R"
  1. S GMRCXR("USE")="S"
  1. S GMRCXR("EXECUTION")="R"
  1. S GMRCXR("ACTIVITY")="IR"
  1. S GMRCXR("SHORT DESCR")="Index by DATE/TIME RECALL ADDED and USER WHO ENTERED RECALL"
  1. S GMRCXR("DESCR",1)="This cross reference is used to sort by DATE/TIME RECALL ADDED"
  1. S GMRCXR("DESCR",2)="and USER WHO ENTERED RECALL."
  1. S GMRCXR("VAL",1)=7.5
  1. S GMRCXR("VAL",1,"SUBSCRIPT")=1
  1. S GMRCXR("VAL",1,"LENGTH")=""
  1. S GMRCXR("VAL",1,"COLLATION")="F"
  1. S GMRCXR("VAL",2)=7
  1. S GMRCXR("VAL",2,"SUBSCRIPT")=2
  1. S GMRCXR("VAL",2,"LENGTH")=""
  1. S GMRCXR("VAL",2,"COLLATION")="F"
  1. D CREIXN^DDMOD(.GMRCXR,"S",.GMRCRES,"GMRCOUT")
  1. Q
  1. ;
  1. E4093(SDWL) ;rebuild E for given SD WAIT LIST in file 409.3
  1. N DA,DIK
  1. S DIK="^SDWL(409.3,"
  1. ;S DA(1)=SDWL
  1. S DIK(1)=23
  1. D ENALL^DIK
  1. Q
  1. AF4093() ;create and build NEW style AF for all SD WAIT LIST entries in file 409.3
  1. N GMRCXR,GMRCRES,GMRCOUT
  1. S GMRCXR("FILE")=409.3
  1. S GMRCXR("NAME")="AF"
  1. S GMRCXR("TYPE")="R"
  1. S GMRCXR("USE")="S"
  1. S GMRCXR("EXECUTION")="R"
  1. S GMRCXR("ACTIVITY")="IR"
  1. ;S GMRCXR("ROOT TYPE")="W"
  1. ;S GMRCXR("ROOT FILE")=123.02
  1. S GMRCXR("SHORT DESCR")="Index by CURRENT STATUS and ORIGINATING DATE."
  1. S GMRCXR("DESCR",1)="This xref is used to speed up the lookup of open or closed"
  1. S GMRCXR("DESCR",2)="wait list entries for a given time range.."
  1. S GMRCXR("VAL",1)=23
  1. S GMRCXR("VAL",1,"SUBSCRIPT")=1
  1. S GMRCXR("VAL",1,"LENGTH")=""
  1. S GMRCXR("VAL",1,"COLLATION")="F"
  1. S GMRCXR("VAL",2)=1
  1. S GMRCXR("VAL",2,"SUBSCRIPT")=2
  1. S GMRCXR("VAL",2,"LENGTH")=""
  1. S GMRCXR("VAL",2,"COLLATION")="F"
  1. D CREIXN^DDMOD(.GMRCXR,"S",.GMRCRES,"GMRCOUT")
  1. Q
  1. AE4093(SDWL) ;rebuild AE for given SD WAIT LIST in file 409.3
  1. N DA,DIK
  1. S DIK="^SDWL(409.3,"
  1. ;S DA(1)=SDWL
  1. S DIK(1)=8.5
  1. D ENALL^DIK
  1. Q
  1. AC4093() ;create and build NEW style AC for all SD WAIT LIST entries in file 409.3
  1. N GMRCXR
  1. K GMRCXR
  1. S GMRCXR("FILE")=409.3
  1. S GMRCXR("INDEX")="AC"
  1. S GMRCXR("FLAGS")="K"
  1. D DELIXN^DDMOD(GMRCXR("FILE"),GMRCXR("INDEX"),GMRCXR("FLAGS"))
  1. K GMRCXR
  1. N GMRCXR,GMRCRES,GMRCOUT
  1. S GMRCXR("FILE")=409.3
  1. S GMRCXR("NAME")="AC"
  1. S GMRCXR("TYPE")="R"
  1. S GMRCXR("USE")="S"
  1. S GMRCXR("EXECUTION")="R"
  1. S GMRCXR("ACTIVITY")="IR"
  1. S GMRCXR("SHORT DESCR")="Index by ORIGINATING DATE and ORIGINATING USER"
  1. S GMRCXR("DESCR",1)="This cross reference is used to sort by ORIGINATING DATE and"
  1. S GMRCXR("DESCR",2)="ORIGINATING USER."
  1. S GMRCXR("VAL",1)=9.5
  1. S GMRCXR("VAL",1,"SUBSCRIPT")=1
  1. S GMRCXR("VAL",1,"LENGTH")=""
  1. S GMRCXR("VAL",1,"COLLATION")="F"
  1. S GMRCXR("VAL",2)=9
  1. S GMRCXR("VAL",2,"SUBSCRIPT")=2
  1. S GMRCXR("VAL",2,"LENGTH")=""
  1. S GMRCXR("VAL",2,"COLLATION")="F"
  1. D CREIXN^DDMOD(.GMRCXR,"S",.GMRCRES,"GMRCOUT")
  1. Q
  1. AD4093() ;create and build NEW style AD for all SD WAIT LIST entries in file 409.3
  1. N GMRCXR,GMRCRES,GMRCOUT
  1. N GMRCXR
  1. K GMRCXR
  1. S GMRCXR("FILE")=409.3
  1. S GMRCXR("INDEX")="AD"
  1. S GMRCXR("FLAGS")="K"
  1. D DELIXN^DDMOD(GMRCXR("FILE"),GMRCXR("INDEX"),GMRCXR("FLAGS"))
  1. K GMRCXR
  1. S GMRCXR("FILE")=409.3
  1. S GMRCXR("NAME")="AD"
  1. S GMRCXR("TYPE")="R"
  1. S GMRCXR("USE")="S"
  1. S GMRCXR("EXECUTION")="R"
  1. S GMRCXR("ACTIVITY")="IR"
  1. S GMRCXR("SHORT DESCR")="Index by PATIENT and WL SPECIFIC HOSPITAL LOCATION"
  1. S GMRCXR("DESCR",1)="This cross reference is used to sort by PATIENT and"
  1. S GMRCXR("DESCR",2)="WL SPECIFIC HOSPITAL LOCATION."
  1. S GMRCXR("VAL",1)=.01
  1. S GMRCXR("VAL",1,"SUBSCRIPT")=1
  1. S GMRCXR("VAL",1,"LENGTH")=""
  1. S GMRCXR("VAL",1,"COLLATION")="F"
  1. S GMRCXR("VAL",2)=8.5
  1. S GMRCXR("VAL",2,"SUBSCRIPT")=2
  1. S GMRCXR("VAL",2,"LENGTH")=""
  1. S GMRCXR("VAL",2,"COLLATION")="F"
  1. D CREIXN^DDMOD(.GMRCXR,"S",.GMRCRES,"GMRCOUT")
  1. Q
  1. ;
  1. E40985() ;create NEW style E and AC for SDEC APPT REQUEST file 409.85
  1. N GMRCXR,GMRCRES,GMRCOUT
  1. S GMRCXR("FILE")=409.85
  1. S GMRCXR("NAME")="E"
  1. S GMRCXR("TYPE")="R"
  1. S GMRCXR("USE")="S"
  1. S GMRCXR("EXECUTION")="R"
  1. S GMRCXR("ACTIVITY")="IR"
  1. S GMRCXR("SHORT DESCR")="Index by CURRENT STATUS and CREATE DATE."
  1. S GMRCXR("DESCR",1)="This cross reference is used to sort by CURRENT STATUS and CREATE DATE."
  1. S GMRCXR("VAL",1)=23
  1. S GMRCXR("VAL",1,"SUBSCRIPT")=1
  1. S GMRCXR("VAL",1,"LENGTH")=""
  1. S GMRCXR("VAL",1,"COLLATION")="F"
  1. S GMRCXR("VAL",2)=1
  1. S GMRCXR("VAL",2,"SUBSCRIPT")=2
  1. S GMRCXR("VAL",2,"LENGTH")=""
  1. S GMRCXR("VAL",2,"COLLATION")="F"
  1. D CREIXN^DDMOD(.GMRCXR,"S",.GMRCRES,"GMRCOUT")
  1. ;AC
  1. K GMRCXR
  1. S GMRCXR("FILE")=409.85
  1. S GMRCXR("INDEX")="AC"
  1. S GMRCXR("FLAGS")="K"
  1. D DELIXN^DDMOD(GMRCXR("FILE"),GMRCXR("INDEX"),GMRCXR("FLAGS"))
  1. K GMRCXR
  1. S GMRCXR("FILE")=409.85
  1. S GMRCXR("NAME")="AC"
  1. S GMRCXR("TYPE")="R"
  1. S GMRCXR("USE")="S"
  1. S GMRCXR("EXECUTION")="R"
  1. S GMRCXR("ACTIVITY")="IR"
  1. S GMRCXR("SHORT DESCR")="Index by CREATE DATE and ORIGINATING USER"
  1. S GMRCXR("DESCR",1)="This cross reference is used to sort by CREATE DATE and"
  1. S GMRCXR("DESCR",2)="ORIGINATING USER."
  1. S GMRCXR("VAL",1)=9.5
  1. S GMRCXR("VAL",1,"SUBSCRIPT")=1
  1. S GMRCXR("VAL",1,"LENGTH")=""
  1. S GMRCXR("VAL",1,"COLLATION")="F"
  1. S GMRCXR("VAL",2)=9
  1. S GMRCXR("VAL",2,"SUBSCRIPT")=2
  1. S GMRCXR("VAL",2,"LENGTH")=""
  1. S GMRCXR("VAL",2,"COLLATION")="F"
  1. D CREIXN^DDMOD(.GMRCXR,"S",.GMRCRES,"GMRCOUT")
  1. Q
  1. ;
  1. AD833() ;create and build NEW style AD for all SDEC RESOURCE USER entries in file 409.833
  1. N GMRCXR,GMRCRES,GMRCOUT
  1. K GMRCXR
  1. S GMRCXR("FILE")=409.833
  1. S GMRCXR("INDEX")="AD"
  1. S GMRCXR("FLAGS")="K"
  1. D DELIXN^DDMOD(GMRCXR("FILE"),GMRCXR("INDEX"),GMRCXR("FLAGS"))
  1. K GMRCXR
  1. S GMRCXR("FILE")=409.833
  1. S GMRCXR("NAME")="AD"
  1. S GMRCXR("TYPE")="R"
  1. S GMRCXR("USE")="S"
  1. S GMRCXR("EXECUTION")="R"
  1. S GMRCXR("ACTIVITY")="IR"
  1. ;S GMRCXR("ROOT TYPE")="W"
  1. ;S GMRCXR("ROOT FILE")=123.02
  1. S GMRCXR("SHORT DESCR")="Index by RESOURCENAME and USERNAME."
  1. S GMRCXR("DESCR",1)="This cross reference is used to sort by RESOURCENAME and USERNAME."
  1. S GMRCXR("VAL",1)=.01
  1. S GMRCXR("VAL",1,"SUBSCRIPT")=1
  1. S GMRCXR("VAL",1,"LENGTH")=""
  1. S GMRCXR("VAL",1,"COLLATION")="F"
  1. S GMRCXR("VAL",2)=.02
  1. S GMRCXR("VAL",2,"SUBSCRIPT")=2
  1. S GMRCXR("VAL",2,"LENGTH")=""
  1. S GMRCXR("VAL",2,"COLLATION")="F"
  1. D CREIXN^DDMOD(.GMRCXR,"S",.GMRCRES,"GMRCOUT")
  1. Q
  1. ;
  1. I123() ;create and build NEW style AG for all REQUEST/CONSULTATION entries in file 123
  1. N GMRCXR,GMRCRES,GMRCOUT
  1. S GMRCXR("FILE")=123
  1. S GMRCXR("NAME")="AG"
  1. S GMRCXR("TYPE")="R"
  1. S GMRCXR("USE")="S"
  1. S GMRCXR("EXECUTION")="R"
  1. S GMRCXR("ACTIVITY")="IR"
  1. S GMRCXR("SHORT DESCR")="Index by DATE/TIME OF ACTION ENTRY and WHO ENTERED ACTIVITY."
  1. S GMRCXR("ROOT TYPE")="W"
  1. S GMRCXR("ROOT FILE")=123.02
  1. S GMRCXR("DESCR",1)="This cross reference is used to sort by DATE/TIME OF ACTION ENTRY and"
  1. S GMRCXR("DESCR",2)="WHO ENTERED ACTIVITY."
  1. S GMRCXR("VAL",1)=.01
  1. S GMRCXR("VAL",1,"SUBSCRIPT")=1
  1. S GMRCXR("VAL",1,"LENGTH")=""
  1. S GMRCXR("VAL",1,"COLLATION")="F"
  1. S GMRCXR("VAL",2)=4
  1. S GMRCXR("VAL",2,"SUBSCRIPT")=2
  1. S GMRCXR("VAL",2,"LENGTH")=""
  1. S GMRCXR("VAL",2,"COLLATION")="F"
  1. D CREIXN^DDMOD(.GMRCXR,"S",.GMRCRES,"GMRCOUT")
  1. Q