- 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 ---[H[J[2J[HRG7POST 490 printed Jan 18, 2025@02:42:32 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