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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  Used in HL7 Interface |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: YTQHL7

Package: Mental Health

Routine: YTQHL7


Information

YTQHL7 ;ALB/ASF - HL7 ; 3/9/12 1:06pm

Source Information

Source file <YTQHL7.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
VA FileMan 5 ^%DT  ^DIC  ^DIE  ($$GET1,EN)^DIQ  ^DIR  
Health Level Seven 4 $$GETAPP^HLCS2  $$HLDATE^HLFNC  INIT^HLFNC2  GENERATE^HLMA  
Kernel 2 ^%ZTLOAD  $$HLNAME^XLFNAME  
Registration 2 ADM^VADPT2  $$EN^VAFHLPID  
MailMan 1 ^XMD  
Mental Health 1 HL7^YTQHL7  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Mental Health 6 YS MHA  YS MHA A08 EVENT  YTQ HL7  YTQAPI14  YTQHL7  YTQPXRM4  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
ACKMHA ;
ARSEND ;resend AR acks
ARHL7 ;taskman hl7 resend
ERRMAIL(X,YSAD) ;mail error reports
HL7(YSDATA,YS) ;RPC entry
ADSEND ;send completed Admin to MHSHG
BLDM ;BUILD A SINGLE MESSAGE
1 ;set up environment for message
2 ;Add message txt to HLA array
CTRL ;remove stray chars
DIRECT ;CALL HL7 TO TRANSMIT MESSAGE
OBX(YSAD) ;enter multiple OBX seqments
REDO ;resend all no transmits and errors
REDO1 ;resend single admin
CTRL1 ;remove control chars

External References

Name Field # of Occurrence
^%DT ARSEND+4
^%ZTLOAD ARSEND+6
^DIC ACKMHA+7, REDO1+1
^DIE ACKMHA+15, HL7+14
$$GET1^DIQ ACKMHA+10, ADSEND+4, ADSEND+7, ADSEND+8
EN^DIQ REDO1+3
^DIR REDO1+4
$$GETAPP^HLCS2 ERRMAIL+2
$$HLDATE^HLFNC 2+2, 2+12, OBX+10, OBX+15
INIT^HLFNC2 1+1
GENERATE^HLMA DIRECT+1
ADM^VADPT2 2+6
$$EN^VAFHLPID 2+4
$$HLNAME^XLFNAME 2+14
^XMD ERRMAIL+12
HL7^YTQHL7 ARHL7+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"XXX"
  • Line Location: 1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: REDO1+2
Routine Call
  • DIC
  • Line Location:
    • ACKMHA+7
    • REDO1+1
Routine Call
  • DIE
  • Line Location:
    • ACKMHA+15
    • HL7+14
Routine Call
  • DIR
  • Line Location:
    • REDO1+4

Used in RPC

RPC Name Call Tags
YTQ HL7 HL7

Used in HL7 Interface

