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

DENTIPST.m

Go to the documentation of this file.

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

 ;;1.2;DENTAL;**22**;JAN 26, 1989

 K ^DENT("PATCH19")

 F X="DENTNP","DENTNPCV","DENTNPFU","DENTNPLU","DENTNPMN","DENTNPR2","DENTNPRE","DENTNPTL","DENTNTEG" X ^%ZOSF("DEL")

K X

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDENTIPST   247     printed  Apr 09, 2024@20:51:47                                                                                                                                                                                                     Page 2

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

 +1       ;;1.2;DENTAL;**22**;JAN 26, 1989

 +2        KILL ^DENT("PATCH19")

 +3        FOR X="DENTNP","DENTNPCV","DENTNPFU","DENTNPLU","DENTNPMN","DENTNPR2","DENTNPRE","DENTNPTL","DENTNTEG"

               XECUTE ^%ZOSF("DEL")

 +4        KILL X

 +5        QUIT