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

Package: Mental Health

Routine: YTQAPI14


Information

YTQAPI14 ;ASF/ALB - MHA PROCEDURES ; 1/20/11 2:15pm

Source Information

Source file <YTQAPI14.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Mental Health 7 ^YSLRP  CLEAN^YSMTI5  PARSE^YTAPI  (SCORSET,SF)^YTAPI2  SELADM^YTQAPI14  HL7^YTQHL7  NEWDATE^YTXCHGU  
VA FileMan 6 DD^%DT  ^DIC  FIELD^DID  ^DIE  ($$GET1,EN)^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Mental Health 6 YTQ ASI SIGNOK  YTQ EXEMPT TEST  YTQ PNOTE FLAG  YTQAPI14  YTQAPI8  YTQAPI9  

Entry Points

Name Comments DBIA/ICR reference
CKHL7 ;check hl7 status
NOPNOTE ;entry point for YTQ PNOTE FLAG option
SIGNOK(YSDATA,YS) ;entry point for YTQ ASI SIGNOK rpc
SCOR1
SEND1 ;send single HL7 by pt & test
SELADM(YSADIEN) ;select admin by pt and test
NULLNOW ;set transmission status to "" and NOW
SCOREIT(YSDATA,YS) ; from YTQAPI8
EXEMPT ;exempt by adim and report
PRIV ;check privileges
TYPE ;check field type
NN1 ;re-entry if lock fails
RESEND ;resend all no transmits and errors

External References

Name Field # of Occurrence
DD^%DT SELADM+10
^DIC CKHL7+3, SELADM+4, SELADM+11, NOPNOTE+3, EXEMPT+5
FIELD^DID TYPE+4
^DIE NN1+2, NOPNOTE+4, EXEMPT+6
$$GET1^DIQ SIGNOK+11, SIGNOK+17, SIGNOK+19, PRIV+5
EN^DIQ CKHL7+5, CKHL7+10
^DIR RESEND+3, RESEND+5, RESEND+7, RESEND+9, CKHL7+6
^YSLRP SELADM+3
CLEAN^YSMTI5 SCOR1+14
PARSE^YTAPI SCOREIT+3
SCORSET^YTAPI2 SCOR1+10
SF^YTAPI2 SCOR1+11
SELADM^YTQAPI14 CKHL7+8, SEND1+2
HL7^YTQHL7 RESEND+23, SEND1+6
NEWDATE^YTXCHGU NOPNOTE+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"MHA3 HL7 Resends",!!,"CAUTION:: use only if instructed by National Support Staff",!
  • Line Location: RESEND+2
Function Call: WRITE
  • Prompt: !,N1," messages resent"
  • Line Location: RESEND+25
Function Call: WRITE
  • Prompt: @IOF,!?15,"*** HL7 Check ***",!
  • Line Location: CKHL7+2
Function Call: WRITE
  • Prompt: !,"YS MHAT ERROR"
  • Line Location: CKHL7+4
Function Call: WRITE
  • Prompt: !,"HL7 message created..."
  • Line Location: SEND1+7
Function Call: WRITE
  • Prompt: !,N
  • Line Location: SELADM+9
Function Call: WRITE
  • Prompt: ?15,Y
  • Line Location: SELADM+10
Function Call: WRITE
  • Prompt: @IOF,!,"*** Exempt Test ***",!!
  • Line Location: EXEMPT+2
Function Call: WRITE
  • Prompt: "Caution-- changing the exempt level of a published test may break copyright",!,"agreements. Changes to national tests are at the risk of the changing facility.",!!
  • Line Location: EXEMPT+3
Routine Call
  • DIE
  • Line Location:
    • NN1+2
    • NOPNOTE+4
    • EXEMPT+6
Routine Call
  • DIC
  • Line Location:
    • CKHL7+3
    • SELADM+4
    • SELADM+11
    • NOPNOTE+3
    • EXEMPT+5
Routine Call
  • DIR
  • Line Location:
    • RESEND+3
    • RESEND+5
    • RESEND+7
    • RESEND+9
    • CKHL7+6

Used in RPC

RPC Name Call Tags
YTQ ASI SIGNOK SIGNOK

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^YTT(601.71 - [#601.71] Classic Fileman Calls,  GET1^DIQ
^YTT(601.84 - [#601.84] Classic Fileman Calls
^YSTX(604 - [#604] FIELD^DID,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] SCOR1+3
^PXRMINDX(601.84 SELADM+7, SELADM+8
^XUSEC( PRIV+7
^YSTX(604 - [#604] SIGNOK+8
^YSTX(604.66 - [#604.66] SIGNOK+13, SIGNOK+14, SIGNOK+18
^YTD(601.2 - [#601.2] SCOR1+5
^YTT(601 - [#601] SCOR1
^YTT(601.6 - [#601.6] SCOR1+7, SCOR1+8
^YTT(601.71 - [#601.71] RESEND+12, PRIV+3
^YTT(601.84 - [#601.84] RESEND+11, RESEND+15, RESEND+16, RESEND+17, NN1+1, NN1+3

Label References

Name Line Occurrences
NN1 NN1+1
NULLNOW RESEND+22, SEND1+5
PRIV SCOR1+6
TYPE SIGNOK+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA NULLNOW+1~, NULLNOW+2*, NN1+1, NN1+3, CKHL7+1~, CKHL7+5*, CKHL7+10*, NOPNOTE+1~, NOPNOTE+4*, NOPNOTE+5
, EXEMPT+1~, EXEMPT+6*
DFN SELADM+1~, SELADM+8, SCOREIT+1~, SCOR1+2, SCOR1+3
DIC CKHL7+1~, CKHL7+3*, CKHL7+10*, SEND1+1~, SELADM+1~, SELADM+4*, SELADM+11*, NOPNOTE+1~, NOPNOTE+3*, EXEMPT+1~
, EXEMPT+5*
DIC(0 SELADM+4*, SELADM+11*, NOPNOTE+3*, EXEMPT+5*
DIE NULLNOW+1~, NULLNOW+2*, NOPNOTE+1~, NOPNOTE+4*, EXEMPT+1~, EXEMPT+6*
>> DILOCKTM NN1+1
DIR RESEND+3!, RESEND+5!, RESEND+7!, RESEND+9!
DIR("A" RESEND+3*, RESEND+5*, RESEND+7*, RESEND+9*, CKHL7+6*
DIR("B" RESEND+3*, CKHL7+6*
DIR(0 RESEND+3*, RESEND+5*, RESEND+7*, RESEND+9*, CKHL7+6*
>> DIRUT RESEND+3, RESEND+5, RESEND+7, RESEND+9, CKHL7+6
DR NULLNOW+1~, NULLNOW+2*, NOPNOTE+1~, NOPNOTE+4*, EXEMPT+1~, EXEMPT+6*
DUZ PRIV+7
I SCOREIT+1~
II SCOREIT+1~
IOF RESEND+2, CKHL7+2, EXEMPT+2
N SELADM+1~, SELADM+8*, SELADM+9, SCOREIT+1~, SCOR1+13*
N1 RESEND+11*, RESEND+24*, RESEND+25, SIGNOK+5~, SIGNOK+13*, SIGNOK+14, SIGNOK+18, SCOR1+12*, SCOR1+13*
N2 SCOREIT+1~
N4 SCOREIT+1~
R SCOREIT+1~
S SCOREIT+1~
U RESEND+12, RESEND+17, SIGNOK+13, SIGNOK+14, SCOR1+3, SCOR1+8
X CKHL7+3*, NOPNOTE+1~, EXEMPT+1~, SIGNOK+5~, SIGNOK+17*, SIGNOK+18, SIGNOK+19*, SIGNOK+20, SCOR1+8*
Y RESEND+4, RESEND+6, RESEND+7, RESEND+8, RESEND+10, CKHL7+4, CKHL7+5, CKHL7+7, SELADM+4, SELADM+5
, SELADM+10*, SELADM+12, NOPNOTE+1~, NOPNOTE+3, NOPNOTE+4, EXEMPT+1~, EXEMPT+5, EXEMPT+6
YS RESEND+23!, SEND1+4!, SEND1+6, SIGNOK~, SCOREIT~, SCOREIT+3
YS("AD" RESEND+23*, SEND1+6*
YS("IENS" SIGNOK+7
YS71 PRIV+1~, PRIV+3*, PRIV+4, PRIV+5
YSAA SCOREIT+1~
YSAD RESEND+1~, RESEND+16*, RESEND+17, RESEND+23, NULLNOW+2, CKHL7+8, CKHL7+9, CKHL7+10, SEND1+1~, SEND1+2
, SEND1+3, SEND1+6
YSADATE SCOREIT+1~, SCOR1+1
YSADIEN SELADM~, SELADM+2*, SELADM+12*
YSASCLS SIGNOK+5~, SIGNOK+11*, SIGNOK+12*, SIGNOK+13
YSASFLD SIGNOK+5~, SIGNOK+14*, SIGNOK+16, SIGNOK+17, SIGNOK+19, TYPE+4
YSBED SCOREIT+1~
YSBEG RESEND+1~, RESEND+6*, RESEND+14
YSCODE RESEND+11*, RESEND+12, RESEND+15, RESEND+16, SCOREIT+1~, SCOR1, SCOR1+4
YSCODEN SELADM+1~, SELADM+5*, SELADM+7, SELADM+8
YSDATA RESEND+23!, SEND1+4!, SEND1+6, SIGNOK~, SCOREIT~, SCOREIT+2!
YSDATA( SIGNOK+18*, SCOR1+13*
YSDATA(1 SIGNOK+8*, SIGNOK+9*, SCOR1+5*, SCOR1+9
YSDATA(2 SIGNOK+8*, SIGNOK+9*, SIGNOK+21*, SIGNOK+22*, SCOR1+5*
YSDATE RESEND+1~, RESEND+14*, RESEND+15*, RESEND+16
YSDFN SELADM+1~, SELADM+3, SELADM+7, SCOR1+2*, SCOR1+5
YSED SCOREIT+1~, SCOR1+1*, SCOR1+5
YSEND RESEND+1~, RESEND+8*, RESEND+14*, RESEND+15, SCOREIT+1~
YSET SCOREIT+1~, SCOR1*, SCOR1+5, SCOR1+7, SCOR1+8
YSF SIGNOK+5~, SIGNOK+16*, SIGNOK+17
YSFILT RESEND+1~, RESEND+10*, RESEND+19, RESEND+20, RESEND+21
YSFLAG SIGNOK+5~, SIGNOK+6*, SIGNOK+18*, SIGNOK+20*, SIGNOK+21, SIGNOK+22
YSFLD TYPE+2~
YSFLD("TYPE" TYPE+5
YSGIVEN SELADM+1~, SELADM+6*, SELADM+7*, SELADM+8, SELADM+10
YSIEN SIGNOK+5~, SIGNOK+7*, SIGNOK+8, SIGNOK+11, SIGNOK+17, SIGNOK+19
YSKEY PRIV+1~, PRIV+5*, PRIV+6, PRIV+7
YSN SIGNOK+5~, SIGNOK+10*, SIGNOK+18*
>> YSPRIV SCOR1+11, PRIV+2*, PRIV+6*, PRIV+7*
YSR SCOREIT+1~
YSR(0 SCOR1+7*, SCOR1+8
YSSCALE SCOREIT+1~
YSSNDFLG RESEND+1~, RESEND+12*, RESEND+13
YSSONE SCOREIT+2!
YSSONE( SCOR1+13
YSSX SCOREIT+1~, SCOR1+3*
>> YSTEST SCOR1*
YSTN SCOREIT+1~, SCOR1+4*, PRIV+3
YSTS RESEND+1~, RESEND+17*, RESEND+18, RESEND+19, RESEND+20, RESEND+21
YSTYPE SIGNOK+5~, SIGNOK+16, TYPE+3*, TYPE+5*
YTTLKUP SELADM+1~, SELADM+2*, NOPNOTE+1~, NOPNOTE+2*, EXEMPT+1~, EXEMPT+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All