FHIPST.m

FHIPST ; HISC/REL/NCA - Post-Init Conversions ;10/31/96  08:26

 ;;5.0;Dietetics;**6**;Oct 11, 1995

 Q:$$PATCH^XPDUTL("FH*5.0*6")

 F X="FHORCW","FHORDW","FHORDW1","FHORDW2","FHORDW3","FHOREW","FHOROW","FHORTW","FHWWFIX" X ^%ZOSF("DEL")

 K X D ^FHXOR3,^FHWORP

 W ! K %X,%Y,ADM,ALLTF,C,CF,D,DA,DD,DFN,DIC,DIK,DIU,DO,DP,DRSVC,FHX,K,KK,KKK,LLL,M,NAM,NX,P,P0,PF,SF,SP,SVC,WRD,X,Y,Z1,ZC,ZT Q

 Q

FHIPST    ; HISC/REL/NCA - Post-Init Conversions ;10/31/96  08:26

 +1       ;;5.0;Dietetics;**6**;Oct 11, 1995

 +2        IF $$PATCH^XPDUTL("FH*5.0*6")

               QUIT 

 +3        FOR X="FHORCW","FHORDW","FHORDW1","FHORDW2","FHORDW3","FHOREW","FHOROW","FHORTW","FHWWFIX"

               XECUTE ^%ZOSF("DEL")

 +4        KILL X

           DO ^FHXOR3

           DO ^FHWORP

 +5        WRITE !

           KILL %X,%Y,ADM,ALLTF,C,CF,D,DA,DD,DFN,DIC,DIK,DIU,DO,DP,DRSVC,FHX,K,KK,KKK,LLL,M,NAM,NX,P,P0,PF,SF,SP,SVC,WRD,X,Y,Z1,ZC,ZT

           QUIT 

 +6        QUIT