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

Package: Text Integration Utility

Routine: TIUMOBJLM


Information

TIUMOBJLM ;XAN/AJB - MEDICATION OBJECT LIST MANAGER ;Aug 29, 2025@09:15:27

Source Information

Source file <TIUMOBJLM.m>

Entry Points

Name Comments DBIA/ICR reference
ASK(ACT) ; list manager default entry for numeric input
EN ; main entry point
LMEXIT ; exit
LMHELP(VALMANS) ; help
LMHDR ; header
LMINIT(VAR,VALMCNT) ; build list
HKEYS ; hidden menu keys
CROBJ ; create object
EX
CHGSTAT(IEN,N) ;
DISPLAY(IEN) ; detailed display
D2 ; redisplay
MEDREC ; med rec auto fix
README ;
TEST(IEN) ; test medication object
UPDATE(IEN) ; update medication object
EXU
CLS
DHDR(N) ; object detailed display
DPAR(P) ; display parameter values
EXTRACT(IEN,N,P) ; parameters from method
; returns N(0),N(9) nodes
; P(1)=patient,P(2)=return loc,P(3)=csv of med parameters
; P("Name")=object name
; P("Method")=object method
; P("Parameters")=complete med parameters only
FMR(DIR,PRM,DEF,HLP,SCR) ; FM reader, PRM format: <#>Prompt to auto indent #
GETPT() ; prompt user for patient
HELP(COL,ROW,MSG) ; general help
IOSL
OASK(COL,ROW) ; prompt user for object name
PARAMETERS ;A^D^M^O^SC^SU^MR; medication object parameters
PASK(P,PS) ; prompt user for medication object parameters, ps=parameter start
; returns P(<parameter>)=individual parameter value
; P=csv of selected parameters
POBJ(IEN,PARS) ; print object
REBLD ; rebuild list & header
SETSTR(S,V,X,L)
UP(X)
VALIDM(X) ; validate object method
A ;;2
D ;;1
M ;;7
O ;;1
SC ;;2
SU ;;1
MR ;;1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Selectable Actions:",!!,HV1_"Create Medication Object:"_HV0_" Prompts user for medication parameters and creates",!," a new object without requiring programmer access.",!!
  • Line Location: LMHELP+3
Function Call: WRITE
  • Prompt: HV1_"Med Rec Object Auto Fix:"_HV0_" Prompts user to automatically set the new",!," Med Rec/TIUDATE parameter for only Med Rec Objects.",!
  • Line Location: LMHELP+4
Function Call: WRITE
  • Prompt: " After entering 'YES', prompts for desired parameter",!," value and confirmation to begin update.",!!
  • Line Location: LMHELP+5
Function Call: WRITE
  • Prompt: HV1_"Detailed Display/Edit:"_HV0_" Displays object information and allows user to update",!," the status, print the details, test the output, and",!
  • Line Location: LMHELP+6
Function Call: WRITE
  • Prompt: " update the medication specific parameters.",!!,HV1_"Parameter TIUMOBJ On/Off:"_HV0_" Toggles the TIUMOBJ STATUS parameter On/Off.",!
  • Line Location: LMHELP+7
Function Call: WRITE
  • Prompt: " This alters the behavior of objects to use the ",!," original TIULMED* routines [OFF] or the updated",!
  • Line Location: LMHELP+8
Function Call: WRITE
  • Prompt: " TIUMOBJ routine [ON]. 'Indication' will only be",!," shown when the paremter value is set to ON.",!!
  • Line Location: LMHELP+9
Function Call: WRITE
  • Prompt: HV1_"Readme.txt:"_HV0_" Medication Objects 101 + Developer's Notes."
  • Line Location: LMHELP+10
Function Call: WRITE
  • Prompt: !,"The following actions are also available:"
  • Line Location: HKEYS+1
Function Call: WRITE
  • Prompt: UL1_$$CJ^XLFSTR("Medication Object Creator",IOM)_UL0,!!
  • Line Location: CROBJ+4
Function Call: WRITE
  • Prompt: "Selected Parameter Values",!,"=========================",!
  • Line Location: CROBJ+6
Function Call: WRITE
  • Prompt: P("Name")_" object created successfully."
  • Line Location: CROBJ+15
