GMRCYP23.m

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 ---GMRCYP23   706     printed  Apr 09, 2024@20:51:17                                                                                                                                                                                                     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