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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 (,UPDATE)^DIE  (,ENALL)^DIK  CLEAN^DILF  ^DIR  
Kernel 2 ($$REPEAT,$$UP)^XLFSTR  $$PATCH^XPDUTL  
Order Entry Results Reporting 1 ($$PTRCHK,PTRRPT)^ORCMEDT4  

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

Package Total Caller Graph
Electronic Health Modernization 2 EHM-00182  EHM-00605  
Order Entry Results Reporting 1 OR CONV INPT QO TO CLIN ORD QO  

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

External References

Name Field # of Occurrence
^DIE COPY+16
UPDATE^DIE STUB+3
^DIK DELETE+5, DELETE+6
ENALL^DIK COPY+17
CLEAN^DILF UDQO+12, STUB+5
^DIR CHOOSE+4, NM, ACTASK+7, CONT+4, DELOK+3, MOVOK+3
$$PTRCHK^ORCMEDT4 PTRCHECK+3
PTRRPT^ORCMEDT4 PTRCHECK+7
$$REPEAT^XLFSTR HEADER+2
$$UP^XLFSTR COPY+14
$$PATCH^XPDUTL COPY+3

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
Routine Call
  • DIE
  • Line Location:
    • COPY+16
Routine Call
  • DIE
  • Line Location:
    • STUB+3
