IBJYL1 ; List Template Exporter ; 04-JAN-1996
 ;;Version 2.0 ; INTEGRATED BILLING ;**39**; 21-MAR-94
 W !,"'IBJT AR ACCOUNT PROFILE' List Template..."
 S DA=$O(^SD(409.61,"B","IBJT AR ACCOUNT PROFILE",0)),DIK="^SD(409.61," D ^DIK:DA
 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT AR ACCOUNT PROFILE" D FILE^DICN S VALM=+Y
 I VALM>0 D
 .S ^SD(409.61,VALM,0)="IBJT AR ACCOUNT PROFILE^1^^80^5^17^1^1^Transaction Profile^IBJT AR ACCOUNT PROFILE MENU^AR Account Profile^1^^1"
 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTTA"",$J)"
 .S ^SD(409.61,VALM,"COL",0)="^409.621^6^6"
 .S ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^3"
 .S ^SD(409.61,VALM,"COL",2,0)="TRNUM^4^8"
 .S ^SD(409.61,VALM,"COL",3,0)="DATE^14^8"
 .S ^SD(409.61,VALM,"COL",4,0)="TRTY^25^30"
 .S ^SD(409.61,VALM,"COL",5,0)="TAMT^57^11"
 .S ^SD(409.61,VALM,"COL",6,0)="CAMT^69^11"
 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBJTTA"
 .S ^SD(409.61,VALM,"HDR")="D HDR^IBJTTA"
 .S ^SD(409.61,VALM,"HLP")="D HELP^IBJTTA"
 .S ^SD(409.61,VALM,"INIT")="D INIT^IBJTTA"
 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
 .W "Filed."
 ;
 W !,"'IBJT AR COMMENT HISTORY' List Template..."
 S DA=$O(^SD(409.61,"B","IBJT AR COMMENT HISTORY",0)),DIK="^SD(409.61," D ^DIK:DA
 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT AR COMMENT HISTORY" D FILE^DICN S VALM=+Y
 I VALM>0 D
 .S ^SD(409.61,VALM,0)="IBJT AR COMMENT HISTORY^1^^80^5^17^1^1^AR Comments^IBJT AR COMMENT HISTORY MENU^AR Comment History^1^^1"
 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTTC"",$J)"
 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBJTTC"
 .S ^SD(409.61,VALM,"HDR")="D HDR^IBJTTC"
 .S ^SD(409.61,VALM,"HLP")="D HELP^IBJTTC"
 .S ^SD(409.61,VALM,"INIT")="D INIT^IBJTTC"
 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
 .W "Filed."
 ;
 W !,"'IBJT AR TRANSACTION PROFILE' List Template..."
 S DA=$O(^SD(409.61,"B","IBJT AR TRANSACTION PROFILE",0)),DIK="^SD(409.61," D ^DIK:DA
 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT AR TRANSACTION PROFILE" D FILE^DICN S VALM=+Y
 I VALM>0 D
 .S ^SD(409.61,VALM,0)="IBJT AR TRANSACTION PROFILE^1^^80^5^21^1^1^AR Transaction Profile^IBJT AR TRANSACTION PROFILE MENU^AR Transaction Profile^1^^1"
 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTTB"",$J)"
 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBJTTB"
 .S ^SD(409.61,VALM,"HDR")="D HDR^IBJTTB"
 .S ^SD(409.61,VALM,"HLP")="D HELP^IBJTTB"
 .S ^SD(409.61,VALM,"INIT")="D INIT^IBJTTB"
 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
 .W "Filed."
 ;
 W !,"'IBJT BILL CHARGES' List Template..."
 S DA=$O(^SD(409.61,"B","IBJT BILL CHARGES",0)),DIK="^SD(409.61," D ^DIK:DA
 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT BILL CHARGES" D FILE^DICN S VALM=+Y
 I VALM>0 D
 .S ^SD(409.61,VALM,0)="IBJT BILL CHARGES^1^^80^5^17^1^1^Bill Charges^IBJT BILL CHARGES MENU^Bill Charges^1^^1"
 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTBA"",$J)"
 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBJTBA"
 .S ^SD(409.61,VALM,"HDR")="D HDR^IBJTBA"
 .S ^SD(409.61,VALM,"HLP")="D HELP^IBJTBA"
 .S ^SD(409.61,VALM,"INIT")="D INIT^IBJTBA"
 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
 .W "Filed."
 ;
 W !,"'IBJT BILL DX' List Template..."
 S DA=$O(^SD(409.61,"B","IBJT BILL DX",0)),DIK="^SD(409.61," D ^DIK:DA
 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT BILL DX" D FILE^DICN S VALM=+Y
 I VALM>0 D
 .S ^SD(409.61,VALM,0)="IBJT BILL DX^1^^80^5^17^1^1^Bill Diagnosis^IBJT BILL DX MENU^Bill Diagnosis^1^^1"
 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTBB"",$J)"
 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBJTBB"
 .S ^SD(409.61,VALM,"HDR")="D HDR^IBJTBB"
 .S ^SD(409.61,VALM,"HLP")="D HELP^IBJTBB"
 .S ^SD(409.61,VALM,"INIT")="D INIT^IBJTBB"
 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
 .W "Filed."
 ;
 W !,"'IBJT BILL PROCEDURES' List Template..."
 S DA=$O(^SD(409.61,"B","IBJT BILL PROCEDURES",0)),DIK="^SD(409.61," D ^DIK:DA
 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT BILL PROCEDURES" D FILE^DICN S VALM=+Y
 G ^IBJYL2