source: WorldVistAEHR/trunk/r/FEE_BASIS-FB/FBXIP54.m@ 1093

Last change on this file since 1093 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 485 bytes
RevLine 
[613]1FBXIP54 ;WOIFO/SS-PATCH INSTALL ROUTINE ;5/24/03
2 ;;3.5;FEE BASIS;**54**;JAN 30, 1995
3 ;File #161 input template compilation routine
4 Q ;stub
5EN ;entry point for post-install routine
6 ;re-compile template
7 N DMAX,FBX,Y,X,FBMAX
8 D BMES^XPDUTL("Recompilation of [FBAA AUTHORIZATION] Input Template:")
9 S FBMAX=^DD("ROU")
10 S FBX="FBAA AUTHORIZATION"
11 S Y=$O(^DIE("B",FBX,0)) Q:'Y
12 I $D(^DIE(Y,"ROUOLD")),^("ROUOLD")]"",$D(^(0)) D
13 . S X=$P(^("ROUOLD"),"^"),DMAX=FBMAX
14 . D EN^DIEZ
15 Q
16 ;
Note: See TracBrowser for help on using the repository browser.