- 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
- 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
