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 |  Marked Items |  All
Print Page as PDF
Routine: ORCK101

Package: Order Entry Results Reporting

Routine: ORCK101


Information

ORCK101 ;SLC/JFR-OR 49 CHECK UTILITIES ;7/27/98

Source Information

Source file <ORCK101.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 C^%DTC  ^DIC  DT^DICRW  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Order Entry Results Reporting 1 $$FINDXUTL^ORCMEDT1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Order Entry Results Reporting 3 ORCM ESTIMATE  ORCM FIND PROTOCOL  ORCM REVIEW PROTOCOLS  

Entry Points

Name Comments DBIA/ICR reference
XACTION ;check extended actions for column width
EST ; estimate global growth in ^OR and ^PSRX
DLG ; FIND DUPS IN FILE 101.41
PKGFL ;check file 9.4 for duplicates
NMSP ;loop to find protocols with improper namespace
TOP ; from patch options
PROT ;LOOP 101 AND LOOK AT 10 FIELD FOR DUPS
LIST ;list to check
QGROW ;task to do estimate
DEVICE ;
OK(PROT) ;only check ordering protocols
QUE ; send to TM
CLEAN
PRINT ;the results are in
PSOBKFL() ;estimate # of RX's to be backfilled into ^OR
; Thks to Ron R.
PAGE(FEED) ; FEED ONE
FIND ; FIND ITEMS IN 101 AND THEIR POSITION

External References

Name Field # of Occurrence
C^%DTC PSOBKFL+3
^%ZIS TOP+4, EST+3, DEVICE+1
HOME^%ZIS TOP+12, EST+10
^%ZISC PRINT+10, DEVICE+2
^%ZTLOAD TOP+11, EST+8, QUE+5
^DIC NMSP+6, FIND+3
DT^DICRW NMSP+2, FIND+2
^DIR PAGE+2
$$FINDXUTL^ORCMEDT1 FIND+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Select the printer to which the reports will be queued:",!
  • Line Location: TOP+2
Function Call: WRITE
  • Prompt: !,"That device is not available or none selected"
  • Line Location: TOP+5
Function Call: WRITE
  • Prompt: !!,"The reports must be queued!",!
  • Line Location: TOP+6
Function Call: WRITE
  • Prompt: !!,"Reports will be sent to ",ION
  • Line Location: TOP+7
Function Call: WRITE
  • Prompt: !,^TMP(TMPGBL,$J,CTR)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !!,$P($G(^ORD(101,+Y,0)),"^")
  • Line Location: FIND+5
Function Call: WRITE
  • Prompt: !,?3,"Not contained on any menus!"
  • Line Location: FIND+6
Function Call: WRITE
  • Prompt: !,?5,"is part of ",$P($G(^ORD(101,MEN,0)),"^")
  • Line Location: FIND+9
Function Call: WRITE
  • Prompt: ?50,"Column: ",$P(ITPOS,".",2),?65,"Row: ",$P(ITPOS,".")
  • Line Location: FIND+11
Function Call: WRITE
  • Prompt: !,"Select the printer to which the estimate will be sent:",!
  • Line Location: EST+1
Function Call: WRITE
  • Prompt: !,"That device is not available or none selected"
  • Line Location: EST+4
Function Call: WRITE
  • Prompt: !!,"The estimate may take some time. It must be queued!",!
  • Line Location: EST+6
Function Call: WRITE
  • Prompt: !!,$S($G(ZTSK):("Task # "_ZTSK),1:"Unable to queue,try later!")
  • Line Location: EST+9
Function Call: WRITE
  • Prompt: !,"Estimate of global growth from CPRS Installation",!
  • Line Location: QGROW+7
Function Call: WRITE
  • Prompt: "-"
  • Line Location: QGROW+8
Function Call: WRITE
  • Prompt: !!,"Based on the number of entries currently in the ^PSRX and ^OR globals,"
  • Line Location: QGROW+9
Function Call: WRITE
  • Prompt: !,"the following are estimates of post-installion requirements."
  • Line Location: QGROW+10
Function Call: WRITE
  • Prompt: !,"The globals will continue to grow as implementation of CPRS proceeds"
  • Line Location: QGROW+11
Function Call: WRITE
  • Prompt: !!,"The ^PSRX global will require approximately ",RXBLK," blocks."
  • Line Location: QGROW+12
Function Call: WRITE
  • Prompt: !!,"Approximately ",BKFILL," prescriptions will be backfilled into the ORDER (#100) file."
  • Line Location: QGROW+13
Function Call: WRITE
  • Prompt: !!,"The ^OR global will require approximately ",ORBLK," blocks."
  • Line Location: QGROW+14
