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

IB20PT45.m

Go to the documentation of this file.
IB20PT45 ;ALB/CPM - List Template Exporter ; 21-MAR-1994
 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
 I VALM>0 D
 .S ^SD(409.61,VALM,0)="IBDF EDIT TOOL KIT BLOCKS^1^^160^4^20^1^1^TOOL KIT BLOCK^IBDF EDIT TOOL KIT BLOCKS MENU^EDIT TOOL KIT BLOCKS^1"
 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBDF"",$J,""TOOL KIT BLOCK LIST"")"
 .S ^SD(409.61,VALM,"COL",0)="^409.621^4^4"
 .S ^SD(409.61,VALM,"COL",1,0)="ID^1^3^^R^1"
 .S ^SD(409.61,VALM,"COL",2,0)="BLOCK NAME^6^30^BLOCK NAME"
 .S ^SD(409.61,VALM,"COL",3,0)="BRIEF DESCRIPTION^43^80^BRIEF DESCRIPTION"
 .S ^SD(409.61,VALM,"COL",4,0)="TK ORDER^38^4^TK#"
 .S ^SD(409.61,VALM,"COL","AIDENT",1,1)=""
 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBDF7"
 .S ^SD(409.61,VALM,"HLP")="D HELP^IBDF7"
 .S ^SD(409.61,VALM,"INIT")="D INIT^IBDF7"
 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
 .W "Filed."
 ;
 W !,"'IBDF FORM BLOCK EDIT' List Template..."
 S DA=$O(^SD(409.61,"B","IBDF FORM BLOCK EDIT",0)),DIK="^SD(409.61," D ^DIK:DA
 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBDF FORM BLOCK EDIT" D FILE^DICN S VALM=+Y
 I VALM>0 D
 .S ^SD(409.61,VALM,0)="IBDF FORM BLOCK EDIT^1^^200^4^18^1^1^FORM BLOCK^IBDF EDIT FORM BLOCK MENU^EDITING A FORM BLOCK^1"
 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IB"",$J,""FORM BLOCK"")"
 .S ^SD(409.61,VALM,"COL",0)="^409.621^3^3"
 .S ^SD(409.61,VALM,"COL",1,0)="ROW^1^3^^^1"
 .S ^SD(409.61,VALM,"COL",2,0)="BLOCK LEFT SIDE^5^80^123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789"
 .S ^SD(409.61,VALM,"COL",3,0)="BLOCK RIGHT SIDE^85^80^123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789"
 .S ^SD(409.61,VALM,"COL","AIDENT",1,1)=""
 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBDF9"
 .S ^SD(409.61,VALM,"HDR")="D HDR^IBDF9"
 .S ^SD(409.61,VALM,"HLP")="W """""
 .S ^SD(409.61,VALM,"INIT")="D INIT^IBDF9"
 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
 .W "Filed."
 ;
 W !,"'IBDF TOOL KIT BLOCK LIST' List Template..."
 S DA=$O(^SD(409.61,"B","IBDF TOOL KIT BLOCK LIST",0)),DIK="^SD(409.61," D ^DIK:DA
 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBDF TOOL KIT BLOCK LIST" D FILE^DICN S VALM=+Y
 I VALM>0 D
 .S ^SD(409.61,VALM,0)="IBDF TOOL KIT BLOCK LIST^1^^160^4^20^1^1^TOOL KIT BLOCK^IBDF MENU FOR ADDING TOOL KIT BLOCK^LIST OF TOOL KIT BLOCKS^1"
 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBDF"",$J,""TOOL KIT BLOCK LIST"")"
 .S ^SD(409.61,VALM,"COL",0)="^409.621^3^3"
 .S ^SD(409.61,VALM,"COL",1,0)="ID^1^3^^R^1"
 .S ^SD(409.61,VALM,"COL",2,0)="BLOCK NAME^6^30^BLOCK NAME"
 .S ^SD(409.61,VALM,"COL",3,0)="BRIEF DESCRIPTION^37^80^BRIEF DESCRIPTION"
 .S ^SD(409.61,VALM,"COL","AIDENT",1,1)=""
 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBDF7"
 .S ^SD(409.61,VALM,"HDR")=""
 .S ^SD(409.61,VALM,"HLP")="D HELP^IBDF7"
 .S ^SD(409.61,VALM,"INIT")="D INIT^IBDF7"
 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
 .W "Filed."
 ;
 W !,"'IBDF TOOL KIT FORMS' List Template..."
 S DA=$O(^SD(409.61,"B","IBDF TOOL KIT FORMS",0)),DIK="^SD(409.61," D ^DIK:DA
 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBDF TOOL KIT FORMS" D FILE^DICN S VALM=+Y
 I VALM>0 D
 .S ^SD(409.61,VALM,0)="IBDF TOOL KIT FORMS^1^^123^5^20^1^1^FORM^IBDF TOOL KIT FORMS MENU^LIST OF TOOL KIT FORMS^1"
 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IB"",$J,""FORM LIST"")"
 .S ^SD(409.61,VALM,"COL",0)="^409.621^3^3"
 .S ^SD(409.61,VALM,"COL",1,0)="ID^1^3^^R^1"
 .S ^SD(409.61,VALM,"COL",2,0)="FORM NAME^6^30^FORM NAME"
 .S ^SD(409.61,VALM,"COL",3,0)="BRIEF DESCRIPTION^38^80^BRIEF DESCRIPTION^H"
 .S ^SD(409.61,VALM,"COL","AIDENT",1,1)=""
 .S ^SD(409.61,VALM,"FNL")="D ONEXIT^IBDF12"
 .S ^SD(409.61,VALM,"HDR")=""
 .S ^SD(409.61,VALM,"HLP")="W """""
 .S ^SD(409.61,VALM,"INIT")="D ONENTRY^IBDF12"
 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
 .W "Filed."
 ;
 G ^IB20PT46