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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: YSCLHLAD

Package: Mental Health

Routine: YSCLHLAD


Information

YSCLHLAD ;DSS/PO-CLOZAPINE DATA TRANSMISSION-Messaging-ADT ;19 May 2020 14:13:48

Source Information

Source file <YSCLHLAD.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Health Level Seven 3 ($$ADDSEG,$$NEWMSG,SET)^HLOAPI  $$SENDONE^HLOAPI1  $$STARTMSG^HLOPRS  
Kernel 2 APPERROR^%ZTER  ($$FMTHL7,$$HTFM,$$NOW)^XLFDT  
VA FileMan 2 DT^DICRW  $$GET1^DIQ  
Mental Health 1 PID^YSCLHLPD  

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: 2

Package Total Caller Graph
Health Level Seven 1 MESSAGE TYPE ACTIONS  
Mental Health 1 YSCLHLMA  

Entry Points

Name Comments DBIA/ICR reference
ADTA28(YSCLARR,YSILENT) ; Build and send registration message
; input: YSCLARR data array to build HL7 segments
COMTRESP ; process COMMIT ACCEPT ACK RESPONSE
APPRESP ; process ACCEPT ACK RESPONSE

External References

Name Field # of Occurrence
APPERROR^%ZTER ADTA28+132
DT^DICRW COMTRESP+2
$$GET1^DIQ ADTA28+99
$$ADDSEG^HLOAPI ADTA28+24, ADTA28+27, ADTA28+45, ADTA28+50, ADTA28+53, ADTA28+63, ADTA28+74, ADTA28+85, ADTA28+97, ADTA28+107
$$NEWMSG^HLOAPI ADTA28+19
SET^HLOAPI ADTA28+22, ADTA28+23, ADTA28+30, ADTA28+31, ADTA28+32, ADTA28+33, ADTA28+34, ADTA28+36, ADTA28+37, ADTA28+38
, ADTA28+39, ADTA28+41, ADTA28+42, ADTA28+43, ADTA28+44, ADTA28+48, ADTA28+49, ADTA28+55, ADTA28+56, ADTA28+57
, ADTA28+58, ADTA28+59, ADTA28+60, ADTA28+65, ADTA28+66, ADTA28+67, ADTA28+68, ADTA28+69, ADTA28+70, ADTA28+76
, ADTA28+77, ADTA28+78, ADTA28+79, ADTA28+80, ADTA28+81, ADTA28+83, ADTA28+87, ADTA28+88, ADTA28+89, ADTA28+90
, ADTA28+91, ADTA28+92, ADTA28+94, ADTA28+100, ADTA28+101, ADTA28+102, ADTA28+103, ADTA28+104, ADTA28+105, ADTA28+109
, ADTA28+110, ADTA28+111, ADTA28+112, ADTA28+113, ADTA28+114, ADTA28+115, ADTA28+116, ADTA28+117, ADTA28+118, ADTA28+119
, ADTA28+120, ADTA28+121
$$SENDONE^HLOAPI1 ADTA28+131
$$STARTMSG^HLOPRS COMTRESP+4
$$FMTHL7^XLFDT ADTA28+23
$$HTFM^XLFDT COMTRESP+11, APPRESP+8
$$NOW^XLFDT ADTA28+23, COMTRESP+5, APPRESP+4
PID^YSCLHLPD ADTA28+26

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$G(YSHLERR)
  • Line Location: ADTA28+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTMP( COMTRESP+6*, COMTRESP+7*, COMTRESP+8*, COMTRESP+9*, COMTRESP+11*, APPRESP+5*, APPRESP+6*, APPRESP+8*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APPARMS ADTA28+12~, ADTA28+19, ADTA28+131
APPARMS("ACCE PT ACK RESPONSE" , ADTA28+126*, PT ACK TYPE" , ADTA28+124*
APPARMS("APP ACK RESPONSE" , ADTA28+127*, ACK TYPE" , ADTA28+125*
APPARMS("EVENT" ADTA28+16*
APPARMS("MESS AGE STRUCTURE" , ADTA28+17*, AGE TYPE" , ADTA28+15*
APPARMS("SEND ING APPLICATION" , ADTA28+123*
APPARMS("VERSION" ADTA28+18*
DT COMTRESP+3, COMTRESP+11, APPRESP+3, APPRESP+8
HDR COMTRESP+2~, COMTRESP+4, COMTRESP+9
HL ADTA28+12~
HL7RES ADTA28+12~, ADTA28+131*, ADTA28+132, ADTA28+138
>> HLMSGIEN COMTRESP+4, COMTRESP+6, APPRESP+4
HLMSTATE ADTA28+12~, ADTA28+19, ADTA28+24, ADTA28+27, ADTA28+45, ADTA28+50, ADTA28+53, ADTA28+63, ADTA28+74, ADTA28+85
, ADTA28+97, ADTA28+107, ADTA28+131
IO ADTA28+19
MSG COMTRESP+2~, COMTRESP+4, COMTRESP+8
MSGIEN APPRESP+2~, APPRESP+4*, APPRESP+5, APPRESP+6
RES COMTRESP+2~, COMTRESP+4*, COMTRESP+7
RTNOW COMTRESP+2~, COMTRESP+5*, COMTRESP+6, COMTRESP+7, COMTRESP+8, COMTRESP+9, APPRESP+2~, APPRESP+4*, APPRESP+5, APPRESP+6
SEG ADTA28+12~, ADTA28+22, ADTA28+23, ADTA28+24, ADTA28+26, ADTA28+27, ADTA28+30, ADTA28+31, ADTA28+32, ADTA28+33
, ADTA28+34, ADTA28+36, ADTA28+37, ADTA28+38, ADTA28+39, ADTA28+41, ADTA28+42, ADTA28+43, ADTA28+44, ADTA28+45
, ADTA28+48, ADTA28+49, ADTA28+50, ADTA28+53, ADTA28+55, ADTA28+56, ADTA28+57, ADTA28+58, ADTA28+59, ADTA28+60
, ADTA28+63, ADTA28+65, ADTA28+66, ADTA28+67, ADTA28+68, ADTA28+69, ADTA28+70, ADTA28+74, ADTA28+76, ADTA28+77
, ADTA28+78, ADTA28+79, ADTA28+80, ADTA28+81, ADTA28+83, ADTA28+85, ADTA28+87, ADTA28+88, ADTA28+89, ADTA28+90
, ADTA28+91, ADTA28+92, ADTA28+94, ADTA28+97, ADTA28+100, ADTA28+101, ADTA28+102, ADTA28+103, ADTA28+104, ADTA28+105
, ADTA28+107, ADTA28+109, ADTA28+110, ADTA28+111, ADTA28+112, ADTA28+113, ADTA28+114, ADTA28+115, ADTA28+116, ADTA28+117
, ADTA28+118, ADTA28+119, ADTA28+120, ADTA28+121
SEGSEQ ADTA28+54~*, ADTA28+56, ADTA28+64~*, ADTA28+66, ADTA28+75~*, ADTA28+77, ADTA28+86~*, ADTA28+88, ADTA28+98~*, ADTA28+101
, ADTA28+108~*, ADTA28+110
SITEDEA ADTA28+99~*
U COMTRESP+11, APPRESP+8
VAR APPRESP+2~, APPRESP+6*
YSCLARR ADTA28~, ADTA28+26
YSCLARR("LAB_ ANC VAL" , ADTA28+91, ADTA28+94, COLLECTION DATE" , ADTA28+83, ADTA28+94, WBC VAL" , ADTA28+80, ADTA28+83
YSCLARR("LAB_FREQ" ADTA28+69
YSCLARR("PATI ENT_CLOZ STATUS" , ADTA28+59
YSCLARR("PATIENT_INPAT/OUTPAT" ADTA28+49
YSCLARR("PROV IDER_DEFAULT DIV." , ADTA28+99, IDER_FIRST NAME" , ADTA28+38, ADTA28+43, IDER_LAST NAME" , ADTA28+37, ADTA28+42
YSCLARR("PROVIDER_DEA" ADTA28+36
YSCLARR("PROVIDER_NPI" ADTA28+41
YSCLARR("SITE _SITE DEA" , ADTA28+104, _SITE NAME" , ADTA28+115, _STREET ADDR 1" , ADTA28+117, _STREET ADDR 2" , ADTA28+118
YSCLARR("SITE_CITY" ADTA28+119
YSCLARR("SITE_ID" ADTA28+113
YSCLARR("SITE_STATE" ADTA28+120
YSCLARR("SITE_STATION" ADTA28+116
YSCLARR("SITE_ZIP" ADTA28+121
YSCLDEST ADTA28+12~, ADTA28+128*, ADTA28+129
YSHLERR ADTA28+12~, ADTA28+19, ADTA28+131
YSILENT ADTA28~
YSWHTO ADTA28+12~, ADTA28+131
YSWHTO("FACIL ITY LINK NAME" , ADTA28+130*
YSWHTO("RECEI VING APPLICATION" , ADTA28+129*
YSXTMP COMTRESP+2~, APPRESP+2~
YSXTMP("1stNode" COMTRESP+3*, COMTRESP+6, COMTRESP+7, COMTRESP+8, COMTRESP+9, COMTRESP+11, APPRESP+3*, APPRESP+5, APPRESP+6, APPRESP+8

Marked Items

Name Field # of Occurrence
$T( COMTRESP+3, APPRESP+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables |  Marked Items  | All