Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: YTXCHGL

Package: Mental Health

Routine: YTXCHGL


Information

YTXCHGL ;SLC/KCM - MH Exchange List Manager Calls ; 08-AUG-2016

Source Information

Source file <YTXCHGL.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for YTXCHG MAIN
HDR ; -- header code
INIT ; -- init variables and list array
HELP ; -- help code
EXIT ; -- exit code
EXPND ; -- expand code
CREATE ; create new instrument exchange entry
REBUILD ; rebuild spec for existing exchange entry (with new date)
XREBUILD ; exit REBUILD here
DELETE ; delete instrument exchange entry
DRYRUN ; Trial install without database changes
INSTALL ; Install instrument exchange entry locally
BROWSE ; Browse instrument specification
SAVEHOST ; Save exchange entry to host file
LOADHOST ; Load exchange entry from host file
XLOADHST ; exit LOADHOST here
LOADURL ; Load exchange entry from URL
XLOADURL ; exit LOADURL here
LOAD2FM(XCHGREC) ; confirm and load into Fileman entry (file 601.95)
XINIT ; exit back to LM, update listing
XPAUSE ; exit back to LM, pause first
XREFR ; exit back to LM, refresh screen only
SELECT() ; return IEN for selection from list

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,"Creating:",?11,REC(.01)
  • Line Location: CREATE+10
Function Call: WRITE
  • Prompt: !,?11,$$FMTE^XLFDT(REC(.02),"5Z")
  • Line Location: CREATE+11
Function Call: WRITE
  • Prompt: !!," Rebuilding:",?14,INFO(.01)
  • Line Location: REBUILD+6
Function Call: WRITE
  • Prompt: !,?14,$$FMTE^XLFDT(INFO(.02),"5Z")
  • Line Location: REBUILD+7
Function Call: WRITE
  • Prompt: !,"Instruments:"
  • Line Location: REBUILD+8
Function Call: WRITE
  • Prompt: ?14,INFO("tests",I),!
  • Line Location: REBUILD+10
Function Call: WRITE
  • Prompt: !!,$S($G(DRYRUN):"Trial ",1:"")_"Installing "_$P(^YTT(601.95,XCHGIEN,0),U)
  • Line Location: INSTALL+5
Function Call: WRITE
  • Prompt: !,"*** No database changes will be made. ***",!
  • Line Location: INSTALL+6
Function Call: WRITE
  • Prompt: !,"No data to save."
  • Line Location: SAVEHOST+3
Function Call: WRITE
  • Prompt: !,$S(OK:"File saved.",1:"Save failed.")
  • Line Location: SAVEHOST+7
Function Call: WRITE
  • Prompt: !,"File is wrong format."
  • Line Location: LOAD2FM+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LOAD2FM+3
Function Call: WRITE
  • Prompt: !,"This will load: "_XCHGREC(.01)
  • Line Location: LOAD2FM+4
Function Call: WRITE
  • Prompt: !," created on: "_$$FMTE^XLFDT(XCHGREC(.02),"5Z")
  • Line Location: LOAD2FM+5
Function Call: WRITE
  • Prompt: !," source: "_XCHGREC(.03)
  • Line Location: LOAD2FM+6
Function Call: WRITE
  • Prompt: !,"Description ---"
  • Line Location: LOAD2FM+7
Function Call: WRITE
  • Prompt: !,?3,^TMP("YTXCHG",$J,"WP",2,I,0)
  • Line Location: LOAD2FM+8
Function Call: WRITE
  • Prompt: !!,">>> This will OVERWRITE the current entry!"
  • Line Location: LOAD2FM+10
Function Call: WRITE
  • Prompt: !,$P(^YTT(601.95,XCHGIEN,0),U)_" loaded."
  • Line Location: LOAD2FM+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call