- 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
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDENTIPST 247 printed Feb 18, 2025@23:13:01 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