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

Package: Order Entry Results Reporting

Routine: ORCMEDT9


Information

ORCMEDT9 ;ISP/WAT - Move/copy utility for QOs ;08/03/16 11:56

Source Information

Source file <ORCMEDT9.m>

Entry Points

Name Comments DBIA/ICR reference
UDQO ; -- unit dose quick order
CHOOSE(ORABORT) ;select qo for action
ACTION(ORGO,ORNUMBER) ;
DISP(ORPMAX,ORINDEX) ; show qo dialogs for action choices
MOVE(ORQDLG) ;Move changes the DISPLAY GROUP to CLINIC MEDICATIONS or CLINIC INFUSIONS
COPY(ORQDLG) ;copy creates a new CLINIC MEDICATIONS or CLINIC INFUSIONS qo dialog and will ask to delete the original qo
BLDUDQO ;build list of UDM and IVM qos
GETNAME() ;get new name for copied dialog
NM
PTRCHECK(ORIEN) ; check for pointers if Copy action
ACTASK() ; get action Move or Copy
DELETE(IFN) ;remove old QO;
STUB(ORFILE,ORNAME) ; create new entry in file
CONT(MSG) ; -- gives user a chance to read output from pointer check
DELOK() ; -- Are you ready?
MOVOK() ; -- Are you ready?
HEADER ;header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Abort: Clinic Medications display group not found!"
  • Line Location: UDQO+6
Function Call: WRITE
  • Prompt: !,"Abort: Clinic Infusions display group not found!"
  • Line Location: UDQO+7
Function Call: WRITE
  • Prompt: !,"Moving selected quick order(s)..."
  • Line Location: ACTION+6
Function Call: WRITE
  • Prompt: " Done!"
  • Line Location: ACTION+12
Function Call: WRITE
  • Prompt: !,$J(ORINDEX,5)_". "_ORQONAM,?60,ORDG,?70,ORDISABL
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: $C(7),!,"Abort: Order dialog not found - check file entry and try again."
  • Line Location: MOVE+9
Function Call: WRITE
  • Prompt: !,"Order Dialog: "_$P(^ORD(101.41,ORIFN,0),U)
  • Line Location: MOVE+10
Function Call: WRITE
  • Prompt: !,"Error creating new entry. Please try again later."
  • Line Location: COPY+9
Function Call: WRITE
  • Prompt: !!," Quick order copy complete."
  • Line Location: COPY+18
Function Call: WRITE
  • Prompt: !,"OK - If desired, you can manually delete the QO via the QO editor."
  • Line Location: COPY+21
Function Call: WRITE
  • Prompt: !,"Now deleting original quick order..."
  • Line Location: COPY+26
Function Call: WRITE
  • Prompt: !,"Error deleting IEN "_ORQIFN_" from ORDER DIALOG (101.41)."
  • Line Location: COPY+28
Function Call: WRITE
  • Prompt: $C(7),!,"Another entry already exists by this name!",!
  • Line Location: NM+2
Function Call: WRITE
  • Prompt: $C(7),!,"Cannot delete order dialog - currently in use!",!
  • Line Location: PTRCHECK+2
Function Call: WRITE
  • Prompt: $C(7),!,"Cannot delete order dialog - other file entries point to this order dialog!",!
  • Line Location: PTRCHECK+5
Function Call: WRITE
  • Prompt: " ...deleted."
  • Line Location: DELETE+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DELOK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: MOVOK+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: ".......Quick Order",$$REPEAT^XLFSTR(".",42),?60,"Type...",?67,"Disabled....."
  • Line Location: HEADER+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101.41 - [#101.41] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call