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

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

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