USRIL ; List Template Exporter ; 16-JAN-1997
;;1.0;AUTHORIZATION/SUBSCRIPTION;;Jun 20, 1997
D BMES^XPDUTL("'USR DEFINE CLASSES' List Template...")
S DA=$O(^SD(409.61,"B","USR DEFINE CLASSES",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="USR DEFINE CLASSES" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="USR DEFINE CLASSES^1^^80^4^18^1^1^Class^USR CLASS ACTION MENU^User Classes"
.S ^SD(409.61,VALM,1)="^USR HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""USRCLASS"",$J)"
.S ^SD(409.61,VALM,"COL",0)="^409.621^4^4"
.S ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^5"
.S ^SD(409.61,VALM,"COL",2,0)="CLASS NAME^6^50^Class Name"
.S ^SD(409.61,VALM,"COL",3,0)="ABBREVIATION^58^7^Abbrev"
.S ^SD(409.61,VALM,"COL",4,0)="ACTIVE^70^8"
.S ^SD(409.61,VALM,"FNL")="D CLEAN^USRCLST"
.S ^SD(409.61,VALM,"HDR")="D HDR^USRCLST"
.S ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"
.S ^SD(409.61,VALM,"INIT")="D MAKELIST^USRCLST"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.D MES^XPDUTL(" Filed.")
;
D BMES^XPDUTL("'USR LIST MEMBERSHIP BY CLASS' List Template...")
S DA=$O(^SD(409.61,"B","USR LIST MEMBERSHIP BY CLASS",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="USR LIST MEMBERSHIP BY CLASS" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="USR LIST MEMBERSHIP BY CLASS^1^^142^4^18^1^1^Member^USR CLASS MEMBERSHIP MENU^User Class Members"
.S ^SD(409.61,VALM,1)="^USR HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""USRMMBR"",$J)"
.S ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
.S ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^5"
.S ^SD(409.61,VALM,"COL",2,0)="MEMBER^6^30^Member^^1"
.S ^SD(409.61,VALM,"COL",3,0)="EFFECTIVE^61^9^Effective"
.S ^SD(409.61,VALM,"COL",4,0)="EXPIRES^72^8^Expires"
.S ^SD(409.61,VALM,"COL",5,0)="CLASS^82^60^Specific Class"
.S ^SD(409.61,VALM,"COL","AIDENT",1,2)=""
.S ^SD(409.61,VALM,"FNL")="D CLEAN^USRMLST"
.S ^SD(409.61,VALM,"HDR")="D HDR^USRMLST"
.S ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"
.S ^SD(409.61,VALM,"INIT")="D MAKELIST^USRMLST"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.D MES^XPDUTL(" Filed.")
;
D BMES^XPDUTL("'USR LIST MEMBERSHIP BY USER' List Template...")
S DA=$O(^SD(409.61,"B","USR LIST MEMBERSHIP BY USER",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="USR LIST MEMBERSHIP BY USER" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="USR LIST MEMBERSHIP BY USER^1^^80^4^18^1^1^User^USR CLASS MEMBER USER MENU^Current User Classes"
.S ^SD(409.61,VALM,1)="^USR HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""USRUSER"",$J)"
.S ^SD(409.61,VALM,"COL",0)="^409.621^4^4"
.S ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^5"
.S ^SD(409.61,VALM,"COL",2,0)="CLASS^6^30^User Class^^1"
.S ^SD(409.61,VALM,"COL",3,0)="EFFECTIVE^61^9^Effective"
.S ^SD(409.61,VALM,"COL",4,0)="EXPIRES^72^8^Expires"
.S ^SD(409.61,VALM,"COL","AIDENT",1,2)=""
.S ^SD(409.61,VALM,"FNL")="D CLEAN^USRULST"
.S ^SD(409.61,VALM,"HDR")="D HDR^USRULST"
.S ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"
.S ^SD(409.61,VALM,"INIT")="D MAKELIST^USRULST"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.D MES^XPDUTL(" Filed.")
;
D BMES^XPDUTL("'USR RULE BROWSER' List Template...")
S DA=$O(^SD(409.61,"B","USR RULE BROWSER",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="USR RULE BROWSER" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="USR RULE BROWSER^1^^80^5^20^1^1^Business Rule^USR BUSINESS RULE MENU^ASU Rule Browser^1^^1"
.S ^SD(409.61,VALM,1)="^USR HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""USRRUL"",$J)"
.S ^SD(409.61,VALM,"FNL")="D EXIT^USRRUL"
.S ^SD(409.61,VALM,"HDR")="D HDR^USRRUL"
.S ^SD(409.61,VALM,"HLP")="D HELP^USRRUL"
.S ^SD(409.61,VALM,"INIT")="D INIT^USRRUL"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.D MES^XPDUTL(" Filed.")
;
K DIC,DIK,VALM,X,DA Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HUSRIL 3968 printed Dec 13, 2024@01:38:45 Page 2
USRIL ; List Template Exporter ; 16-JAN-1997
+1 ;;1.0;AUTHORIZATION/SUBSCRIPTION;;Jun 20, 1997
+2 DO BMES^XPDUTL("'USR DEFINE CLASSES' List Template...")
+3 SET DA=$ORDER(^SD(409.61,"B","USR DEFINE CLASSES",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+4 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="USR DEFINE CLASSES"
DO FILE^DICN
SET VALM=+Y
+5 IF VALM>0
Begin DoDot:1
+6 SET ^SD(409.61,VALM,0)="USR DEFINE CLASSES^1^^80^4^18^1^1^Class^USR CLASS ACTION MENU^User Classes"
+7 SET ^SD(409.61,VALM,1)="^USR HIDDEN ACTIONS"
+8 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""USRCLASS"",$J)"
+9 SET ^SD(409.61,VALM,"COL",0)="^409.621^4^4"
+10 SET ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^5"
+11 SET ^SD(409.61,VALM,"COL",2,0)="CLASS NAME^6^50^Class Name"
+12 SET ^SD(409.61,VALM,"COL",3,0)="ABBREVIATION^58^7^Abbrev"
+13 SET ^SD(409.61,VALM,"COL",4,0)="ACTIVE^70^8"
+14 SET ^SD(409.61,VALM,"FNL")="D CLEAN^USRCLST"
+15 SET ^SD(409.61,VALM,"HDR")="D HDR^USRCLST"
+16 SET ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"
+17 SET ^SD(409.61,VALM,"INIT")="D MAKELIST^USRCLST"
+18 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+19 DO MES^XPDUTL(" Filed.")
End DoDot:1
+20 ;
+21 DO BMES^XPDUTL("'USR LIST MEMBERSHIP BY CLASS' List Template...")
+22 SET DA=$ORDER(^SD(409.61,"B","USR LIST MEMBERSHIP BY CLASS",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+23 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="USR LIST MEMBERSHIP BY CLASS"
DO FILE^DICN
SET VALM=+Y
+24 IF VALM>0
Begin DoDot:1
+25 SET ^SD(409.61,VALM,0)="USR LIST MEMBERSHIP BY CLASS^1^^142^4^18^1^1^Member^USR CLASS MEMBERSHIP MENU^User Class Members"
+26 SET ^SD(409.61,VALM,1)="^USR HIDDEN ACTIONS"
+27 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""USRMMBR"",$J)"
+28 SET ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
+29 SET ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^5"
+30 SET ^SD(409.61,VALM,"COL",2,0)="MEMBER^6^30^Member^^1"
+31 SET ^SD(409.61,VALM,"COL",3,0)="EFFECTIVE^61^9^Effective"
+32 SET ^SD(409.61,VALM,"COL",4,0)="EXPIRES^72^8^Expires"
+33 SET ^SD(409.61,VALM,"COL",5,0)="CLASS^82^60^Specific Class"
+34 SET ^SD(409.61,VALM,"COL","AIDENT",1,2)=""
+35 SET ^SD(409.61,VALM,"FNL")="D CLEAN^USRMLST"
+36 SET ^SD(409.61,VALM,"HDR")="D HDR^USRMLST"
+37 SET ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"
+38 SET ^SD(409.61,VALM,"INIT")="D MAKELIST^USRMLST"
+39 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+40 DO MES^XPDUTL(" Filed.")
End DoDot:1
+41 ;
+42 DO BMES^XPDUTL("'USR LIST MEMBERSHIP BY USER' List Template...")
+43 SET DA=$ORDER(^SD(409.61,"B","USR LIST MEMBERSHIP BY USER",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+44 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="USR LIST MEMBERSHIP BY USER"
DO FILE^DICN
SET VALM=+Y
+45 IF VALM>0
Begin DoDot:1
+46 SET ^SD(409.61,VALM,0)="USR LIST MEMBERSHIP BY USER^1^^80^4^18^1^1^User^USR CLASS MEMBER USER MENU^Current User Classes"
+47 SET ^SD(409.61,VALM,1)="^USR HIDDEN ACTIONS"
+48 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""USRUSER"",$J)"
+49 SET ^SD(409.61,VALM,"COL",0)="^409.621^4^4"
+50 SET ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^5"
+51 SET ^SD(409.61,VALM,"COL",2,0)="CLASS^6^30^User Class^^1"
+52 SET ^SD(409.61,VALM,"COL",3,0)="EFFECTIVE^61^9^Effective"
+53 SET ^SD(409.61,VALM,"COL",4,0)="EXPIRES^72^8^Expires"
+54 SET ^SD(409.61,VALM,"COL","AIDENT",1,2)=""
+55 SET ^SD(409.61,VALM,"FNL")="D CLEAN^USRULST"
+56 SET ^SD(409.61,VALM,"HDR")="D HDR^USRULST"
+57 SET ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"
+58 SET ^SD(409.61,VALM,"INIT")="D MAKELIST^USRULST"
+59 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+60 DO MES^XPDUTL(" Filed.")
End DoDot:1
+61 ;
+62 DO BMES^XPDUTL("'USR RULE BROWSER' List Template...")
+63 SET DA=$ORDER(^SD(409.61,"B","USR RULE BROWSER",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+64 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="USR RULE BROWSER"
DO FILE^DICN
SET VALM=+Y
+65 IF VALM>0
Begin DoDot:1
+66 SET ^SD(409.61,VALM,0)="USR RULE BROWSER^1^^80^5^20^1^1^Business Rule^USR BUSINESS RULE MENU^ASU Rule Browser^1^^1"
+67 SET ^SD(409.61,VALM,1)="^USR HIDDEN ACTIONS"
+68 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""USRRUL"",$J)"
+69 SET ^SD(409.61,VALM,"FNL")="D EXIT^USRRUL"
+70 SET ^SD(409.61,VALM,"HDR")="D HDR^USRRUL"
+71 SET ^SD(409.61,VALM,"HLP")="D HELP^USRRUL"
+72 SET ^SD(409.61,VALM,"INIT")="D INIT^USRRUL"
+73 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+74 DO MES^XPDUTL(" Filed.")
End DoDot:1
+75 ;
+76 KILL DIC,DIK,VALM,X,DA
QUIT
