Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 5 MSG^DIALOG  (,$$FIND1)^DIC  (,FILE,UPDATE)^DIE  $$GET1^DIQ  ^DIR  
Health Level Seven 1 ($$ACT,UPD)^HLSUB  
Kernel 1 $$NOW^XLFDT  
Registration 1 $$SITE^VASITE  

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

External References

Name Field # of Occurrence
MSG^DIALOG 870+23, 771+22, 408+12, 408+19, 101+30, DEM+27, MFU+26
^DIC 771+5
$$FIND1^DIC 870+4, 771+12, 101+8, DEM+6, MFU+4
^DIE 101+28, DEM+31, MFU+29
FILE^DIE 408+17
UPDATE^DIE 870+21, 771+20, 101+26, DEM+25, MFU+24
$$GET1^DIQ 408+7, 408+8
^DIR EN+7, DIV+7, DIV+24, IP+4, PORT+5
$$ACT^HLSUB 408+3
UPD^HLSUB 408+10
$$SITE^VASITE DIV+9
$$NOW^XLFDT DIV+9

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
Routine Call
  • DIALOG
  • Line Location:
    • 870+23
    • 771+22
    • 408+12
    • 408+19
    • 101+30
    • DEM+27
    • MFU+26
Routine Call
  • DIC
  • Line Location:
    • 771+5
Routine Call
  • DIC
  • Line Location:
    • 870+4
    • 771+12
    • 101+8
    • DEM+6
    • MFU+4
Routine Call
  • DIE
  • Line Location:
    • 101+28
    • DEM+31
    • MFU+29
Routine Call
  • DIE
  • Line Location:
    • 408+17
Routine Call
  • DIE
  • Line Location:
    • 870+21
    • 771+20
    • 101+26
    • DEM+25
    • MFU+24
Routine Call
  • DIR
  • Line Location:
    • EN+7
    • DIV+7
    • DIV+24
    • IP+4
    • PORT+5

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

Label References

Name Line Occurrences
@( EN+10
DIV DIV+14, DIV+25
IP IP+7, IP+8, IP+9, IP+10
PORT PORT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA 101+28*, DEM+31*, MFU+29*
DGABRT EN+1~, EN+10, DIV+7*, 870+24*, 771+23*, 408+13*, 408+20*, 101+4, 101+31*, DEM+28*
, MFU+27*
DGAP 408+1~, 408+8*, 408+10
DGCLIENT 101+1~, 101+15*, 101+16*, 101+17, DEM+1~, DEM+14*, DEM+15*, DEM+16, MFU+1~, MFU+13*
, MFU+14*, MFU+15
DGDIV EN+1~, DIV+8*, DIV+9, DIV+11, 408+15
DGIP EN+1~, IP+11*, 870+16
DGLL 408+1~, 408+7*, 408+10
DGLLP 870+1~
DGLNK 870+1~, 870+3*, 870+4, 870+5, 870+9, 870+23
>> DGMAIL 771+6*, 771+17
DGNAME 771+1~, 771+9*, 771+10*, 771+12, 771+13, 771+15, 771+22, 101+1~, 101+6*, 101+8
, 101+9, 101+11, DEM+1~, DEM+3*, DEM+4, DEM+6, DEM+7, MFU+1~, MFU+2*, MFU+4
, MFU+5, MFU+7
DGPORT EN+1~, PORT+9*, 870+17
DGSCN EN+1~, 408+1~, 408+3*, 408+10, 408+12, 408+15
DGSTN EN+1~, DIV+9*, DIV+12, DIV+14, 870+3, 771+9, 771+16, 101+12, 101+15, 101+20
, DEM+9, DEM+14, DEM+19, MFU+8, MFU+13, MFU+18
DGTEST EN+1~
DGTXT DEM+1~, DEM+9*, DEM+10*, DEM+11, MFU+1~, MFU+8*, MFU+9*, MFU+10
DGX EN+1~, EN+4*, EN+10*
DIC 771+4*, 771+5!
DIC(0 771+4*
DIE 101+28*!, DEM+31*!, MFU+29*!
DIR EN+1~, EN+7!, DIV+2~, DIV+7!, DIV+20~, DIV+24!, SETIP+1~, IP+4!, PORT+1~, PORT+5!
DIR("?" EN+6*, DIV+6*, DIV+23*, IP+1*, IP+2*, IP+3*, PORT+3*, PORT+4*
DIR("A" EN+5*, DIV+4*, DIV+5*, DIV+22*, IP*, PORT+2*
DIR("B" EN+5*, DIV+22*
DIR(0 EN+5*, DIV+3*, DIV+22*, IP*, PORT+2*
DIRUT EN+8, DIV+2~, DIV+7, SETIP+1~, IP+5, PORT+6
>> DR 101+28*, DEM+31*, MFU+29*
DTOUT DIV+20~, DIV+24
DUOUT DIV+20~, DIV+24
ERR EN+1~, SETIP+1~, 870+1~, 870+22, 771+1~, 771+21, 408+1~, 408+10, 408+11, 408+17!
, 408+18, 101+1~, 101+25!, 101+29, DEM+1~, DEM+24!, DEM+26, MFU+1~, MFU+23!, MFU+25
EVNT 101+1~, 101+4*, 101+6, 101+12, 101+19
FDA EN+1~, SETIP+1~, 870+1~, 870+8!, 771+1~, 771+8!, 408+1~, 101+1~, DEM+1~, MFU+1~
FDA(1 870+9*, 870+10*, 870+11*, 870+12*, 870+13*, 870+14*, 870+15*, 870+16*, 870+17*, 870+18*
, 870+19*, 771+15*, 771+16*, 771+17*, 771+18*, 408+15*, 101+11*, 101+12*, 101+13*, 101+14*
, 101+17*, 101+18*, 101+19*, 101+20*, 101+21*, 101+22*, 101+23*, 101+24*, DEM+4*, DEM+11*
, DEM+12*, DEM+13*, DEM+16*, DEM+17*, DEM+18*, DEM+19*, DEM+20*, DEM+21*, DEM+22*, DEM+23*
, MFU+7*, MFU+10*, MFU+11*, MFU+12*, MFU+15*, MFU+16*, MFU+17*, MFU+18*, MFU+19*, MFU+20*
, MFU+21*, MFU+22*
HLAPP EN+1~, 771+12*, 771+24*, 408+4, 408+8, 101+6, DEM+3, MFU+2
HLLINK EN+1~, 870+25*, 408+4, 408+7
HLLP EN+1~
I EN+1~, EN+4*
IEN 101+1~, 101+3*, 101+5*, 101+11, 101+12, 101+13, 101+14, 101+17, 101+18, 101+19
, 101+20, 101+21, 101+22, 101+23, 101+24, 101+27, 101+28
IOF EN+3
RSLT SETIP+1~, 870+1~, 771+1~, 408+1~, 101+1~, 101+25!, DEM+1~, DEM+24!, MFU+1~, MFU+23!
RSLT( 101+27, 101+28
RSLT(1 870+25, 771+24, DEM+30, DEM+31, MFU+28, MFU+29
X EN+1~, 771+4*
Y EN+1~, EN+8, DIV+7, DIV+8, DIV+25, IP+7, IP+8, IP+9, IP+10, IP+11
, PORT+8, PORT+9
Y(0 771+6

Marked Items

Name Field # of Occurrence
$T(TEXT+I EN+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  Marked Items  | All