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

DENTPOST.m

Go to the documentation of this file.

DENTPOST ;HCIOFO/JH-Post Init to delete B1 X,Ref of Files 221 and 226

 ;;1.2;DENTAL;**26**;Jan 26 1989

EN S DIK="^DD(221,.01,1,",DA(2)=221,DA(1)=.01,DA=1 D ^DIK

 S DIK="^DD(226,.01,1,",DA(2)=226,DA(1)=.01,DA=2 D ^DIK

 K ^DENT(221,"B1"),^DENT(226,"B1"),DA,DIC,DIK,X,Y

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDENTPOST   276     printed  Apr 09, 2024@20:51:30                                                                                                                                                                                                     Page 2

DENTPOST  ;HCIOFO/JH-Post Init to delete B1 X,Ref of Files 221 and 226

 +1       ;;1.2;DENTAL;**26**;Jan 26 1989

EN         SET DIK="^DD(221,.01,1,"

           SET DA(2)=221

           SET DA(1)=.01

           SET DA=1

           DO ^DIK

 +1        SET DIK="^DD(226,.01,1,"

           SET DA(2)=226

           SET DA(1)=.01

           SET DA=2

           DO ^DIK

 +2        KILL ^DENT(221,"B1"),^DENT(226,"B1"),DA,DIC,DIK,X,Y

 +3        QUIT