RG7POST.m

RG7POST ;BIR/PTD-RG*1*7 PATCH POST-INIT ROUTINE ;07/12/00

 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**7**;30 Apr 99

 Q  ;Quit if called from the top.

EN ; Eliminate data in the AUTO ACCEPT DEMOGRAPHICS (#11) field.

 L +^RGSITE(991.8):10

 S DIE="^RGSITE(991.8,",DA=1,DR="11///@"

 D ^DIE K DA,DIE,DR

 L -^RGSITE(991.8)

 ; Delete the AUTO ACCEPT DEMOGRAPHICS (#11) field in the

 ; CIRN SITE PARAMETER (#991.8) file.

 S DIK="^DD(991.8,",DA=11,DA(1)=991.8

 D ^DIK

 K DA,DIC,DIK,X,Y

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RG7POST   490     printed  Dec 13, 2024@01:41:18                                                                                                                                                                                                      Page 2

RG7POST   ;BIR/PTD-RG*1*7 PATCH POST-INIT ROUTINE ;07/12/00

 +1       ;;1.0;CLINICAL INFO RESOURCE NETWORK;**7**;30 Apr 99

 +2       ;Quit if called from the top.

           QUIT 

EN        ; Eliminate data in the AUTO ACCEPT DEMOGRAPHICS (#11) field.

 +1        LOCK +^RGSITE(991.8):10

 +2        SET DIE="^RGSITE(991.8,"

           SET DA=1

           SET DR="11///@"

 +3        DO ^DIE

           KILL DA,DIE,DR

 +4        LOCK -^RGSITE(991.8)

 +5       ; Delete the AUTO ACCEPT DEMOGRAPHICS (#11) field in the

 +6       ; CIRN SITE PARAMETER (#991.8) file.

 +7        SET DIK="^DD(991.8,"

           SET DA=11

           SET DA(1)=991.8

 +8        DO ^DIK

 +9        KILL DA,DIC,DIK,X,Y

 +10       QUIT