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

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls