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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: YTXCHGP

Package: Mental Health

Routine: YTXCHGP


Information

YTXCHGP ;SLC/KCM - MH Exchange Prompting ; 9/15/2015

Source Information

Source file <YTXCHGP.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^DIC  ^DIR  EN^DIWE  
Kernel 2 ($$LOW,$$TRIM)^XLFSTR  MES^XPDUTL  
Mental Health 1 LOG^YTXCHGU  

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

Package Total Caller Graph
Mental Health 3 YTXCHGL  YTXCHGT  YTXCHGU  

Entry Points

Name Comments DBIA/ICR reference
LKUP(FILE) ; Lookup Mental Health Instrument & return IEN
; returns IEN, 0 for no selection, -1 for up-arrow or timeout
LIST(FILE,ENTRIES) ; Lookup in File to make list of ENTRIES
PRMTNAME(ASK,HELP,MAX) ; Prompt using ASK and return text or ""
CONFIRM(ASK,DFLT) ; return true if user confirms
PAUSE() ; prompt user for return to continue
EDITWP(INSTRUCT,DEST) ; Edit word processing text in DEST
; INSTRUCT: instructions to user
; DEST: global reference for WP text
PICKTEST(TREE) ; Return a string of instruments selected]
TESTLIST ; Show a list of tests
; expects TESTS,TREE from PICKTEST
SHOSUMM(YTXLOG,YTXDRY) ; Display summary log information
; may be called during KIDS build, so uses MES^XPDUTL

External References

Name Field # of Occurrence
^DIC LKUP+3
^DIR PRMTNAME+4, CONFIRM+3, PAUSE+3
EN^DIWE EDITWP+8
$$LOW^XLFSTR PICKTEST+5, PICKTEST+12
$$TRIM^XLFSTR PRMTNAME+6
MES^XPDUTL SHOSUMM+6, SHOSUMM+10, SHOSUMM+12, SHOSUMM+14, SHOSUMM+16, SHOSUMM+18
LOG^YTXCHGU SHOSUMM+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,INSTRUCT," --"
  • Line Location: EDITWP+4
Function Call: WRITE
  • Prompt: !!,"Choose instrument to browse: "
  • Line Location: PICKTEST+10
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PICKTEST+11
Function Call: WRITE
  • Prompt: " ",T
  • Line Location: PICKTEST+16
Function Call: WRITE
  • Prompt: " ??",!
  • Line Location: PICKTEST+17
Function Call: WRITE
  • Prompt: !,"Instruments contained in ",@TREE@("xchg","name")," are:"
  • Line Location: TESTLIST+2
Function Call: WRITE
  • Prompt: !,$J(I,4),?7,TESTS(I)
  • Line Location: TESTLIST+3
Routine Call
  • DIC
  • Line Location:
    • LKUP+3
Routine Call
  • DIR
  • Line Location:
    • PRMTNAME+4
    • CONFIRM+3
    • PAUSE+3

Label References

Name Line Occurrences
$$LKUP LIST+5
TESTLIST PICKTEST+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ASK PRMTNAME~, PRMTNAME+3, CONFIRM~, CONFIRM+2
DDWFLAGS EDITWP+5~, EDITWP+7*
DEST EDITWP~, EDITWP+3*, EDITWP+7, EDITWP+9, EDITWP+10, EDITWP+11
DFLT CONFIRM~, CONFIRM+2
DIC LKUP+2~, LKUP+3*, EDITWP+5~, EDITWP+7*
DIC(0 LKUP+3*
DIR PRMTNAME+1~, CONFIRM+1~, PAUSE+1~
DIR("?" PRMTNAME+3*
DIR("A" PRMTNAME+3*, CONFIRM+2*, PAUSE+2*
DIR("B" CONFIRM+2*
DIR(0 PRMTNAME+3*, CONFIRM+2*, PAUSE+2*
DIROUT PRMTNAME+1~, PRMTNAME+5, CONFIRM+1~, PAUSE+1~
DIRUT PRMTNAME+1~, PRMTNAME+5, CONFIRM+1~, PAUSE+1~
DT EDITWP+10
DTIME PICKTEST+11
DTOUT LKUP+2~, LKUP+4, PRMTNAME+1~, PRMTNAME+5, CONFIRM+1~, CONFIRM+4, PAUSE+1~
DUOUT LKUP+2~, LKUP+4, PRMTNAME+1~, PRMTNAME+5, CONFIRM+1~, CONFIRM+4, PAUSE+1~
DWLW EDITWP+5~, EDITWP+7*
DWPK EDITWP+5~, EDITWP+7*
ENTRIES LIST~, LIST+4*, LIST+5*, LIST+6!*
ENTRIES( LIST+5*
FILE LKUP~, LKUP+3, LIST~, LIST+5
HELP PRMTNAME~, PRMTNAME+3
I LIST+3~, LIST+5*, EDITWP+6~, PICKTEST+1~, PICKTEST+2*, PICKTEST+3, PICKTEST+4, PICKTEST+5, TESTLIST+3*, SHOSUMM+4~*
, SHOSUMM+5
IEN LIST+3~, LIST+5*, LIST+6
INSTRUCT EDITWP~, EDITWP+4
J EDITWP+6~
MAX PRMTNAME~, PRMTNAME+2*, PRMTNAME+3
MSG SHOSUMM+2~, SHOSUMM+5*, SHOSUMM+6, SHOSUMM+7*, SHOSUMM+8, SHOSUMM+9*, SHOSUMM+10, SHOSUMM+11*, SHOSUMM+12, SHOSUMM+13*
, SHOSUMM+14, SHOSUMM+15*, SHOSUMM+16, SHOSUMM+17*, SHOSUMM+18
T PICKTEST+1~, PICKTEST+15*, PICKTEST+16
TESTS PICKTEST+1~, PICKTEST+3*, PICKTEST+6
TESTS( PICKTEST+4*, PICKTEST+5, PICKTEST+13, TESTLIST+3
TESTS("B" PICKTEST+5*, PICKTEST+14, PICKTEST+15, PICKTEST+16
TREE PICKTEST~, PICKTEST+2, PICKTEST+4, TESTLIST+2
X LKUP+2~, PRMTNAME+1~, CONFIRM+1~, PAUSE+1~, EDITWP+6~, PICKTEST+1~, PICKTEST+8, PICKTEST+11*, PICKTEST+12*, PICKTEST+13
, PICKTEST+14*, PICKTEST+15, PICKTEST+16*, PICKTEST+17*, PICKTEST+18
X1 EDITWP+6~
Y LKUP+2~, LKUP+4*, LKUP+5, PRMTNAME+1~, PRMTNAME+5*, PRMTNAME+6*, PRMTNAME+7, CONFIRM+1~, CONFIRM+4*, CONFIRM+5
, PAUSE+1~
YTXDRY SHOSUMM~, SHOSUMM+11, SHOSUMM+13, SHOSUMM+15
YTXLOG SHOSUMM~
YTXLOG("added" SHOSUMM+11
YTXLOG("conflict" SHOSUMM+3, SHOSUMM+4, SHOSUMM+5
YTXLOG("deleted" SHOSUMM+15
YTXLOG("error" SHOSUMM+17
YTXLOG("updated" SHOSUMM+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All