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

Package: Order Entry Results Reporting

Routine: ORCMEDT7


Information

ORCMEDT7 ;SLC/JM-QO,Edit Quick Orders By User ;2/1/06

Source Information

Source file <ORCMEDT7.m>

Entry Points

Name Comments DBIA/ICR reference
QCKBYUSR ; Edit quick orders by user
QCKUSRDG(ORLSTUSR) ; Get quick order dialog by user
GETUSER(ORUSER) ;
SHOWUSRS ;
QUIDX() ; Get quick order dialog info
QULIST(ORUSER) ; Build user info
VERIFYDA(ORFMDATA,ORIEN) ;
; Make sure FileMan pointers are still correct
; - may have changes via CPRS GUI or QCK0^ORCMEDT1(ORIEN)
CONFLICT(ORUSER,DIALOG) ; Determine if another user shares the personal quick order

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: QCKBYUSR+24
Function Call: WRITE
  • Prompt: !,!
  • Line Location: QCKUSRDG+16
Function Call: WRITE
  • Prompt: !,ORHEADER,!
  • Line Location: QCKUSRDG+17
Function Call: WRITE
  • Prompt: ?4,ORGROUP,!
  • Line Location: QCKUSRDG+25
Function Call: WRITE
  • Prompt: ?7,ORIDX,?12,ORDGNAME,!
  • Line Location: QCKUSRDG+26
Function Call: WRITE
  • Prompt: !,!,$P($G(^VA(200,ORUSER,0)),U,1)_" does not have any personal quick orders."
  • Line Location: SHOWUSRS+2
Function Call: WRITE
  • Prompt: !,!," Choose from:",!
  • Line Location: SHOWUSRS+7
Function Call: WRITE
  • Prompt: " ",ORUSER,!
  • Line Location: SHOWUSRS+11
Function Call: WRITE
  • Prompt: $C(13),$J("",20),$C(13)
  • Line Location: SHOWUSRS+17
Function Call: WRITE
  • Prompt: !
  • Line Location: QUIDX+11
Function Call: WRITE
  • Prompt: !,$C(7),!,!
  • Line Location: CONFLICT+14
Function Call: WRITE
  • Prompt: " *********************",!
  • Line Location: CONFLICT+15
Function Call: WRITE
  • Prompt: " ***** WARNING *****",!
  • Line Location: CONFLICT+16
Function Call: WRITE
  • Prompt: " *********************",!,!
  • Line Location: CONFLICT+17
Function Call: WRITE
  • Prompt: " Multiple users share this personal quick order.",!
  • Line Location: CONFLICT+18
Function Call: WRITE
  • Prompt: " Modifying this personal quick order will change",!
  • Line Location: CONFLICT+19
Function Call: WRITE
  • Prompt: " it for all of the following users:",!,!
  • Line Location: CONFLICT+20
Function Call: WRITE
  • Prompt: !
  • Line Location: CONFLICT+26
Function Call: WRITE
  • Prompt: $C(13),$J("",50),$C(13)
  • Line Location: CONFLICT+29
Function Call: WRITE
  • Prompt: " ",NAME,!
  • Line Location: CONFLICT+31
Function Call: WRITE
  • Prompt: !
  • Line Location: CONFLICT+34
Function Call: WRITE
  • Prompt: !
  • Line Location: CONFLICT+35

FileMan Files Accessed Via FileMan Db Call

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