Function Call: WRITE
  • Prompt: "OR*2.5*49 - ",CHECK
  • Line Location: PAGE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PAGE+5
Routine Call
  • %ZIS
  • Line Location:
    • TOP+12
    • EST+10
Routine Call
  • DIC
  • Line Location:
    • NMSP+6
    • FIND+3
Routine Call
  • DIR
  • Line Location:
    • PAGE+2
Routine Call
  • %ZIS
  • Line Location:
    • TOP+4
    • EST+3
    • DEVICE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("OS" QGROW+4, QGROW+5
^DIC(9.4 - [#9.4] PKGFL+6, PKGFL+10, PKGFL+14
^OR(100 - [#100] QGROW+3
^ORD(101 - [#101] XACTION+5, XACTION+6, XACTION+7, PROT+5, PROT+7, PROT+9, PROT+11, NMSP+15, NMSP+16, NMSP+17
, NMSP+19, NMSP+22, OK+1, OK+2, OK+3, OK+4, FIND+5, FIND+6, FIND+8, FIND+9
^ORD(101.41 - [#101.41] DLG+4, DLG+6, DLG+8, DLG+10
^PS(55 - [#55] PSOBKFL+5, PSOBKFL+6
^PSRX - [#52] PSOBKFL+6, PSOBKFL+7
^PSRX(0 QGROW+3
^TMP( XACTION+7*, PKGFL+8*, PKGFL+12*, PKGFL+16*, PROT+11*, DLG+10*, NMSP+22*, PRINT+3*, PRINT+6, PRINT+8
, CLEAN+1!
^TMP("ORPROT" NMSP+9*, NMSP+10*, NMSP+11*, NMSP+12*

Label References

Name Line Occurrences
$$OK NMSP+18
$$PSOBKFL QGROW+2
CLEAN DEVICE+1, DEVICE+2
DEVICE XACTION+8, PKGFL+18, PROT+14, DLG+13, NMSP+25
EST EST+5
PAGE PRINT+5, PRINT+7
PRINT XACTION+9, PKGFL+19, PROT+15, DLG+14, NMSP+26, DEVICE+3
QUE DEVICE+2
TOP TOP+6

Naked Globals

Name Field # of Occurrence
^( XACTION+5, PROT+5, DLG+4
^(0 PSOBKFL+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS TOP+1~, TOP+3*, EST+2*, EST+11!, DEVICE+1*
BADPK NMSP+3~, NMSP+4*, NMSP+5, NMSP+6*, NMSP+8, NMSP+15
BKFILL QGROW+2*, QGROW+4, QGROW+13, QGROW+15!
CHECK XACTION+2~, XACTION+3*, PKGFL+2~, PKGFL+3*, PROT+4*, DLG+3*, NMSP+3~, NMSP+14*, PRINT+3, CLEAN+2!
, PAGE+4
CTR XACTION+2~, XACTION+4*, XACTION+6*, XACTION+7, PKGFL+2~, PKGFL+3*, PKGFL+7*, PKGFL+8, PKGFL+11*, PKGFL+12
, PKGFL+15*, PKGFL+16, PROT+2~, PROT+8*, PROT+10*, DLG+1~, DLG+7*, DLG+9*, NMSP+3~, NMSP+13*
, NMSP+21*, NMSP+22, PRINT+1~, PRINT+6*, PRINT+8, PRINT+10!
CTR1 PROT+2~, PROT+3*, PROT+10*, PROT+11, DLG+1~, DLG+2*, DLG+9*, DLG+10
DASH QGROW+8*, QGROW+15!, PAGE+1~, PAGE+5*
DIC NMSP+3~, NMSP+4*, FIND+1~, FIND+3!*
DIC(0 NMSP+4*, FIND+3*
DIR PAGE+1~
DIR(0 PAGE+2*
DONE PRINT+1~, PRINT+6, PRINT+7, PRINT+10!, PAGE+2*
DT PSOBKFL+3
>> DTOUT FIND+4
>> DUOUT FIND+4
FEED PAGE~, PAGE+2, PAGE+3
GMRC NMSP+3~, NMSP+7*, NMSP+18, NMSP+19, NMSP+20
I PKGFL+2~, PKGFL+4*
IO PRINT+2, QGROW+6, QUE+4
IO("Q" TOP+6, EST+5, DEVICE+2
IOF PRINT+4, PAGE+3
ION TOP+7, TOP+10, EST+8
IOP TOP+1~, TOP+3*, EST+2*
IOSL PRINT+7
IOST PRINT+4, PAGE+2
ITEM FIND+1~, FIND+7*, FIND+8, FIND+10
ITPOS FIND+1~, FIND+10*, FIND+11
MEN FIND+1~, FIND+8*, FIND+9, FIND+10
N PKGFL+2~, PKGFL+6*, PKGFL+8
NM PKGFL+2~, PKGFL+5*, PKGFL+6, PKGFL+8, PKGFL+14, PKGFL+16
ORBLK QGROW+4*, QGROW+14, QGROW+15!
ORENT QGROW+3*, QGROW+4, QGROW+15!
ORIEN XACTION+2~, XACTION+4*, XACTION+5*, XACTION+6, XACTION+7
ORTOP TOP+1~, TOP+7*, XACTION+8, PKGFL+18, PROT+14, DLG+13, NMSP+25, PRINT+10!
ORZ10IEN PROT+2~, PROT+6*, PROT+7*, PROT+9, DLG+1~, DLG+5*, DLG+6*, DLG+8
ORZIEN PROT+2~, PROT+3*, PROT+5*, PROT+7, PROT+9, PROT+11, DLG+1~, DLG+2*, DLG+4*, DLG+6
, DLG+8, DLG+10, NMSP+3~, NMSP+13*, NMSP+15*, NMSP+16, NMSP+17, NMSP+18, NMSP+19, NMSP+22
ORZNM NMSP+3~, NMSP+19*, NMSP+20
ORZPKG NMSP+3~, NMSP+17*, NMSP+18, NMSP+19, NMSP+20
P PKGFL+2~, PKGFL+10*, PKGFL+12
PDFN PSOBKFL+2~, PSOBKFL+5*, PSOBKFL+6
PKG PKGFL+2~, PKGFL+4*, PKGFL+5, NMSP+3~
PKG( NMSP+7*, NMSP+17, NMSP+19, NMSP+20
POP TOP+5, EST+4, EST+11!, DEVICE+1
PREF PKGFL+2~, PKGFL+5*, PKGFL+10, PKGFL+12, PKGFL+14
PROT OK~, OK+1, OK+2, OK+3, OK+4
PSD PSOBKFL+2~, PSOBKFL+6*
PSIN PSOBKFL+2~, PSOBKFL+6*, PSOBKFL+7
PSODATE PSOBKFL+2~, PSOBKFL+3*, PSOBKFL+6
PSOTOT PSOBKFL+2~, PSOBKFL+4*, PSOBKFL+8*, PSOBKFL+9
PTR PROT+2~, PROT+8*, PROT+9*, DLG+1~, DLG+7*, DLG+8*
RXBLK QGROW+5*, QGROW+12, QGROW+15!
RXENT QGROW+3*, QGROW+5, QGROW+15!
TAG TOP+1~, TOP+8*, TOP+9
TMPGBL XACTION+2~, XACTION+3*, XACTION+7, PKGFL+2~, PKGFL+3*, PKGFL+8, PKGFL+12, PKGFL+16, PROT+2~, PROT+3*
, PROT+11, DLG+1~, DLG+2*, DLG+10, NMSP+3~, NMSP+14*, NMSP+22, PRINT+3, PRINT+6, PRINT+8
, CLEAN+1, CLEAN+2!
U XACTION+5, XACTION+7, PROT+11, DLG+10, NMSP+19, NMSP+22, OK+1, OK+2, OK+3, OK+4
X NMSP+3~, NMSP+5*, NMSP+7, FIND+1~, PSOBKFL+2~, PSOBKFL+3
X1 PSOBKFL+2~, PSOBKFL+3*
X2 PSOBKFL+2~, PSOBKFL+3*
Y NMSP+3~, NMSP+6, NMSP+7, FIND+1~, FIND+5, FIND+6, FIND+7, PAGE+2
ZTDESC TOP+9*, TOP+13!, EST+7*, EST+11!, QUE+2*, QUE+6!
ZTDTH TOP+10*, TOP+13!, EST+8*, QUE+2*, QUE+6!
ZTIO TOP+10*, TOP+13!, EST+8*, EST+11!, QUE+4*, QUE+6!
>> ZTQUEUED XACTION+1, PKGFL+1, PROT+1, NMSP+1
>> ZTREQ XACTION+1*, PKGFL+1*, PROT+1*, NMSP+1*, QGROW+1*
ZTRTN TOP+9*, TOP+13!, EST+7*, EST+11!, QUE+3*, QUE+6!
ZTSAVE TOP+13!, QUE+6!
ZTSAVE("CHECK" QUE+1*
ZTSAVE("ORTOP" TOP+10*
ZTSAVE("TMPGBL" QUE+1*
ZTSAVE("^TMP(TMPGBL,$J," QUE+1*
ZTSK TOP+13!, EST+9, EST+11!, QUE+6!

Marked Items

Name Field # of Occurrence
$T(LIST+I PKGFL+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All