GMRCYP23 ;SLC/MA - Post Install for patch 23 ;1/10/02 14:27
;;3.0;CONSULT/REQUEST TRACKING;**23**;DEC 27, 1997
EN ; Main entry point for post-install
; Routine will populate the new xref (AP,AL) for global
; ^GMR(123) REQUEST/CONSULTATION
; DBIA 10013 call ENALL^DIK
S DIK="^GMR(123,",DIK(1)="4^AP" ;XREF for Procedures
D ^XQDATE
D BMES^XPDUTL("START OF BUILDING ""AP"" XREF @ "_%Y)
D ENALL^DIK
D ^XQDATE
D BMES^XPDUTL("END OF BUILDING ""AP"" XREF @ "_%Y)
D ^XQDATE
D BMES^XPDUTL("START OF BUILDING ""AL"" XREF @ "_%Y)
S DIK(1)=".04^AL" ;XREF for patient location
D ENALL^DIK
D ^XQDATE
D BMES^XPDUTL("END OF BUILDING ""AL"" XREF @ "_%Y)
K DIK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCYP23 706 printed Dec 13, 2024@01:47:51 Page 2
GMRCYP23 ;SLC/MA - Post Install for patch 23 ;1/10/02 14:27
+1 ;;3.0;CONSULT/REQUEST TRACKING;**23**;DEC 27, 1997
EN ; Main entry point for post-install
+1 ; Routine will populate the new xref (AP,AL) for global
+2 ; ^GMR(123) REQUEST/CONSULTATION
+3 ; DBIA 10013 call ENALL^DIK
+4 ;XREF for Procedures
SET DIK="^GMR(123,"
SET DIK(1)="4^AP"
+5 DO ^XQDATE
+6 DO BMES^XPDUTL("START OF BUILDING ""AP"" XREF @ "_%Y)
+7 DO ENALL^DIK
+8 DO ^XQDATE
+9 DO BMES^XPDUTL("END OF BUILDING ""AP"" XREF @ "_%Y)
+10 DO ^XQDATE
+11 DO BMES^XPDUTL("START OF BUILDING ""AL"" XREF @ "_%Y)
+12 ;XREF for patient location
SET DIK(1)=".04^AL"
+13 DO ENALL^DIK
+14 DO ^XQDATE
+15 DO BMES^XPDUTL("END OF BUILDING ""AL"" XREF @ "_%Y)
+16 KILL DIK
+17 QUIT
