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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ORQOAUIB

Package: Order Entry Results Reporting

Routine: ORQOAUIB


Information

ORQOAUIB ;EPIP/RTW - LIST ANTI-MICROBIAL ORDER, ANTIMICROBIAL QUICK ORDER & NON-QUICK ORDER ; 12/28/17 2:20pm

Source Information

Source file <ORQOAUIB.m>

Entry Points

Name Comments DBIA/ICR reference
START
DQ ; QUEUED ENTRY POINT
DIVMATCH(ORRD) ; DETERMINE IF ORDER IS FOR REQUESTED DIVISION
ANTIMIC(ORRD) ; DETERMINE IF ORDER HAS ANY ANTIMICROBIAL ITEMS
ORQOAM(ORKK0) ; DETERMINE IF ORDER IS QUICK ORDER OR NOT
PRINT(ORZ) ; PRINT RESULTS
; ORWHO = 'WHO ENTERED' field
; ORCNUM = Pharmacy Confirmation No (Record # in file 100.95)
; OR2EDAT = 'WHEN ENTERED' field
; OR2PAT = Patient Name and last 4 of SSN
; OR2PRB = 'CURRENT AGENT/PROVIDER' field
; OR2LOC = 'PATIENT LOCATION' field
HFS() ; RETURN '1' IF OUTPUTTING TO A FILE, '0' FOR DEVICE
ITEM
QOAP ;This is the Quick Order Audit Print Option Entry point, The report is designed to show whether the entry in file 100.95 was a poke or an order

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No Groups Created in the QUICK ORDER DIVISION GROUPS File"
  • Line Location: ORQOAUIB+13
Function Call: WRITE
  • Prompt: !
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !,"Past date ranges can be entered covering 31 days at a time.",!
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !,"** ERROR ** - Ending Date needs to follow Starting Date",!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,"** ERROR ** - Only 31 days at a time is permitted",!
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !,"Task Queued: ",ZTSK
  • Line Location: START+11
Function Call: WRITE
  • Prompt: "Type"_U_"Order #"_U_"Patient"_U_"Who Entered"_U_"Confirm #"_U_"When Entered"_U_"Provider"_U_"Location"_U_"Orderable Item"
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: "Type"_U_"Order #"_U_"Patient"_U_"Who Entered"_U_"Confirm #"_U_"When Entered"_U_"Provider"_U_"Location"_U_"Orderable Item"
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !!,"Anti-Microbial Orders",?65
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !,"Division Group: ",$P(^OR(100.953,ORDIV,0),"^",1)
  • Condition for execution: ORDIV]""
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !,ORZ," Orders"
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: ?30,"Confirm #"
  • Condition for execution: ORZ="QUICK"
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: ?42,"Who Entered",?68,"When Entered",!?12,"Location",?42,"Provider",!?42,"Orderable Item",!,OR2DOTS
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !,"Type"_U_"Order #"_U_"Patient"_U_"Who Entered"_U_"Confirm #"_U_"When Entered"_U_"Provider"_U_"Location"_U_"Orderable Item"
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,"Type"_U_"Order #"_U_"Patient"_U_"Who Entered"_U_"Confirm #"_U_"When Entered"_U_"Provider"_U_"Location"_U_"Orderable Item"
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !!,"Anti-Microbial Orders",?65
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,"Division Group: ",$P(^OR(100.953,ORDIV,0),"^",1)
  • Condition for execution: ORDIV]""
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,ORZ," Orders"
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: ?30,"Confirm #"
  • Condition for execution: ORZ="NON-QUICK"
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: ?42,"Who Entered",?68,"When Entered",!?12,"Location",?42,"Provider",!?42,"Orderable Item",!,OR2DOTS
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !,ORZ_U_ORI_U_OR2PAT_U_ORWHO_U_ORCNUM_U_OR2EDAT_U_OR2PROV_U_OR2LOC_U_OR2OITEM
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: !,ORI,?12,OR2PAT,?32,ORCNUM,?42,ORWHO,?71,OR2EDAT,!?12,OR2LOC,?42,OR2PROV,!?42,OR2OITEM,!!
  • Line Location: PRINT+33

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100.953 - [#100.953] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call