Routine Call
  • DIR
  • Line Location:
    • CHOOSE+4
    • NM
    • ACTASK+7
    • CONT+4
    • DELOK+3
    • MOVOK+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101.41 - [#101.41] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ORD(100.98 - [#100.98] UDQO+4, UDQO+5, ACTION+7, BLDUDQO+3, BLDUDQO+4
^ORD(101.41 - [#101.41] MOVE+3, MOVE+6*, MOVE+10, COPY+7, COPY+11, COPY+12*, COPY+13*, COPY+14*, COPY+15*, BLDUDQO+7
, BLDUDQO+8, BLDUDQO+10, BLDUDQO+16, NM+2, PTRCHECK+2
^ORD(101.44 - [#101.44] DELETE+2, DELETE+4
^TMP("ORUDQO" CHOOSE+8, ACTION+10, DISP+4, DISP+6, DISP+7, DISP+8, MOVE+2, MOVE+4, MOVE+7!, COPY+4
, COPY+5, COPY+29!, BLDUDQO+6!, BLDUDQO+16*

Label References

Name Line Occurrences
$$ACTASK CHOOSE+9
$$DELETE COPY+27
$$DELOK COPY+20
$$GETNAME COPY+8
$$MOVOK ACTION+5
$$PTRCHECK COPY+23
$$STUB COPY+9
ACTION CHOOSE+11, CHOOSE+12
BLDUDQO UDQO+8
CHOOSE UDQO+11
CONT COPY+22, COPY+24, PTRCHECK+6
COPY ACTION+4
DISP UDQO+10
HEADER DISP+2, DISP+5
MOVE ACTION+10
NM NM+2, NM+4

Naked Globals

Name Field # of Occurrence
^(0 BLDUDQO+11, BLDUDQO+12, BLDUDQO+13, BLDUDQO+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA COPY+10~, COPY+16*, COPY+17!, DELETE+1~, DELETE+5*, DELETE+6!*
DA(1 COPY+17*, DELETE+5*
DIE COPY+10~, COPY+16*
DIK COPY+10~, COPY+17*, DELETE+1~, DELETE+5*, DELETE+6*
DIK(1 COPY+17*
DIR CHOOSE+2~, GETNAME+1~, ACTASK+1~, CONT+1~, DELOK+1~, MOVOK+1~
DIR("?" GETNAME+3*, ACTASK+3*, ACTASK+4*, ACTASK+5*, ACTASK+6*, CONT+3*
DIR("A" GETNAME+2*, CONT+2*, DELOK+2*, MOVOK+2*
DIR("B" DELOK+2*, MOVOK+2*
DIR(0 CHOOSE+3*, GETNAME+2*, ACTASK+2*, CONT+2*, DELOK+2*, MOVOK+2*
DIRUT CHOOSE+2~, NM+1
DR COPY+10~, COPY+16*
DTOUT CHOOSE+2~, CHOOSE+5, ACTASK+8
DUOUT CHOOSE+2~, CHOOSE+6, NM+1, ACTASK+8
FDA STUB+1~
FDA( STUB+2*
I COPY+10~, COPY+12*, COPY+15*
IDX1 DELETE+1~*, DELETE+2*, DELETE+4, DELETE+5
IDX2 DELETE+1~, DELETE+3*, DELETE+4*, DELETE+5
IEN STUB+1~
IEN(1 STUB+6
IFN DELETE~, DELETE+2, DELETE+4, DELETE+6
IHAZPTR PTRCHECK+1~*, PTRCHECK+2*, PTRCHECK+3*, PTRCHECK+4, PTRCHECK+8
IOF HEADER+1
IOSL UDQO+3, DISP+5
MSG STUB+1~, STUB+4, CONT~, CONT+2
OR30350 COPY+2~, COPY+3*, COPY+19
ORABORT UDQO+1~, UDQO+3*, UDQO+9, UDQO+11, CHOOSE~, CHOOSE+5*, CHOOSE+6*, CHOOSE+10*
ORACT CHOOSE+1~, CHOOSE+9*, CHOOSE+10, CHOOSE+11
ORCIDG UDQO+1~, UDQO+5*, UDQO+7, MOVE+5, COPY+6
ORCMDG UDQO+1~, UDQO+4*, UDQO+6, ACTION+7*, MOVE+5, COPY+6
ORCONVDG MOVE+2~, MOVE+4*, MOVE+5*, MOVE+6
ORCOUNT ACTION+2~, ACTION+8*, ACTION+9, ACTION+11*
ORCUR0 COPY+2~, COPY+11*, COPY+12, COPY+14, COPY+16
ORDG UDQO+1~, DISP+1~, DISP+7*, DISP+9, BLDUDQO+1~, BLDUDQO+14*, BLDUDQO+16
ORDIGP COPY+2~, COPY+5*, COPY+6*, COPY+13
ORDISABL DISP+1~, DISP+8*, DISP+9, BLDUDQO+1~, BLDUDQO+13*, BLDUDQO+15*, BLDUDQO+16
ORDLGNM DISP+1~, BLDUDQO+1~, BLDUDQO+2*, BLDUDQO+7*, BLDUDQO+8
ORESULT COPY+2~, COPY+27*, COPY+28
ORFILE STUB~, STUB+2
ORGO ACTION~, ACTION+4
ORIEN PTRCHECK~, PTRCHECK+2, PTRCHECK+3, PTRCHECK+7
ORIFN DISP+1~, DISP+3*, MOVE+2~*, MOVE+3, MOVE+6, MOVE+10, BLDUDQO+1~, BLDUDQO+8*, BLDUDQO+9, BLDUDQO+10
, BLDUDQO+16
ORINDEX UDQO+1~, UDQO+3*, UDQO+10, ACTION+3*, DISP~, DISP+4*, DISP+6, DISP+7, DISP+8, DISP+9
, DISP+10, BLDUDQO+1~, BLDUDQO+2*, BLDUDQO+16*
ORIVMED BLDUDQO+1~, BLDUDQO+4*, BLDUDQO+5, BLDUDQO+10, BLDUDQO+14
ORNAME STUB~, STUB+2
ORNUIFN COPY+2~, COPY+9*, COPY+12, COPY+13, COPY+14, COPY+15, COPY+16, COPY+17
ORNUMBER ACTION~, ACTION+4, ACTION+9
ORNUNAME COPY+2~, COPY+8*, COPY+9
ORPMAX UDQO+1~, UDQO+3*, UDQO+10, DISP~, DISP+4, DISP+10
ORPOINT COPY+2~, COPY+23*
ORQDLG UDQO+1~, MOVE~, MOVE+2, MOVE+4, MOVE+7, COPY~, COPY+4, COPY+5, COPY+8*, COPY+22*
, COPY+24*, COPY+25, COPY+29
ORQIFN COPY+2~, COPY+4*, COPY+7, COPY+11, COPY+15, COPY+23, COPY+27, COPY+28
ORQONAM DISP+1~, DISP+6*, DISP+9
ORSTART UDQO+2~*, ACTION+3, DISP+10*
ORTEMP ACTION+2~, ACTION+9*, ACTION+10, COPY+10~, COPY+16*
ORTMPDLG COPY+2~
ORUDMDG BLDUDQO+1~, BLDUDQO+3*, BLDUDQO+5, BLDUDQO+10, BLDUDQO+14
U DISP+6, DISP+7, DISP+8, MOVE+2, MOVE+4, MOVE+6, MOVE+10, COPY+4, COPY+5, COPY+12
, COPY+13, COPY+14, COPY+16, BLDUDQO+10, BLDUDQO+11, BLDUDQO+12, BLDUDQO+13, BLDUDQO+14, BLDUDQO+16
X CHOOSE+2~, CHOOSE+7, CHOOSE+8, CHOOSE+11, CHOOSE+12, GETNAME+1~, NM+2*, NM+3!, NM+4, ACTASK+1~
, CONT+1~, DELOK+1~, MOVOK+1~
Y CHOOSE+2~, CHOOSE+12, GETNAME+1~, NM+1*, NM+5, ACTASK+1~, ACTASK+8*, ACTASK+9, DELETE+1~*, DELETE+6*
, DELETE+7, CONT+1~, DELOK+1~, DELOK+4, MOVOK+1~, MOVOK+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All