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 |  Local Variables  | All
Print Page as PDF
Routine: ORSPUTIL

Package: Order Entry Results Reporting

Routine: ORSPUTIL


Information

ORSPUTIL ;SLC/JMH - SUPPLY CONVERSION UTILITY ;08/29/17 08:48

Source Information

Source file <ORSPUTIL.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 (,FILE)^DIE  ^DIR  
Order Entry Results Reporting 1 $$ISOISPLY^ORUTL3  

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
Order Entry Results Reporting 3 OR SUPPLY NF CONVERSION  OR SUPPLY OP CONVERSION  OR SUPPLY QO CONVERSION  

Entry Points

Name Comments DBIA/ICR reference
SUPPLYNF ;if OI is marked as NON-FORMULARY and SUPPLY then set QO-ONLY to yes for SUPPLY
COPYO2S ;if OI is marked QO-ONLY for OUTPATIENT Med then set QO-ONLY to yes for SUPPLY
SUPPLYQO ; Convert Outpatient Med QO to Supply dialog
GET(CODE,ORIEN) ;get the current status of QO-ONLY for a specific package type(CODE)
SET(CODE,ORIEN) ;set the status of QO-ONLY to YES for a specific package type(CODE)
SURE(ORMSG) ; -- sure you want to delete?
ERROR(ORERROR) ;
ERRORFM(ORTEXT,ORERROR) ; Output FileMan Error Messages

External References

Name Field # of Occurrence
^DIE SET+5
FILE^DIE SUPPLYQO+37
^DIR SURE+3
$$ISOISPLY^ORUTL3 SUPPLYQO+34

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SUPPLYNF+1
Function Call: WRITE
  • Prompt: "This utility will convert all items from the ORDERABLE ITEMS file that are "
  • Line Location: SUPPLYNF+2
Function Call: WRITE
  • Prompt: !,"marked for both Supplies and Non-Formulary, to be QO-ONLY to YES for"
  • Line Location: SUPPLYNF+3
Function Call: WRITE
  • Prompt: !,"Supplies."
  • Line Location: SUPPLYNF+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: COPYO2S+1
Function Call: WRITE
  • Prompt: "This utility will convert all items from the ORDERABLE ITEMS file that are "
  • Line Location: COPYO2S+2
Function Call: WRITE
  • Prompt: !,"marked for Supplies and also set as QO-ONLY yes for Outpatient Meds,"
  • Line Location: COPYO2S+3
Function Call: WRITE
  • Prompt: !,"to be QO-ONLY to YES for Supplies."
  • Line Location: COPYO2S+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SUPPLYQO+4
Function Call: WRITE
  • Prompt: "This utility will convert all Outpatient Medication quick orders that were"
  • Line Location: SUPPLYQO+5
Function Call: WRITE
  • Prompt: !,"built for orderable items that are considered supply items, to use the"
  • Line Location: SUPPLYQO+6
Function Call: WRITE
  • Prompt: !,"PSO SUPPLY dialog."
  • Line Location: SUPPLYQO+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: SUPPLYQO+9
Function Call: WRITE
  • Prompt: !,"QO IEN: ",ORIEN,?20,"QO NAME: ",$P($G(^ORD(101.41,ORIEN,0)),U,1)
  • Line Location: SUPPLYQO+42
Function Call: WRITE
  • Prompt: !!,"There were some quick orders that could not be converted."
  • Line Location: SUPPLYQO+46
Function Call: WRITE
  • Prompt: !,"Please see output above for more information."
  • Line Location: SUPPLYQO+47
Function Call: WRITE
  • Prompt: !!,"Please log a CA SDM ticket for assistance.",!
  • Line Location: SUPPLYQO+48
Function Call: WRITE
  • Prompt: !!,"The quick order conversion completed successfully."
  • Line Location: SUPPLYQO+50
Function Call: WRITE
  • Prompt: !,ORCOUNT_" quick order"_$S(ORCOUNT=1:" was",1:"s were")_" converted.",!!
  • Line Location: SUPPLYQO+53
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: SURE+3
Function Call: WRITE
  • Prompt: !!,ORERROR
  • Line Location: ERROR+1
Function Call: WRITE
  • Prompt: !,"Please log a CA SDM ticket for assistance.",!
  • Line Location: ERROR+2
Function Call: WRITE
  • Prompt: !!,"ERROR: "_ORTEXT_"."
  • Line Location: ERRORFM+2
Function Call: WRITE
  • Prompt: !,"VA FileMan Error #"_$G(ORERROR("DIERR",1))_":"
  • Line Location: ERRORFM+3
Function Call: WRITE
  • Prompt: !,$G(ORERROR("DIERR",1,"TEXT",ORX))
  • Line Location: ERRORFM+5
Routine Call
  • DIE
  • Line Location:
    • SET+5
Routine Call
  • DIE
  • Line Location:
    • SUPPLYQO+37
Routine Call
  • DIR
  • Line Location:
    • SURE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ORD(100.98 - [#100.98] SUPPLYQO+11, SUPPLYQO+13
^ORD(101.41 - [#101.41] SUPPLYQO+15, SUPPLYQO+20, SUPPLYQO+22, SUPPLYQO+24, SUPPLYQO+26, SUPPLYQO+29, SUPPLYQO+31, SUPPLYQO+39, SUPPLYQO+42
^ORD(101.43 - [#101.43] SUPPLYNF+7, SUPPLYNF+8, SUPPLYNF+9, SUPPLYNF+10, SUPPLYNF+11, COPYO2S+7, COPYO2S+8, COPYO2S+9, COPYO2S+11, SUPPLYQO+33
, GET+2, GET+4, SET+2

Label References

Name Line Occurrences
$$GET COPYO2S+10
$$SURE SUPPLYNF+5, COPYO2S+5, SUPPLYQO+8
ERROR SUPPLYQO+12, SUPPLYQO+14, SUPPLYQO+16
ERRORFM SUPPLYQO+39
SET SUPPLYNF+12, COPYO2S+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CODE GET~, GET+2, SET~, SET+2
DA GET+1~, GET+2*, GET+3, GET+4, SET+4~, SET+5*
DA(1 SET+5*
DIE SET+4~, SET+5*
DIR SURE+1~
DIR("A" SURE+2*
DIR("B" SURE+3*
DIR(0 SURE+2*
DR SET+4~, SET+5*
>> DTOUT SURE+4
I SUPPLYNF+6~, SUPPLYNF+7*, SUPPLYNF+8, SUPPLYNF+9, SUPPLYNF+10, SUPPLYNF+11, SUPPLYNF+12, COPYO2S+6~, COPYO2S+7*, COPYO2S+8
, COPYO2S+9, COPYO2S+10, COPYO2S+11, COPYO2S+12
IOF SUPPLYNF+1, COPYO2S+1, SUPPLYQO+4
ORCOUNT SUPPLYQO+2~, SUPPLYQO+18*, SUPPLYQO+43*, SUPPLYQO+52, SUPPLYQO+53
ORDA SET+1~, SET+2*, SET+3, SET+5
ORDGPSO SUPPLYQO+2~, SUPPLYQO+11*, SUPPLYQO+12, SUPPLYQO+26
ORDGSUP SUPPLYQO+2~, SUPPLYQO+13*, SUPPLYQO+14, SUPPLYQO+36
ORDLGOI SUPPLYQO+2~, SUPPLYQO+15*, SUPPLYQO+16, SUPPLYQO+29
ORERR SUPPLYQO+2~, SUPPLYQO+35!, SUPPLYQO+38, SUPPLYQO+39
ORERRFLAG SUPPLYQO+2~, SUPPLYQO+40*, SUPPLYQO+45, SUPPLYQO+55
ORERROR ERROR~, ERROR+1, ERRORFM~
ORERROR("DIERR" ERRORFM+3, ERRORFM+4, ERRORFM+5
ORFDA SUPPLYQO+2~, SUPPLYQO+35!
ORFDA( SUPPLYQO+36*
ORIEN SUPPLYQO+2~, SUPPLYQO+19*, SUPPLYQO+20*, SUPPLYQO+22, SUPPLYQO+24, SUPPLYQO+26, SUPPLYQO+29, SUPPLYQO+31, SUPPLYQO+36, SUPPLYQO+39
, SUPPLYQO+42, GET~, GET+2, GET+4, SET~, SET+2, SET+5
ORMSG SURE~, SURE+2
OROIIEN SUPPLYQO+2~, SUPPLYQO+31*, SUPPLYQO+32, SUPPLYQO+33, SUPPLYQO+34
ORTEXT ERRORFM~, ERRORFM+2
ORX SUPPLYQO+2~, SUPPLYQO+29*, SUPPLYQO+30, SUPPLYQO+31, ERRORFM+1~, ERRORFM+4*, ERRORFM+5
ORY GET+1~*, GET+4*, GET+5
U SUPPLYNF+9, SUPPLYNF+10, SUPPLYNF+11, COPYO2S+9, COPYO2S+11, SUPPLYQO+22, SUPPLYQO+24, SUPPLYQO+26, SUPPLYQO+31, SUPPLYQO+33
, SUPPLYQO+39, SUPPLYQO+42, GET+4
X SURE+1~
Y SURE+1~, SURE+4*, SURE+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All