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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFHIPST 395 printed Dec 13, 2024@01:47:44 Page 2
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
