Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DG53190T

Package: Registration

Routine: DG53190T


Information

DG53190T ; ALB/SCK - UTILITY TO CREATE RAI/MDS SUBSCRIBER PROTOCOLS ; 10-14-99

Source Information

Source file <DG53190T.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
DIV ;
SETIP ; Get IP address and port number
IP
PORT ;
870 ; Create HL7 Logical Link
771 ; Create HL7 application
408 ; Create subscription registry entry
101 ; Create subscriber protocols
DEM ;
MFU ;
FIN ;
TEXT ;;This routine will setup the necessary HL7 messaging parameters and client

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,DGX
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DIV+1
Function Call: WRITE
  • Prompt: !!?4,"You have selected : ",$P(DGDIV,"^",2)
  • Line Location: DIV+11
Function Call: WRITE
  • Prompt: !?4,"Station Number : ",$S(+DGSTN>0:$P(DGSTN,"^",3),1:"Undefined Station Number"),!
  • Line Location: DIV+12
Function Call: WRITE
  • Prompt: !?4,"You cannot proceed with this division until the station number is"
  • Line Location: DIV+15
Function Call: WRITE
  • Prompt: !?4,"corrected. Check the STATION NUMBER TIME SENSITIVE"
  • Line Location: DIV+16
Function Call: WRITE
  • Prompt: !?4,"file to be sure this division is active today."
  • Line Location: DIV+17
Function Call: WRITE
  • Prompt: !?4,"You may select another division or quit.",!
  • Line Location: DIV+18
Function Call: WRITE
  • Prompt: !
  • Line Location: DIV+26
Function Call: WRITE
  • Prompt: !?4,"A Logical Link for ",DGLNK," already exists."
  • Line Location: 870+5
Function Call: WRITE
  • Prompt: !,DGLNK,": "
  • Line Location: 870+23
Function Call: WRITE
  • Prompt: !?4,"A HL7 Application for ",DGNAME," already exists."
  • Line Location: 771+13
Function Call: WRITE
  • Prompt: !,DGNAME,": "
  • Line Location: 771+22
Function Call: WRITE
  • Prompt: !?4,"HL7 Application data not available"
  • Line Location: 408+5
Function Call: WRITE
  • Prompt: !,DGSCN,": "
  • Line Location: 408+12
Function Call: WRITE
  • Prompt: !
  • Line Location: 408+19
Function Call: WRITE
  • Prompt: !?4,"A protocol for ",DGNAME," already exists."
  • Line Location: 101+9
Function Call: WRITE
  • Prompt: !
  • Line Location: 101+30
Function Call: WRITE
  • Prompt: !?4,"A protocol for ",DGNAME," already exists."
  • Line Location: DEM+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DEM+27
Function Call: WRITE
  • Prompt: !?4,"A protocol for ",DGNAME," already exists."
  • Line Location: MFU+5
Function Call: WRITE
  • Prompt: !!?4,"Setup complete"
  • Line Location: FIN+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] FIND1^DIC
^HL(771 - [#771] FIND1^DIC,  GET1^DIQ
^HLCS(870 - [#870] FIND1^DIC,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call