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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ORWOD

Package: Order Entry Results Reporting

Routine: ORWOD


Information

ORWOD ; SLC/GSS - Utility for Order Dialogs ; 7/24/09 9:55am

Source Information

Source file <ORWOD.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Order Entry Results Reporting 3 GETQDLG^ORCD  $$IVADFCHK^ORWDXM3  NTRY^ORWOD1  
MailMan 2 XMZ^XMA2  ENT1^XMD  
Kernel 1 $$HTE^XLFDT  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Kernel 1 ^DIC(19  
Order Entry Results Reporting 1 OR MEDICATION QO CHECKER  

Entry Points

Name Comments DBIA/ICR reference
INSTALL ;Post-install entry point for OR*3*243
ATWILL ;Entry point for ORDER MENU MANAGEMENT menu - ORCM MGMT opt MR
MAIN ;Main calls for QO Reports
ANCSTR ;Determine QO usage - called by XSET and MM
XSET ;Set QO record for display
NTRY ;Compiling report
GETXT(LOOKIN,SUFFIX) ;Return text occuring prior to suffix
; e.g. LOOKIN="INFUSE OVER 30 MINUTES",SUFFIX=" MINUTES" returns '30'
MM ;Looks for 'MM' in Order Dialog / original code logic by James Hartin
MAILSU ;Set-up MAILMAN variables and format ^TMP("OR",$J,"MAIL")
SEND(XMSUB,USER) ;Send MailMan message to USER
; Text of message is located in ^TMP("OR",$J,"MAIL",LineNumbers0-n)
; Subject is the string XMSUB.
RETRY ;Get message number.
CLEANUP ; Clean-up

External References

Name Field # of Occurrence
^DIR ATWILL+8
GETQDLG^ORCD NTRY+42
$$IVADFCHK^ORWDXM3 NTRY+82
NTRY^ORWOD1 MAILSU+18
$$HTE^XLFDT MAILSU+7
XMZ^XMA2 RETRY+1
ENT1^XMD RETRY+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This option generates two Quick Order (QO) reports to assist in the"
  • Line Location: ATWILL+1
Function Call: WRITE
  • Prompt: !,"evaluation of Med QOs that may need to be updated to accommodate the"
  • Line Location: ATWILL+2
Function Call: WRITE
  • Prompt: !,"three new fields exported in CPRS GUI v27: Route, IV Type and Schedule."
  • Line Location: ATWILL+3
Function Call: WRITE
  • Prompt: !,"One report lists Med QOs that are contained in another entry such as an"
  • Line Location: ATWILL+4
Function Call: WRITE
  • Prompt: !,"order menu, order set or reminder dialog. The other report lists Med QOs"
  • Line Location: ATWILL+5
Function Call: WRITE
  • Prompt: !,"that are stand alone and are not included in another entry. These reports"
  • Line Location: ATWILL+6
Function Call: WRITE
  • Prompt: !,"will be sent to you via Mailman.",!
  • Line Location: ATWILL+7
Function Call: WRITE
  • Prompt: " Enter Y or N",!
  • Line Location: ATWILL+9
Function Call: WRITE
  • Prompt: "...report not compiled"
  • Line Location: ATWILL+10
Function Call: WRITE
  • Prompt: !,"Compiling Med Quick Order check report..."
  • Line Location: ATWILL+11
Function Call: WRITE
  • Prompt: !,"...QO check report compiled and mailed to ",$P(^VA(200,DUZ,0),U)
  • Line Location: ATWILL+13
Function Call: WRITE
  • Prompt: !,"Error: No USER defined..message not sent!"
  • Line Location: RETRY+11
Routine Call
  • DIR
  • Line Location:
    • ATWILL+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ORD(100.98 - [#100.98] NTRY+24, NTRY+25
^ORD(101.41 - [#101.41] ANCSTR+2, NTRY+5, NTRY+19, NTRY+33, NTRY+35, NTRY+36, NTRY+38, NTRY+92, NTRY+93*, MM+3
, MM+4, MM+5
^PXRMD(801.41 - [#801.41] NTRY+10, NTRY+13, NTRY+15
^TMP("OR" ANCSTR+2, NTRY+2!, NTRY+14*, NTRY+16*, NTRY+25*, NTRY+37, NTRY+51*, NTRY+54*, NTRY+62*, NTRY+68*
, NTRY+78*, NTRY+83*, NTRY+94*, MM+9*, MAILSU+2!, MAILSU+20, MAILSU+22, MAILSU+23, MAILSU+26*, MAILSU+27*
, MAILSU+28*, RETRY+5, CLEANUP+1!
^VA(200 - [#200] ATWILL+13
^XMB(3.9 - [#3.9] RETRY+5*, RETRY+6, RETRY+7*

Label References

Name Line Occurrences
$$GETXT NTRY+60, NTRY+66
ANCSTR XSET+1, MM+8
ATWILL ATWILL+9
CLEANUP MAIN+7
MAILSU MAIN+5
MAIN INSTALL+1, ATWILL+12
MM NTRY+34
NTRY MAIN+2
RETRY RETRY+2
SEND MAIN+6
XSET NTRY+51, NTRY+54, NTRY+62, NTRY+68, NTRY+78, NTRY+83, NTRY+94

Naked Globals

Name Field # of Occurrence
^(0 MM+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AFIND NTRY+1~, NTRY+13*, NTRY+15*, NTRY+16
ANCSTR MAIN+1~, MAIN+4*, ANCSTR+1*, ANCSTR+2*, NTRY+51, NTRY+54, NTRY+62, NTRY+68, NTRY+78, NTRY+83
, NTRY+94, MM+1~, MM+9, MAILSU+5, MAILSU+6, MAILSU+20, MAILSU+22, MAILSU+23
DASH MAILSU+1~
DIEN NTRY+1~, NTRY+9*, NTRY+10*, NTRY+13, NTRY+14, NTRY+15, NTRY+16
>> DIR("A" ATWILL+8*
>> DIR(0 ATWILL+8*
DISPNAME MAILSU+1~, MAILSU+24*, MAILSU+25
DOSE NTRY+1~, NTRY+5*, MM+7
DSPLGPTR NTRY+1~, NTRY+3*, NTRY+36*, NTRY+37
DSPLGRP NTRY+1~, NTRY+3*, NTRY+24*, NTRY+25
DT RETRY+7
DUZ ATWILL+13, MAIN+6, RETRY+10
GETXT NTRY+1~, NTRY+60*, NTRY+61, NTRY+66*, NTRY+67
HDRLINE MAILSU+1~
HIT NTRY+1~, NTRY+42*, NTRY+51*, NTRY+54*, NTRY+62*, NTRY+68*, NTRY+78*, NTRY+83*, NTRY+86
I MAIN+1~, NTRY+46*, GETXT+2~, GETXT+3*, GETXT+4*
ISUFFIX GETXT+2~, GETXT+4*, GETXT+5
LEGEND MAILSU+1~
LEGENDS MAILSU+1~, MAILSU+21*, MAILSU+23*, MAILSU+25
LOOKIN GETXT~, GETXT+4, GETXT+5
MGIEN SEND+3~
MGROUP SEND+3~
MMREC MM+1~, MM+5*, MM+9
NEXT MM+1~, MM+2*, MM+3*, MM+4, MAILSU+1~
NL SEND+3~, RETRY+6*, RETRY+7
NODE3 NTRY+1~, MM+1~
NUM MAILSU+1~
NXTLINE MAILSU+1~, MAILSU+24*, MAILSU+26, MAILSU+27*, MAILSU+28*
ODALIMIT XSET+2, NTRY+1~, NTRY+71, NTRY+72, NTRY+73, NTRY+74, NTRY+75, NTRY+76, NTRY+77
ODARATE XSET+2, NTRY+1~, NTRY+58, NTRY+59, NTRY+60, NTRY+65, NTRY+66
ODAROUTE XSET+2, NTRY+1~, NTRY+51
ODASCHD XSET+2, NTRY+1~, NTRY+54
ODATYPE XSET+2, NTRY+1~, NTRY+51, NTRY+54, NTRY+57, NTRY+65, NTRY+82
ODIEN NTRY+1~, NTRY+3*, NTRY+19*, NTRY+25
ODIENXT ANCSTR+2, XSET+2, NTRY+1~, NTRY+3*, NTRY+33*, NTRY+35, NTRY+36, NTRY+38, NTRY+42, NTRY+92
, NTRY+93, MM+3, MM+4, MM+5, MM+9, MAILSU+1~
ODQONAME MAILSU+1~, MAILSU+19*, MAILSU+20*, MAILSU+22, MAILSU+23
>> ORCDD ATWILL+9*, ATWILL+10
ORDIALOG NTRY+1~, NTRY+40!, NTRY+82
ORDIALOG( NTRY+46
ORDIALOG("B" NTRY+46
ORLEGEND MAILSU+1~, MAILSU+21*, MAILSU+22*, MAILSU+23
OROUT MAILSU+1~, MAILSU+25*, MAILSU+26
PROMPT MM+1~, MM+4*, MM+7
PSJNOPC MAIN+1~
PTEXT NTRY+1~, NTRY+13*, NTRY+14
PTYPE NTRY+1~, NTRY+9*, NTRY+10
QONAM MAILSU+1~, MAILSU+24*, MAILSU+25
QORECORD MAILSU+1~, MAILSU+21*, MAILSU+23*, MAILSU+24, MAILSU+25
QOTOT MAILSU+1~, MAILSU+19*, MAILSU+26*, MAILSU+28
RC XSET+2*, NTRY+1~, NTRY+51, NTRY+54, NTRY+62, NTRY+68, NTRY+78, NTRY+83, NTRY+94
REC XSET+2, NTRY+1~, NTRY+38*, NTRY+51, NTRY+54, NTRY+62, NTRY+68, NTRY+78, NTRY+83, NTRY+94
REF SEND+3~
RSTRG GETXT+2~, GETXT+5*, GETXT+6
RTXT GETXT+2~, GETXT+3*, GETXT+4, GETXT+6*, GETXT+7
SPC MAILSU+1~, MAILSU+19*, MAILSU+24, MAILSU+25
STRG GETXT+2~
SUFFIX GETXT~, GETXT+4
TYPE NTRY+1~, NTRY+3*, NTRY+35*
U ATWILL+13, XSET+2, NTRY+13, NTRY+25, NTRY+35, NTRY+36, NTRY+46, NTRY+51, NTRY+54, NTRY+62
, NTRY+68, NTRY+78, NTRY+83, NTRY+92, NTRY+93, NTRY+94, MM+4, MM+9, MAILSU+24, MAILSU+25
, RETRY+7
USER SEND~, RETRY+10
VALUE MM+1~, MM+2*, MM+4*, MM+7, MM+9
>> X ATWILL+8, ATWILL+9
XMDUN MAIN+1~
XMDUZ SEND+3~, SEND+8*
XMSUB MAIN+1~, MAIN+6, MAILSU+5*, MAILSU+6*, MAILSU+7*, SEND~, SEND+6*
XMY SEND+3~
XMY( RETRY+10*
XMZ SEND+3~, RETRY+2, RETRY+5, RETRY+6, RETRY+7
XSET NTRY+1~, NTRY+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All