PX10164P.m

PX10164P ;HERN/BDB - Post-init routine for PX*1.0*164 ;11/10/2005

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**164**;Aug 12, 1996

 ;

 Q

EN ;This patch will update the Visit Tracking Parameters File for

 ;the Order Entry/Results Reporting Package

 ;

 N DIC,X,Y

 D BMES^XPDUTL(">>> Updating Order Entry/Results Reporting entry")

 D MES^XPDUTL("       in the Visit Tracking Parameters file.")

 S DIC="^DIC(150.9,1,3,",DA(1)=1,DIC(0)="L",X="ORDER ENTRY/RESULTS REPORTING"

 D ^DIC

 I +Y'>0 G ERROR

 N DIE,DA

 S DIE="^DIC(150.9,1,3,",DA(1)=1,DA=+Y,DR="4////1"

 D ^DIE

 D BMES^XPDUTL("   Order Entry/Results Reporting package updated")

 D MES^XPDUTL("       in Visit Tracking Parameters file.")

 Q

ERROR ;

 D BMES^XPDUTL(">>> Order Entry/Result Reporting failed to be added to the")

 D MES^XPDUTL("     Visit Tracking Parameters file.  Please contact IRM.")

 Q

VTFQ ;

 D BMES^XPDUTL(">>> Done")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PX10164P   908     printed  Apr 09, 2024@21:27:47                                                                                                                                                                                                     Page 2

PX10164P  ;HERN/BDB - Post-init routine for PX*1.0*164 ;11/10/2005

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**164**;Aug 12, 1996

 +2       ;

 +3        QUIT 

EN        ;This patch will update the Visit Tracking Parameters File for

 +1       ;the Order Entry/Results Reporting Package

 +2       ;

 +3        NEW DIC,X,Y

 +4        DO BMES^XPDUTL(">>> Updating Order Entry/Results Reporting entry")

 +5        DO MES^XPDUTL("       in the Visit Tracking Parameters file.")

 +6        SET DIC="^DIC(150.9,1,3,"

           SET DA(1)=1

           SET DIC(0)="L"

           SET X="ORDER ENTRY/RESULTS REPORTING"

 +7        DO ^DIC

 +8        IF +Y'>0

               GOTO ERROR

 +9        NEW DIE,DA

 +10       SET DIE="^DIC(150.9,1,3,"

           SET DA(1)=1

           SET DA=+Y

           SET DR="4////1"

 +11       DO ^DIE

 +12       DO BMES^XPDUTL("   Order Entry/Results Reporting package updated")

 +13       DO MES^XPDUTL("       in Visit Tracking Parameters file.")

 +14       QUIT 

ERROR     ;

 +1        DO BMES^XPDUTL(">>> Order Entry/Result Reporting failed to be added to the")

 +2        DO MES^XPDUTL("     Visit Tracking Parameters file.  Please contact IRM.")

 +3        QUIT 

VTFQ      ;

 +1        DO BMES^XPDUTL(">>> Done")

 +2        QUIT