Function Call: WRITE
  • Prompt: !!?1,$P(P("IEN"),U,2)
  • Line Location: CROBJ+16
Function Call: WRITE
  • Prompt: !,RV1_$$SETSTR(" 'def' indicates no parameter value set, default shown","",0,80)_RV0,!,$$SETSTR("Test Object"," Change Status",45,11)
  • Line Location: D2+6
Function Call: WRITE
  • Prompt: !,$$SETSTR("Update Parameters"," Print Object",45,17),!
  • Line Location: D2+7
Function Call: WRITE
  • Prompt: UL1_$$CJ^XLFSTR("Medication Reconciliation Auto Fix",IOM)_UL0,!!
  • Line Location: MEDREC+1
Function Call: WRITE
  • Prompt: HV1_"Object Method Update"_HV0,$$RJ^XLFSTR(NOW,IOM-20),!
  • Line Location: MEDREC+7
Function Call: WRITE
  • Prompt: UL1_$$CJ^XLFSTR("Medication Reconciliation Auto Fix",IOM)_UL0,!!
  • Line Location: MEDREC+8
Function Call: WRITE
  • Prompt: " # of Medication",!," Reconciliation Objects:",?30,VAR("medRec"),!!
  • Line Location: MEDREC+9
Function Call: WRITE
  • Prompt: " Med Rec/TIUDATE Fix Value:",?30,P("MR")_$S(P("MR"):" Include TIUDATE [default]",1:" Exclude TIUDATE")
  • Line Location: MEDREC+10
Function Call: WRITE
  • Prompt: "Objects Complete: ",?30,NUM
  • Line Location: MEDREC+20
Function Call: WRITE
  • Prompt: " Done."
  • Line Location: MEDREC+21
Function Call: WRITE
  • Prompt: "Syntax error in method."
  • Line Location: TEST+5
Function Call: WRITE
  • Prompt: @X@(Y,0),!
  • Line Location: TEST+9
Function Call: WRITE
  • Prompt: HV1_"Object Method Update"_HV0,$$RJ^XLFSTR(NOW,IOM-20),!!,UL1_$$CJ^XLFSTR("Object "_P("Name"),IOM)_UL0,!!,"Current Method:",!!
  • Line Location: UPDATE+9
Function Call: WRITE
  • Prompt: $$REPLACE^XLFSTR(P("Method"),.REP),!!,"Updated Method:",!!,$$REPLACE^XLFSTR(P("Update"),.REP),!
  • Line Location: UPDATE+11
Function Call: WRITE
  • Prompt: !,"No updates needed."
  • Line Location: UPDATE+12
Function Call: WRITE
  • Prompt: " Done."
  • Line Location: UPDATE+14
Function Call: WRITE
  • Prompt: @Y,!
  • Line Location: DHDR+11
Function Call: WRITE
  • Prompt: ?$S($L(PAR)=1:2,1:1),PAR,"=",$S(P(PAR)="":"def",1:P(PAR)),?9
  • Line Location: DPAR+3
Function Call: WRITE
  • Prompt: $S(P(PAR)=4:"Clinic",P(PAR)=5:"Inpatient & Clinic",P(PAR)=6:"Outpatient & Clinic",P(PAR)=7:"Non-VA")_" Medications"
  • Line Location: DPAR+7
Function Call: WRITE
  • Prompt: " and Display Class in Header"
  • Condition for execution: P(PAR)=2
  • Line Location: DPAR+9
Function Call: WRITE
  • Prompt: $S(P(PAR)=""!(P(PAR)):"Include",1:"Exclude")_" TIUDATE value when calling OCL^PSOORRL"
  • Line Location: DPAR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DPAR+12
Function Call: WRITE
  • Prompt: MSG
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !?30,MSG(X)
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: IOSL+0
Function Call: WRITE
  • Prompt: $$SETSTR(RESULT_" is already in use.","",2,IOM)
  • Line Location: OASK+4
Function Call: WRITE
  • Prompt: "Parameter "_PNUM_" (of "_$L(PLIST,U)_"):"
  • Line Location: PASK+6
Function Call: WRITE
  • Prompt: LINE
  • Line Location: PASK+7
Info |  Source |  Entry Points |  Interaction Calls