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

DG53149P.m

Go to the documentation of this file.
  1. DG53149P ;SF/CMC,PTD,DLR-PRE and POST INSTALL FOR DG*5.3*149 ;1/14/99
  1. ;;5.3;Registration;**149**;Aug 13, 1993
  1. ;
  1. PRE ;Pre-Install for DG*5.3*149
  1. L +^XTMP("NO NEW JOBS"):60 I '$T D BMES^XPDUTL("Unable to get lock on VAFC BATCH UPDATE task, Install Aborted!") S XPDABORT=2 Q
  1. L +^XTMP("ADT/HL7 VAFC BATCH UPDATE"):60 I '$T D BMES^XPDUTL("Unable to get lock on VAFC BATCH UPDATE task, Install Aborted!") S XPDABORT=2 Q
  1. L +^VAT(391.71,"VAFC BATCH UPDATE ADT/HL7"):1 I '$T D BMES^XPDUTL("Unable to get lock on VAFC BATCH UPDATE task, Install Aborted!") S XPDABORT=2 Q
  1. Q
  1. ;
  1. POST ;Post-Install for DG*5.3*149
  1. L -^XTMP("NO NEW JOBS")
  1. L -^XTMP("ADT/HL7 VAFC BATCH UPDATE")
  1. L -^VAT(391.71,"VAFC BATCH UPDATE ADT/HL7")
  1. ;
  1. HL7SITE ;Update FACILITY in the HL7 APPLICATION PARAMETER file.
  1. N DA,DIC,DIE,DR,I,SITE,X,Y
  1. S SITE=$$SITE^VASITE,SITE=$P(SITE,"^",3),SITE=SITE\1
  1. ; ^ SITE is Station Number of site doing install
  1. S DIC="^HL(771,",DIC(0)="XQZ",X="VAFC PIMS"
  1. D ^DIC Q:+Y<0
  1. S DA=+Y,DIE="^HL(771,",DR="3///^S X=SITE"
  1. D ^DIE
  1. K DA,DIC,DIE,DR,I,SITE,X,Y
  1. ;
  1. COMPILE N GLOBAL,FIELD,CFIELD,NFIELD,TEMPLATP,TEMPLATN
  1. ;
  1. D BMES^XPDUTL("Beginning to compile templates on the patient file.")
  1. ;
  1. S NFIELD=$P($T(AFIELDS),";;",2) ;get the fields that have new xref
  1. ;
  1. F GLOBAL="^DIE","^DIPT" DO
  1. .I GLOBAL="^DIE" D BMES^XPDUTL(" Compiling Input Templates")
  1. .I GLOBAL="^DIPT" DO
  1. . . D BMES^XPDUTL(" ")
  1. . . D BMES^XPDUTL(" Compiling Print Templates")
  1. .;
  1. .S FIELD=0
  1. .; go find templates on fields that have added cross-ref
  1. .F S FIELD=$O(@GLOBAL@("AF",2,FIELD)) Q:'FIELD DO
  1. . .;
  1. . .S CFIELD=","_FIELD_","
  1. . .;if we didn't add the cross reference, quit
  1. . .I NFIELD'[CFIELD Q
  1. . .;
  1. . .S TEMPLATP=0
  1. . .F S TEMPLATP=$O(@GLOBAL@("AF",2,FIELD,TEMPLATP)) Q:'TEMPLATP DO
  1. . . . S TEMPLATN=$P($G(@GLOBAL@(TEMPLATP,0)),"^",1)
  1. . . . I TEMPLATN="" DO Q
  1. . . . . D BMES^XPDUTL("Could not compile template "_TEMPLATN_$C(13,10)_"Please review!")
  1. . . . .;
  1. . . . S X=$P($G(@GLOBAL@(TEMPLATP,"ROUOLD")),"^")
  1. . . . I X=""&($D(@GLOBAL@(TEMPLATP,"ROU"))'=0) DO Q
  1. . . . . D BMES^XPDUTL("Could not find routine for template "_TEMPLATN_$C(13,10)_"Please review!")
  1. . . . I X=""&($D(@GLOBAL@(TEMPLATP,"ROU"))=0) Q
  1. . . . I $D(FIELD(X)) Q ;already compiled
  1. . . .;
  1. . . . S FIELD(X)="" ; remember the template was compiled
  1. . . . S Y=TEMPLATP ; set up the call for fman
  1. . . . S DMAX=$$ROUSIZE^DILF
  1. . . . I GLOBAL="^DIE" D EN^DIEZ Q
  1. . . . I GLOBAL="^DIPT" D EN^DIPZ Q
  1. .;
  1. W !!!
  1. S (X,Y)=""
  1. D BMES^XPDUTL("The following routine namespace was compiled:")
  1. F S X=$O(FIELD(X)) Q:X="" DO
  1. . S Y=$G(Y)+1 S PRINT(Y)=" "_X_"*"
  1. ;
  1. D MES^XPDUTL(.PRINT)
  1. Q
  1. ;
  1. ;these are the fields that have a new cross-ref
  1. AFIELDS ;;,.01,.02,.03,.05,.08,.09,.111,.1112,.112,.113,.114,.115,.117,.131,.132,.211,.219,.2403,.301,.302,.31115,.323,.351,391,991.01,991.02,991.03,991.04,991.05,991.06,9910.7,1901,
  1. Q