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 |  Marked Items  | All
Print Page as PDF
Routine: TIUMOBJ1

Package: Text Integration Utility

Routine: TIUMOBJ1


Information

TIUMOBJ1 ;XAN/AJB - MEDICATION OBJECT TESTER;Aug 02, 2024@13:51:48

Source Information

Source file <TIUMOBJ1.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 HOME^%ZIS  (CLEAN,CLEAR,IOXY,PREP,SAY)^XGF  $$HDIFF^XLFDT  ($$CJ,$$UP)^XLFSTR  
Text Integration Utility 3 ($$CHKNAME,$$CROBJ)^TIUCROBJ  $$LIST^TIULMED  $$LIST^TIUMOBJ  
VA FileMan 2 ^DIC  ^DIR  
Toolkit 1 ($$GET,EN)^XPAR  

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

Package Total Caller Graph
Text Integration Utility 1 TIUMOBJ TESTER  

Entry Points

Name Comments DBIA/ICR reference
EN
MENU ;;Medication Object Tester
PRM ;
TEST(ACTION) ; test a patient
GETPARM(P) ;
OBJ ; display/create an object
NAME() ;
ABRV() ;
OBJH(HELP) ;
ALL ;
CLS
FMR(DIR,PRM,DEF,HLP,SCR) ;
GPT() ; ask user for patient
HELP(NUM,X,Y) ;
SETSTR(S,V,X,L) ;
A ;;2
D ;;1
M ;;6
O ;;1
CS ;;2
SU ;;1

External References

Name Field # of Occurrence
HOME^%ZIS EN
^DIC GPT+2
^DIR FMR+7
$$CHKNAME^TIUCROBJ NAME+6, ABRV+6
$$CROBJ^TIUCROBJ OBJ+17
$$LIST^TIULMED TEST+7, TEST+13, ALL+8
$$LIST^TIUMOBJ ALL+7
CLEAN^XGF EN+7
CLEAR^XGF NAME+4, ABRV+4, OBJH+1, OBJH+2, OBJH+3, CLS, HELP+3
IOXY^XGF OBJ+2, NAME+4, NAME+5, NAME+6, ABRV+5, ABRV+6, CLS, HELP+3
PREP^XGF EN
SAY^XGF EN+3, EN+4, GETPARM+3, GETPARM+4, OBJ+2, NAME+2, NAME+5, NAME+6, ABRV+2, ABRV+5
, ABRV+6, OBJH+1, OBJH+2, OBJH+3, HELP+2
$$HDIFF^XLFDT ALL+11
$$CJ^XLFSTR EN+3, OBJ+2
$$UP^XLFSTR NAME+3, ABRV+3
$$GET^XPAR EN+4, PRM+1, TEST+2, ALL+2
EN^XPAR PRM+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(27)_"[?25h"
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !,"Parameters=("_+DFN_",""OUT"","_P("A")_","_P("D")_","_P("M")_","_P("O")_","_P("CS")_","_P("SU")_")",!
  • Line Location: TEST+12
Function Call: WRITE
  • Prompt: !
  • Line Location: TEST+16
Function Call: WRITE
  • Prompt: "Parameter Values",!,"================"
  • Line Location: OBJ+3
Function Call: WRITE
  • Prompt: !,$S(P(X)=5:"Clinic and Inpatient",P(X)=6:"Clinic and Outpatient")_" Medications"
  • Line Location: OBJ+8
Function Call: WRITE
  • Prompt: !!,"Object created successfully.",!
  • Line Location: OBJ+18
Function Call: WRITE
  • Prompt: !!,"Error ",$P(X,U,2)
  • Line Location: OBJ+19
Function Call: WRITE
  • Prompt: !
  • Line Location: OBJ+20
Function Call: WRITE
  • Prompt: !!,"Processing patients..."
  • Line Location: ALL+3
Function Call: WRITE
  • Prompt: !!,"# of Patients: ",C("DFNs")
  • Line Location: ALL+10
Function Call: WRITE
  • Prompt: !,"Processing Time: ",$$HDIFF^XLFDT(C("End"),C("Start"),3),!
  • Line Location: ALL+11
Function Call: WRITE
  • Prompt: !
  • Line Location: GPT+2
Routine Call
  • %ZIS
  • Line Location:
    • EN
Routine Call
  • DIC
  • Line Location:
    • GPT+2
Routine Call
  • DIR
  • Line Location:
    • FMR+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] ALL+4

Label References

