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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: YTXCHGU

Package: Mental Health

Routine: YTXCHGU


Information

YTXCHGU ;SLC/KCM - Instrument Specification Utilities ; 9/15/2015

Source Information

Source file <YTXCHGU.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 5 $$GTF^%ZISH  ^%ZTLOAD  ($$FMTHL7,$$HADD,$$HTE,$$NOW)^XLFDT  $$REPLACE^XLFSTR  (BMES,MES)^XPDUTL  
Mental Health 4 $$CREATE^YTXCHG  ($$LKUP,$$PICKTEST,$$PRMTNAME)^YTXCHGP  SPEC2TR^YTXCHGT  SPLTDIR^YTXCHGU  
VA FileMan 4 (FILE,UPDATE)^DIE  ^DIK  CLEAN^DILF  $$ROOT^DILFD  

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

Package Total Caller Graph
Mental Health 20 YS121PST  YS123PST  YS130PST  YS139PST  YS141PST  YS142PST  YS150PST  YS151PST  
YTQAPI14  YTSCOREV  YTWJSONE  YTWJSONF  YTXCHG  YTXCHGE  YTXCHGI  YTXCHGL  
YTXCHGP  YTXCHGT  YTXCHGU  YTXCHGV  

Entry Points

Name Comments DBIA/ICR reference
SPLTDIR(X,DIR,FILE) ; Split entry into directory and filename
MKSUBS(FILE,FIELD,NUMS) ; return subscript string for file:field
; expects: MAP
; NUMS(n)=array index for level n
SUBNUMS(SUBSTR,NUMS) ; make substitutions using NUMS array
NEWDATE(NAME,DATE) ; Change date for test
FM2ISO(FMDT) ; Convert Fileman Date/Time to ISO 8601
ISO2FM(ISODT) ; Convert ISO 8601 Date/Time to Fileman
FMADD(FILE,RECORD,IEN) ; Add new record to FILE
; RECORD(field#)=value
; RECORD(field#)=global reference to word processing value
; IEN=optional IEN to attempt to use
FMUPD(FILE,RECORD,IEN) ; Add new record to FILE
; RECORD(field#)=value
; RECORD(field#)=global reference to word processing value
; IEN=record to update
FMDEL(FILE,IEN) ; Delete record from FILE
; IEN=record to delete
LOG(TYPE,MSG) ; update statistics
; optionally expects YTXLOG array -- uses it if defined
LOGINST(XCHGIEN) ; log installation
BACKUP(TESTNM) ; backup an instrument for later recovery, if necessary
QDEL(XCHGIEN,XCHGNM,XCHGDT,DAYS) ; Queue a task to delete an exchange entry
DQDEL ; Dequeue of instrument exchange entry removal
TREEOUT ; Save tree representation to file
XTREEOUT ; exit TREEOUT
FSZ(FNUM) ; return size of Fileman file in bytes (uncompressed)
TFM2ISO ; test Fileman to ISO Date/Time
TISO2FM ; test ISO to Fileman date/time

External References

Name Field # of Occurrence
$$GTF^%ZISH TREEOUT+28
^%ZTLOAD QDEL+7
FILE^DIE FMUPD+7
UPDATE^DIE FMADD+8, LOGINST+4
^DIK FMDEL+6
CLEAN^DILF FMADD+11, FMUPD+9, LOGINST+6
$$ROOT^DILFD FSZ+2
$$FMTHL7^XLFDT FM2ISO+2
$$HADD^XLFDT QDEL+5
$$HTE^XLFDT BACKUP+4
$$NOW^XLFDT NEWDATE+3, LOGINST+2, BACKUP+5
$$REPLACE^XLFSTR SUBNUMS+3
BMES^XPDUTL LOG+5
MES^XPDUTL LOG+7
$$CREATE^YTXCHG BACKUP+9
$$LKUP^YTXCHGP TREEOUT+4
$$PICKTEST^YTXCHGP TREEOUT+9
$$PRMTNAME^YTXCHGP TREEOUT+6
SPEC2TR^YTXCHGT TREEOUT+8
SPLTDIR^YTXCHGU TREEOUT+27

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: MSG
  • Line Location: LOG+8
Function Call: WRITE
  • Prompt: !,LINE_"="_@X
  • Line Location: TREEOUT+23
Function Call: WRITE
  • Prompt: !,"File "_$S(OK:"",1:"not ")_"saved."
  • Line Location: TREEOUT+29
Function Call: WRITE
  • Prompt: !,$$FM2ISO("3100900")
  • Line Location: TFM2ISO+1
Function Call: WRITE
  • Prompt: !,$$FM2ISO("3120415")
  • Line Location: TFM2ISO+2
Function Call: WRITE
  • Prompt: !,$$FM2ISO("3120415.1")
  • Line Location: TFM2ISO+3
Function Call: WRITE
  • Prompt: !,$$FM2ISO("3120415.102")
  • Line Location: TFM2ISO+4
Function Call: WRITE
  • Prompt: !,$$FM2ISO("3120415.100001")
  • Line Location: TFM2ISO+5
Function Call: WRITE
  • Prompt: !,$$FM2ISO("3120415.170001")
  • Line Location: TFM2ISO+6
Function Call: WRITE
  • Prompt: !,$$FM2ISO("3160620.111")
  • Line Location: TFM2ISO+7
Function Call: WRITE
  • Prompt: !,$$ISO2FM("2010-09")
  • Line Location: TISO2FM+1
Function Call: WRITE
  • Prompt: !,$$ISO2FM("2012-04-15")
  • Line Location: TISO2FM+2
Function Call: WRITE
  • Prompt: !,$$ISO2FM("2012-04-15T10:00")
  • Line Location: TISO2FM+3
Function Call: WRITE
  • Prompt: !,$$ISO2FM("2012-04-15T10:20")
  • Line Location: TISO2FM+4
Function Call: WRITE
  • Prompt: !,$$ISO2FM("2012-04-15T10:00:01")
  • Line Location: TISO2FM+5
Function Call: WRITE
  • Prompt: !,$$ISO2FM("2012-04-15T17:00:01")
  • Line Location: TISO2FM+6
Function Call: WRITE
  • Prompt: !,$$ISO2FM("2012-04-15T17:00:01-0600")
  • Line Location: TISO2FM+7
Function Call: WRITE
  • Prompt: !,$$ISO2FM("2016-06-20T11:10")
  • Line Location: TISO2FM+8
Routine Call
  • DIE
  • Line Location:
    • FMUPD+7
Routine Call
  • DIE
  • Line Location:
    • FMADD+8
    • LOGINST+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("DIERR" FMADD+10, FMUPD+8, LOGINST+5
^TMP("YTXCHG" BACKUP+2!, BACKUP+7, BACKUP+8*, BACKUP+10!, TREEOUT+1!, TREEOUT+2!, TREEOUT+8, TREEOUT+9, TREEOUT+12, TREEOUT+24*
TREEOUT+28, XTREEOUT+1!, XTREEOUT+2!
^YTT(601.71 - [#601.71] NEWDATE+2, BACKUP+3
^YTT(601.95 - [#601.95] DQDEL+2

Label References

Name Line Occurrences
$$FM2ISO TFM2ISO+1, TFM2ISO+2, TFM2ISO+3, TFM2ISO+4, TFM2ISO+5, TFM2ISO+6, TFM2ISO+7
$$ISO2FM TISO2FM+1, TISO2FM+2, TISO2FM+3, TISO2FM+4, TISO2FM+5, TISO2FM+6, TISO2FM+7, TISO2FM+8
$$SUBNUMS MKSUBS+5
FMDEL DQDEL+4
FMUPD NEWDATE+4
LOG FMADD+10, FMUPD+8, LOGINST+5, QDEL+8
QDEL BACKUP+11
XTREEOUT TREEOUT+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT TREEOUT+11~, TREEOUT+13*, TREEOUT+24*
D FM2ISO+1~, FM2ISO+3*, FM2ISO+5, ISO2FM+1*, ISO2FM+2*, ISO2FM+4
DA FMDEL+4~, FMDEL+5*
DATE NEWDATE~, NEWDATE+3
DAYS QDEL~, QDEL+5
DIERR FMADD+5~, FMADD+10, FMUPD+5~, FMUPD+8, LOGINST+1~, LOGINST+5
DIK FMDEL+4~, FMDEL+5*
DIR SPLTDIR~, SPLTDIR+5*
DUZ LOGINST+3
ESC TREEOUT+11~, TREEOUT+15*, TREEOUT+18*, TREEOUT+22
FIELD MKSUBS~, MKSUBS+4
FILE SPLTDIR~, SPLTDIR+5*, MKSUBS~, MKSUBS+4, FMADD~, FMADD+4, FMADD+6, FMUPD~, FMUPD+4, FMUPD+6
, FMDEL~, FMDEL+2, FMDEL+5, TREEOUT+26~, TREEOUT+27, TREEOUT+28
FMDT FM2ISO~, FM2ISO+2
FNUM FSZ~, FSZ+2
FULLNM TREEOUT+3~, TREEOUT+6*, TREEOUT+7, TREEOUT+27
H FM2ISO+1~, FM2ISO+7*, FM2ISO+8
I SPLTDIR+4*, SPLTDIR+5, SUBNUMS+1~, SUBNUMS+2*, TREEOUT+11~, TREEOUT+16*, TREEOUT+17, FSZ+1~, FSZ+5*
IEN NEWDATE+1~, NEWDATE+2*, NEWDATE+4, FMADD~, FMADD+7, FMADD+9*, FMADD+10*, FMUPD~, FMUPD+6, FMDEL~
, FMDEL+3, FMDEL+5, BACKUP+1~, BACKUP+9*, BACKUP+11
ISODT FM2ISO+1~, FM2ISO+4*, FM2ISO+5*, FM2ISO+8*, FM2ISO+9*, FM2ISO+10, ISO2FM~, ISO2FM+1, ISO2FM+3
LINE TREEOUT+11~, TREEOUT+15*, TREEOUT+20*, TREEOUT+21*, TREEOUT+24
LROOT TREEOUT+11~, TREEOUT+13*, TREEOUT+14
M FM2ISO+1~, FM2ISO+3*, FM2ISO+5
>> MAP( MKSUBS+4
MSG LOG~, LOG+4, LOG+5, LOG+6, LOG+7, LOG+8
N FM2ISO+1~, FM2ISO+7*, FM2ISO+9
NAME NEWDATE~, NEWDATE+2
NUM TREEOUT+3~, TREEOUT+9*, TREEOUT+12
NUMS MKSUBS~, MKSUBS+5, SUBNUMS~
NUMS( SUBNUMS+2
OK TREEOUT+26~, TREEOUT+28*, TREEOUT+29
PATH TREEOUT+26~, TREEOUT+27, TREEOUT+28
PATHCHAR SPLTDIR+1~, SPLTDIR+3*, SPLTDIR+4
REC NEWDATE+1~, NEWDATE+4, BACKUP+1~, BACKUP+9
REC( BACKUP+4*, BACKUP+5*, BACKUP+6*, BACKUP+11
REC(18 NEWDATE+3*
REC(2 BACKUP+7*
RECORD FMADD~, FMADD+6, FMUPD~, FMUPD+6
REPLACE SUBNUMS+1~, SUBNUMS+3
REPLACE("?" SUBNUMS+2*
ROOT TREEOUT+11~, TREEOUT+13*, TREEOUT+14, FSZ+1~, FSZ+2*, FSZ+4, FSZ+5
S FM2ISO+1~, FM2ISO+7*, FM2ISO+9
SIZE FSZ+1~, FSZ+3*, FSZ+4*, FSZ+5*, FSZ+6
SUB TREEOUT+11~, TREEOUT+17*, TREEOUT+18, TREEOUT+19*, TREEOUT+21
SUBSTR MKSUBS+3~, MKSUBS+4*, MKSUBS+5, SUBNUMS~, SUBNUMS+3*, SUBNUMS+4
>> T ISO2FM+3*, ISO2FM+4
TESTNM BACKUP~, BACKUP+3, BACKUP+4, BACKUP+8
TESTS BACKUP+1~, BACKUP+9
TESTS(1 BACKUP+3*
TYPE LOG~, LOG+2, LOG+3, LOG+6, LOG+7, LOG+8
U DQDEL+3
X SPLTDIR~, SPLTDIR+2*, SPLTDIR+4, SPLTDIR+5, FM2ISO+1~, FM2ISO+2*, FM2ISO+3, FM2ISO+6, FM2ISO+7, TREEOUT+11~
TREEOUT+12*, TREEOUT+13, TREEOUT+14*, TREEOUT+16, TREEOUT+17, TREEOUT+24
X0 DQDEL+2~*, DQDEL+3
XCHGDT QDEL~, DQDEL+3
XCHGIEN LOGINST~, LOGINST+2, LOGINST+3, QDEL~, DQDEL+2, DQDEL+4, TREEOUT+3~, TREEOUT+4*, TREEOUT+5, TREEOUT+8
XCHGNM QDEL~, QDEL+4, QDEL+8, DQDEL+3
Y FM2ISO+1~, FM2ISO+3*, FM2ISO+4
YTERR FMADD+5~, FMUPD+5~, LOGINST+1~
YTFDA FMADD+5~, FMUPD+5~, LOGINST+1~
YTFDA( FMADD+6*, FMUPD+6*, LOGINST+2*, LOGINST+3*
YTIEN FMADD+5~, FMUPD+5~, LOGINST+1~
YTIEN(1 FMADD+7*, FMADD+9
YTWP FMADD+5~, FMUPD+5~
>> YTXLOG LOG+2, LOG+4
>> YTXLOG( LOG+2*
>> YTXLOG("conflict" LOG+6*
>> YTXLOG("error" LOG+4*
ZTDESC QDEL+1~, QDEL+4*
ZTDTH QDEL+1~, QDEL+5*
ZTIO QDEL+1~, QDEL+2*
>> ZTREQ DQDEL+1*
ZTRTN QDEL+1~, QDEL+3*
ZTSAVE QDEL+1~
ZTSAVE("XCHGDT" QDEL+6*
ZTSAVE("XCHGIEN" QDEL+6*
ZTSAVE("XCHGNM" QDEL+6*
ZTSK QDEL+1~, QDEL+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All