GMRCP217.m

GMRCP217 ;BP/CMF  - ADD 'AVPR' CROSS REFERENCE ; 03/15/18

 ;;3.0;CONSULT/REQUEST TRACKING;**217**;FEB 27, 2018;Build 2

 ;

 Q

POST  ; Post Install Action for patch 217

 D IDX

 Q

 ;

IDX ; -- add AVPR index to #123, fulfills DBIA #7610

 N GMRCR,GMRCRES,GMRCOUT

 D BMES^XPDUTL("Building 'AVPR' action cross reference of the Referral file, #123")

 D MES^XPDUTL("This could take several minutes....")

 S GMRCR("FILE")=123

 S GMRCR("ROOT FILE")=123

 S GMRCR("NAME")="AVPR"

 S GMRCR("TYPE")="MU"

 S GMRCR("USE")="A"

 S GMRCR("EXECUTION")="F"

 S GMRCR("SHORT DESCR")="Trigger updates to VPR"

 S GMRCR("DESCR",1)="This is an action index that updates the Virtual Patient Record (VPR)"

 S GMRCR("DESCR",2)="when this record is updated. No actual cross-reference nodes are set"

 S GMRCR("DESCR",3)="or killed."

 S GMRCR("SET")="D:$L($T(REFCOM^VPREVNT)) REFCOM^VPREVNT(DA)"

 S GMRCR("KILL")="Q"

 S GMRCR("WHOLE KILL")="Q"

 S GMRCR("VAL",1)=9

 D CREIXN^DDMOD(.GMRCR,"fW",.GMRCRES,"GMRCOUT")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMRCP217   1012     printed  Sep 17, 2026@20:31:22                                                                                                                                                                                                    Page 2

GMRCP217  ;BP/CMF  - ADD 'AVPR' CROSS REFERENCE ; 03/15/18

 +1       ;;3.0;CONSULT/REQUEST TRACKING;**217**;FEB 27, 2018;Build 2

 +2       ;

 +3        QUIT 

POST      ; Post Install Action for patch 217

 +1        DO IDX

 +2        QUIT 

 +3       ;

IDX       ; -- add AVPR index to #123, fulfills DBIA #7610

 +1        NEW GMRCR,GMRCRES,GMRCOUT

 +2        DO BMES^XPDUTL("Building 'AVPR' action cross reference of the Referral file, #123")

 +3        DO MES^XPDUTL("This could take several minutes....")

 +4        SET GMRCR("FILE")=123

 +5        SET GMRCR("ROOT FILE")=123

 +6        SET GMRCR("NAME")="AVPR"

 +7        SET GMRCR("TYPE")="MU"

 +8        SET GMRCR("USE")="A"

 +9        SET GMRCR("EXECUTION")="F"

 +10       SET GMRCR("SHORT DESCR")="Trigger updates to VPR"

 +11       SET GMRCR("DESCR",1)="This is an action index that updates the Virtual Patient Record (VPR)"

 +12       SET GMRCR("DESCR",2)="when this record is updated. No actual cross-reference nodes are set"

 +13       SET GMRCR("DESCR",3)="or killed."

 +14       SET GMRCR("SET")="D:$L($T(REFCOM^VPREVNT)) REFCOM^VPREVNT(DA)"

 +15       SET GMRCR("KILL")="Q"

 +16       SET GMRCR("WHOLE KILL")="Q"

 +17       SET GMRCR("VAL",1)=9

 +18       DO CREIXN^DDMOD(.GMRCR,"fW",.GMRCRES,"GMRCOUT")

 +19       QUIT 

 +20      ;