HL7 Protocol Name Call Tags
YS MHA A08 EVENT ACKMHA

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^SC - [#44] GET1^DIQ
^YTT(601.71 - [#601.71] GET1^DIQ
^YTT(601.84 - [#601.84] Classic Fileman Calls
^HL(772 - [#772] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("YSMHAHL7" ERRMAIL+3!, ERRMAIL+4*, ERRMAIL+5*, ERRMAIL+6*, ERRMAIL+7*, ERRMAIL+13!
^YTT(601.71 - [#601.71] HL7+12
^YTT(601.72 - [#601.72] OBX+4
^YTT(601.75 - [#601.75] OBX+10
^YTT(601.76 - [#601.76] OBX+2, OBX+3
^YTT(601.84 - [#601.84] HL7+8, HL7+10, HL7+11, ADSEND+1, ADSEND+2, ADSEND+3, ADSEND+5, ADSEND+6, OBX+1, REDO+1
, REDO+2
^YTT(601.85 - [#601.85] OBX+6, OBX+8, OBX+11, OBX+13

Label References

Name Line Occurrences
ADSEND HL7+15
ARSEND ACKMHA+16
CTRL1 CTRL+1
ERRMAIL ACKMHA+8, ACKMHA+12, ACKMHA+17
HL7 REDO+3, REDO1+5
OBX 2+9
REDO1 REDO1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % OBX+14*
>> %DT ARSEND+4*
CNT HL7+3~, BLDM+3~, BLDM+4*, 2+2*, 2+4*, 2+7*, 2+11*, 2+12, 2+15, CTRL+1
, OBX+9*, OBX+10*, OBX+12*, OBX+15
DA ACKMHA+15*, HL7+3~, HL7+14*, REDO1+3*
DFN HL7+3~, ADSEND+1*, 2+4
DGNAME 2+13~, 2+14
DGNAME("FIELD" 2+13*
DGNAME("FILE" 2+13*
DGNAME("IENS" 2+13*
DIC ACKMHA+7*!, REDO1+1!*
DIC(0 ACKMHA+7*, REDO1+1*
DIE ACKMHA+15*, HL7+3~, HL7+14*
DIR REDO1+1!
DIR("A" REDO1+4*
DIR("B" REDO1+4*
DIR(0 REDO1+4*
DR ACKMHA+15*, HL7+3~, HL7+14*
DUZ(2 ADSEND+8
G HL7+3~, OBX+8*, OBX+10
G1 HL7+3~
HL 1+1!, 1+2, 1+4
HL("ECH" 1+6
HL("FS" ACKMHA+2, 1+5
HLA BLDM+2!
HLA("HLS" 2+2*, 2+4*, 2+7*, 2+12*, 2+15*, CTRL+1, OBX+10*, OBX+12*, OBX+15*, CTRL1+1*
HLCS HL7+3~, BLDM+3~, 1+6*
HLECH HL7+3~, 2+12, 2+14
HLEVN BLDM+2!
HLFS HL7+3~, BLDM+3~, 1+5*, 2+2, 2+7, 2+12, 2+15, OBX+10, OBX+12
HLNEXT ACKMHA+4, HL7+3~
HLNODE ACKMHA+5, HL7+3~
HLQUIT ACKMHA+4, HL7+3~
J1 HL7+3~, CTRL+1*, CTRL1+1
J2 HL7+3~, CTRL1+1*
MC HL7+3~, BLDM+3~
MYOPTNS HL7+3~, DIRECT+1
MYRESULT HL7+3~, DIRECT+1
N ACKMHA+11*, HL7+3~
U ACKMHA+9, ERRMAIL+9, HL7+10, HL7+11, HL7+12, ADSEND+1, ADSEND+2, ADSEND+3, ADSEND+5, ADSEND+6
, OBX+1, OBX+3, OBX+4, OBX+8, OBX+10, REDO+2
VADMVT HL7+4~, 2+6
VAINDT HL7+4~, 2+6*
X ACKMHA+7*, ACKMHA+10*, ARSEND+4*, ERRMAIL~, ERRMAIL+6, OBX+14*
X1 HL7+4~, 2+14*, 2+15, OBX+14*
XMDUZ ERRMAIL+1~, ERRMAIL+11*
XMSUB ERRMAIL+1~, ERRMAIL+8*
XMTEXT ERRMAIL+1~, ERRMAIL+10*
XMY ERRMAIL+1~
XMY("G." ERRMAIL+9*
Y ACKMHA+8, ACKMHA+9, ARSEND+4, HL7+4~, REDO1+1, REDO1+3, REDO1+5
>> Y1 OBX+13*, OBX+14*, OBX+15
YS ARHL7+1!, ARHL7+3, HL7~, REDO+3!, REDO1+5!
YS("AD" ARHL7+2*, HL7+6, REDO+3*, REDO1+5*
YS772 ACKMHA+1~, ACKMHA+9*, ACKMHA+10
YSACK ACKMHA+1~, ACKMHA+2*, ACKMHA+5*, ACKMHA+14, ACKMHA+16
YSAD ACKMHA+1~, ACKMHA+11*, ACKMHA+12, ACKMHA+15, ACKMHA+17, ARSEND+5, ARHL7+2, ERRMAIL~, ERRMAIL+4, HL7+3~
, HL7+6*, HL7+7, HL7+8, HL7+10, HL7+11, HL7+14, ADSEND+1, ADSEND+2, ADSEND+3, ADSEND+5
, ADSEND+6, 2+9, OBX~, OBX+1, OBX+6, OBX+10, OBX+12, REDO+1*, REDO+2, REDO+3
, REDO1+3*, REDO1+5
YSANSID HL7+4~, OBX+6*, OBX+7, OBX+8, OBX+11, OBX+13
YSAVED HL7+4~, ADSEND+2*, 2+2, 2+6, 2+12, OBX+10, OBX+15
YSCC HL7+4~, OBX+8*, OBX+10
YSCONID HL7+4~, OBX+2*, OBX+3
YSDATA ARHL7+1!, ARHL7+3, HL7~, REDO+3!, REDO1+5!
YSDATA(1 HL7+5*, HL7+7*, HL7+8*, HL7+10*, HL7+12*, HL7+13*, 1+4*, DIRECT+2*
YSDATA(2 HL7+7*, HL7+8*, HL7+10*, HL7+12*, 1+4*
YSDIV ACKMHA+1~, ADSEND+7*, ADSEND+8*, 2+7
YSEQ HL7+4~, OBX+2*, OBX+10, OBX+12
YSERT ACKMHA+1~, ACKMHA+5*, ACKMHA+17
YSFS ACKMHA+1~, ACKMHA+2*, ACKMHA+5, ACKMHA+11
YSIN HL7+4~, OBX+1*, OBX+2
YSIO HL7+4~, 2+6*, 2+7
YSLINE HL7+4~, OBX+11*, OBX+12, OBX+13
YSLOCAT ACKMHA+1~, ADSEND+6*, ADSEND+7
YSMAILG ERRMAIL+1~, ERRMAIL+2*, ERRMAIL+9
YSMID ACKMHA+1~, ACKMHA+5*, ACKMHA+7
YSMSG ACKMHA+1~
YSMSG( ACKMHA+11
YSMTXT ACKMHA+1~
YSORBY HL7+4~, ADSEND+5*, 2+13, 2+14
YSOUT ACKMHA+11*, HL7+4~
YSQ HL7+3~
YSQN HL7+4~, OBX+3*, OBX+4, OBX+6, OBX+10, OBX+12
YSRTYP HL7+4~, OBX+4*, OBX+5
YSRTYPN HL7+4~, OBX+5*, OBX+12
YSTEST HL7+4~, ADSEND+4*, 2+12
YSTESTN HL7+4~, ADSEND+3*, ADSEND+4, 2+12
YSTS HL7+4~, REDO+2*, REDO+3
YSTST HL7+4~, HL7+11*, HL7+12
YSX ACKMHA+1~, ACKMHA+14*, ACKMHA+15, ACKMHA+17
ZTDESC ARSEND+1~, ARSEND+5*
ZTDTH ARSEND+1~, ARSEND+4*
ZTIO ARSEND+1~, ARSEND+3*
ZTREQ ARSEND+1~, ARHL7+4*
ZTRTN ARSEND+1~, ARSEND+3*
>> ZTSAVE("YSAD" ARSEND+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  Used in HL7 Interface |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All