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

HLUOPT.m

Go to the documentation of this file.
  1. HLUOPT ;AISC/SAW-Main Menu for HL7 Module ;07/26/99 08:47
  1. ;;1.6;HEALTH LEVEL SEVEN;**57,161,162**;Oct 13, 1995;Build 3
  1. AP ;Enter/Edit DHCP Application Parameters
  1. F D Q:Y<0
  1. . N DA,DIC,DDSFILE,DR
  1. . S DIC="^HL(771,",DIC(0)="AEMQLZ"
  1. . W @IOF,! D ^DIC Q:Y<0
  1. . S DA=+Y,DDSFILE=DIC,DR="[HL7 APP]"
  1. . D ^DDS S Y=0
  1. Q
  1. ;
  1. SP ;Enter/Edit Non-DHCP Application Parameters
  1. S DIC="^HL(770,",DIC(0)="AEMQL",DLAYGO=770 W ! D ^DIC K DLAYGO G EXIT:Y<0
  1. I $P(Y,"^",3) N HLX,HLX1 S HLX=+Y
  1. S DA=+Y,DIE=DIC,DR=".01;3;2;4//245;5//3;6;7//2.1;8;9//30;10;14;100" D ^DIE
  1. I $D(HLX) D
  1. .S HLX1=$G(^HL(770,HLX,0)) K DA,DD,DIE,DO,DR S DIC="^HL(771,",X=$P(HLX1,"^"),DIC(0)="" D FILE^DICN S DA=+Y
  1. .I DA S DIE="^HL(771,",DR="2///a;3///"_$P(HLX1,"^",3) D ^DIE K DIE,DR
  1. .S DIE="^HL(770,",DR="12///"_DA,DA=HLX D ^DIE
  1. G SP
  1. APP ;Print/Display Application Parameters
  1. S DIC="^HL(771,",L=0,FLDS="[CAPTIONED]",BY="@.01",FR="?",TO="?",DHD="HL7 DHCP Application Parameters" D EN1^DIP D:$E(IOST,1,2)="C-" HOLD G EXIT
  1. SPP ;Print/Display Site Parameters
  1. S DIC="^HL(770,",L=0,FLDS="[CAPTIONED]",BY="@.01",FR="?",TO="?",DHD="HL7 Non-DHCP Application Parameters" D EN1^DIP D:$E(IOST,1,2)="C-" HOLD G EXIT
  1. MT ;Print/Display Message Type
  1. S DIC="^HL(771.2,",L=0,FLDS="[CAPTIONED]",BY="@.01",FR="",TO="",DHD="HL7 Message Types" D EN1^DIP D:$E(IOST,1,2)="C-" HOLD G EXIT
  1. SN ;Print/Display Segment Name
  1. S DIC="^HL(771.3,",L=0,FLDS="[CAPTIONED]",BY="@.01",FR="",TO="",DHD="HL7 Segment Names" D EN1^DIP D:$E(IOST,1,2)="C-" HOLD G EXIT
  1. DT ;Print/Display Data Type
  1. S DIC="^HL(771.4,",L=0,FLDS="[CAPTIONED]",BY="@.01",FR="",TO="",DHD="HL7 Data Types" D EN1^DIP D:$E(IOST,1,2)="C-" HOLD G EXIT
  1. VERS ;Print/Display Version Number
  1. S DIC="^HL(771.5,",L=0,FLDS="[CAPTIONED]",BY="@.01",FR="",TO="",DHD="HL7 Version Numbers" D EN1^DIP D:$E(IOST,1,2)="C-" HOLD G EXIT
  1. FIELD ;Print/Display Fields
  1. S DIC="^HL(771.1,",L=0,FLDS="[CAPTIONED]",BY="@.01",FR="?",TO="?",DHD="HL7 Fields" D EN1^DIP D:$E(IOST,1,2)="C-" HOLD G EXIT
  1. PLPT ;Print/Display Log of Awaiting or Pending Tramsmissions
  1. S DIC="^HL(772,",L=0,FLDS="[CAPTIONED]",BY="@20,@.01",DIS(0)="S HLX=+$G(^HL(772,D0,""P"")) I HLX<3!(HLX>7)",FR="A,?",TO="Z,?",DHD="Log of HL7 Transmissions in Awaiting or Pending Status" D EN1^DIP D:$E(IOST,1,2)="C-" HOLD K HLX G EXIT
  1. PLFT ;Print/Display Log of Failed Transmissions
  1. S DIC="^HL(772,",L=0,FLDS="[CAPTIONED]",BY="@20,@.01",FR="E,?",TO="EZ,?",DHD="Log of Failed HL7 Transmissions" D EN1^DIP D:$E(IOST,1,2)="C-" HOLD G EXIT
  1. LOG ;Start/Stop HL7 Log of Transmissions
  1. W !!,"Select the Non-DHCP Application for which you wish to start/stop the HL7 log",!,"of transmissions."
  1. W ! S DIC="^HL(770,",DIC(0)="AEMQ" D ^DIC G EXIT:Y<0 S DA=+Y,HLDEV=$P(^HL(770,DA,0),"^",6) I HLDEV']"" W !!,*7,"You must define an HL7 Device for this Non-DHCP Application before you can",!,"start the log.",!
  1. I HLDEV]"" W !!,"The HL7 log is currently turned ",$S($D(^HL(770,"ALOG",HLDEV,DA)):"on.",1:"off."),!
  1. S DIE=DIC,DR=$S(HLDEV']"":"6R;",1:"")_50,DIE("NO^")="OUTOK" D ^DIE
  1. W ! S DIR(0)="Y",DIR("B")="Yes",DIR("A")="Do you want to purge existing log entries" D ^DIR I Y=1,HLDEV]"" K ^TMP("HL",HLDEV)
  1. EXIT K BY,DA,DHD,DIC,DIE,DIR,DR,FLDS,FR,L,HLDEV,TO,X,Y Q
  1. ;
  1. LLED ;Logical Link Edit, file 870
  1. ;HL*161 add code to make sure the Logical Link is shutdown RRA ticket 217900
  1. F D Q:Y<0
  1. . N DA,DIC,DDSFILE,DR,HLIEN,HLNAME,HLLL0
  1. . S DIC="^HLCS(870,",DIC(0)="AEMQLZ"
  1. . W @IOF,! D ^DIC Q:Y<0
  1. . S DA=+Y,DR="[HL7 LOGICAL LINK]",DDSFILE=DIC
  1. . S HLIEN=+Y,HLNAME=$P(Y,"^",2),HLLL0=$G(Y(0))
  1. . I '$P(HLLL0,"^",15)&($L($P(HLLL0,"^",3)))&($P($G(^HLCS(870,HLIEN,400)),"^",3)'="M") W !!,HLNAME_" must be shutdown before it can be edited" H 2 Q
  1. . D ^DDS S Y=0
  1. . W !!!,"If you shut down this link to edit, please remember to restart if appropriate" H 2
  1. Q
  1. ;
  1. INTED ;Interface edit, file 101
  1. F D Q:Y<0
  1. . N DA,DIC,DDSFILE,DR
  1. . S DIC="^ORD(101,",DIC(0)="AEMQLZ",DIC("S")="N Z S Z=$P(^(0),U,4) I Z=""E""!(Z=""S"")"
  1. . W @IOF,! D ^DIC Q:Y<0
  1. . S DA=+Y,DR="[HL7 INTERFACE]",DDSFILE=DIC
  1. . D ^DDS S Y=0
  1. Q
  1. ;
  1. HOLD ;Hold Screen at End of Display
  1. N DIR
  1. S DIR(0)="E" D ^DIR
  1. Q