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

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

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
Info |  Source |  Entry Points |  Interaction Calls