Name Line Occurrences
$$ABRV OBJ+14
$$FMR EN+5, TEST+17, GETPARM+6, OBJ+13, OBJ+16, OBJ+21, NAME+3, ABRV+3, ALL+1, ALL+12
$$GPT TEST+3
$$NAME OBJ+14
$$SETSTR FMR+4
@( EN+6
CLS EN+2, EN+6, TEST+1, TEST+3, GETPARM+7, OBJ+1, OBJ+15, NAME+1, ABRV+1
GETPARM TEST+6, OBJ+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ALL+2~
%H GPT+1~
%I GPT+1~
ABRV OBJ+14~*, OBJ+15, OBJ+17, ABRV+1~, ABRV+3*, ABRV+5!, ABRV+6!, ABRV+7
ACTION TEST~, TEST+6, TEST+10
C EN~, EN+1, EN+5*, ALL+2~
C("DFNs" ALL+2*, ALL+5*, ALL+10
C("End" ALL+9*, ALL+11
C("Start" ALL+2*, ALL+11
C("Ver" ALL+2*, ALL+7, ALL+8
DEF FMR~, FMR+3
DFN TEST+2~, TEST+3*, TEST+7, TEST+12, TEST+13, ALL+2~, ALL+4*, ALL+7, ALL+8
DIC GPT+1~, GPT+2*
DIC("A" GPT+2*
DIC(0 GPT+2*
DILN FMR+1~
DILOCKTM FMR+1~, GPT+1~
DIR FMR~, FMR+3, FMR+6*
DIR("?" FMR+5*
DIR("A" FMR+3*, FMR+4*
DIR("B" FMR+3*
DIR("S" FMR+3*
DIR(0 FMR+3*
DIROUT FMR+2~, FMR+8
DIRUT FMR+2~, FMR+8
DISYS FMR+1~, GPT+1~
DTOUT FMR+2~, FMR+8, GPT+1~
DUOUT FMR+2~, FMR+8, GPT+1~
HELP OBJH~, OBJH+1, OBJH+2
HLP FMR~, FMR+5, FMR+6
IOM EN+3, OBJ+2, CLS
IOSL TEST+16, OBJ+20, CLS
L SETSTR~, SETSTR+1
MENU EN~
NAME OBJ+14~*, OBJ+15, OBJ+17, NAME+1~, NAME+3*, NAME+4!, NAME+5!, NAME+6!, NAME+7
NUM EN~, EN+2*, EN+3, EN+4, EN+5*, GETPARM+2~*, GETPARM+3, GETPARM+4, HELP~, HELP+1
NUM(1 HELP+1*, HELP+2
NUM(2 HELP+1*, HELP+2
OBJM OBJ+12~*, OBJ+13, OBJ+15, OBJ+17
OUT TEST+7~, TEST+8*, TEST+9*, TEST+12~, TEST+14*, TEST+15*, ALL+2~
OUT( TEST+8!, TEST+9, TEST+14!, TEST+15
OUT("" TEST+8, TEST+14
P TEST+6~, TEST+11~, GETPARM~, GETPARM+8!, OBJ+1~
P( GETPARM+1, GETPARM+6*, GETPARM+8, OBJ+5, OBJ+6, OBJ+7, OBJ+8, OBJ+9, OBJ+10, OBJ+11
P("A" TEST+7, TEST+11*, TEST+12, TEST+13, OBJ+12
P("CS" TEST+7, TEST+11*, TEST+12, TEST+13, OBJ+12
P("D" TEST+7, TEST+11*, TEST+12, TEST+13, OBJ+12
P("M" TEST+7, TEST+11*, TEST+12, TEST+13, OBJ+12
P("O" TEST+7, TEST+11*, TEST+12, TEST+13, OBJ+12
P("SU" TEST+7, TEST+11*, TEST+12, TEST+13, OBJ+12
POP EN~
PRM TEST+6~, GETPARM+1~*, GETPARM+6, GETPARM+8, OBJ+1~, ALL+6~, FMR~, FMR+3
PRM("M" ALL+6*, ALL+7, ALL+8
RANGE GETPARM+5~*
S SETSTR~, SETSTR+1
SCR FMR~, FMR+3
U EN+4, EN+6, GETPARM+1, GETPARM+6, GETPARM+8, OBJ+14, OBJ+19, NAME+3, ABRV+3, FMR+8
, HELP+1
V SETSTR~, SETSTR+1
VER TEST+2~*
X EN~, PRM+1~*, TEST+2~, TEST+16*, GETPARM+1~*, GETPARM+2*, GETPARM+3, OBJ+1~, OBJ+4*, OBJ+5
, OBJ+6, OBJ+7, OBJ+8, OBJ+9, OBJ+10, OBJ+11, OBJ+17*, OBJ+18, OBJ+19, OBJ+20*
, FMR+2~, FMR+4*, FMR+8, GPT+1~, HELP~, SETSTR~, SETSTR+1
XPARSYS EN~, PRM+1~, ALL+2~
Y EN~, EN+2*, EN+3, EN+4, GETPARM+2~*, GETPARM+4, FMR+2~, FMR+4*, FMR+8, GPT+1~
, GPT+3, HELP~, HELP+2, HELP+3

Marked Items

Name Field # of Occurrence
$T(@PRM GETPARM+5, GETPARM+6
$T(@PRM+NUM GETPARM+2
$T(MENU+C EN+6
$T(MENU+NUM EN+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All