Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ECX3P132

ECX3P132.m

Go to the documentation of this file.
  1. ECX3P132 ;ALB/MRY - DSS FY2012 Conversion, Post-init ;4/12/11 13:37
  1. ;;3.0;DSS EXTRACTS;**132**;Dec 22, 1997;Build 18
  1. ;
  1. ;****************************************
  1. ;Every year: Populate FY Year's version
  1. ; TESTON^ECXTREX(XPDNM,"FY2012")
  1. ;****************************************
  1. ;
  1. POST ;post-init
  1. D TEST,MENU,INACT,BCM
  1. Q
  1. ;
  1. TEST ;turn-on fld #73 in file #728 for Field Test Site;
  1. ;allows use of option ECX FISCAL YEAR EXTRACT by test sites;
  1. D MES^XPDUTL(" ")
  1. D MES^XPDUTL("Providing special menu option access for DSS FY Conversion test sites.")
  1. D TESTON^ECXTREX(XPDNM,"FY2012")
  1. ;D MES^XPDUTL(" ")
  1. ;D MES^XPDUTL("Remember to assign the ECX DSS TEST key to qualified users.")
  1. D MES^XPDUTL(" ")
  1. ;if this is the national released version, then fld #73 will be turned-off
  1. ;the first time any user attempts to use ECX FISCAL YEAR EXTRACT option
  1. Q
  1. ;
  1. N MENU,OPTION,CHECK,IEN
  1. S OPTION="ECXNURS",MENU="ECXMENU"
  1. S CHECK=$$DELETE^XPDMENU(MENU,OPTION)
  1. D BMES^XPDUTL(">>> "_OPTION_" OPTION "_$S(CHECK:"REMOVED FROM ",1:"DOES NOT EXIST IN ")_MENU_" <<<")
  1. D OUT^XPDMENU(OPTION,"OUT OF ORDER, DO NOT USE THIS OPTION!!!")
  1. D BMES^XPDUTL(">>> "_OPTION_" OPTION PLACED OUT ORDER <<<")
  1. S OPTION="ECX NUR SOURCE AUDIT",MENU="ECX SOURCE AUDITS"
  1. S CHECK=$$DELETE^XPDMENU(MENU,OPTION)
  1. D BMES^XPDUTL(">>> "_OPTION_" OPTION "_$S(CHECK:"REMOVED FROM ",1:"DOES NOT EXIST IN ")_MENU_" <<<")
  1. D OUT^XPDMENU(OPTION,"OUT OF ORDER, DO NOT USE THIS OPTION!!!")
  1. D BMES^XPDUTL(">>> "_OPTION_" OPTION PLACED OUT ORDER <<<")
  1. Q
  1. ;
  1. INACT ;inactivate NUR in EXTRACT DEFINITION file (#727.1)
  1. N ECXFDA,ECXERR,ECXMSG,ECXDA,ECXHDR,ECXOFF
  1. D MES^XPDUTL(" Inactivating NUR entry ...")
  1. F ECXOFF=1:1 S ECXHDR=$P($T(HDRS+ECXOFF),";;",2) Q:ECXHDR="" D
  1. .S ECXDA=+$O(^ECX(727.1,"C",ECXHDR,0))
  1. .I 'ECXDA D Q
  1. ..K ECXMSG
  1. ..S ECXMSG(1)=" "
  1. ..S ECXMSG(2)=" ** ERROR INACTIVATING "_ECXHDR_" **"
  1. ..S ECXMSG(3)=" Entry not found in file"
  1. ..D MES^XPDUTL(.ECXMSG)
  1. .K ECXFDA,ECXERR
  1. .S ECXFDA(727.1,ECXDA_",",13)=1
  1. .D FILE^DIE("","ECXFDA","ECXERR")
  1. .Q:'$D(ECXERR)
  1. .D BMES^XPDUTL(" ** ERROR INACTIVING "_ECXHDR_" **")
  1. .K ECXMSG D MSG^DIALOG("AE",.ECXMSG,65,6,"ECXERR")
  1. .D MES^XPDUTL(.ECXERR)
  1. D BMES^XPDUTL("- Done -")
  1. Q
  1. ;
  1. BCM ;change RUNNING PIECE from 27 to 29
  1. N DIE,DIC,DA,DR,X,Y
  1. D BMES^XPDUTL("Changing BCM Extract's RUNNING PIECE value from 27 to 29")
  1. S DIC="^ECX(727.1,",DIC(0)="X"
  1. S X="BAR CODE MEDICATION ADMINISTRATION"
  1. D ^DIC
  1. I (Y<0) D Q
  1. . D BMES^XPDUTL(" BAR CODE MEDICATION ADMINISTRATION Extract not found.")
  1. S DIE=DIC
  1. S DA=+Y
  1. S DR="11///29"
  1. D ^DIE
  1. D MES^XPDUTL(" BCM Extract's RUNNING PIECE value successfully changed to 29.")
  1. Q
  1. ;
  1. HDRS ;List of headers to be inactivated
  1. ;;NUR
  1. ;;
  1. Q