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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMDIFF,$$FMTE)^XLFDT  
VA FileMan 4 ^%DT  ^DIC  EN1^DIP  ^DIR  

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

Package Total Caller Graph
Order Entry Results Reporting 2 OR QUICK ORDER AUDIT MONTHLY  OR QUICK ORDER AUDIT PRINT  

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

External References

Name Field # of Occurrence
^%DT START+1, START+2
^%ZIS START+9, START+10
^%ZISC DQ+10
^%ZTLOAD START+11
^DIC START+4
EN1^DIP QOAP+2
^DIR START+7, START+8
$$FMDIFF^XLFDT START+6
$$FMTE^XLFDT PRINT+27

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
Routine Call
  • DIC
  • Line Location:
    • START+4
Routine Call
  • DIR
  • Line Location:
    • START+7
    • START+8
Routine Call
  • %ZIS
  • Line Location:
    • START+9
    • START+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100.953 - [#100.953] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] HFS+1
^DPT - [#2] PRINT+25
^OR(100 - [#100] DQ+1, DIVMATCH+3, ANTIMIC+2, ORQOAM+5, ORQOAM+6, PRINT+20, ITEM+3
^OR(100.953 - [#100.953] ORQOAUIB+13, START+4, DIVMATCH+5, PRINT+11, PRINT+16
^ORD(101.43 - [#101.43] ANTIMIC+3, ANTIMIC+4, ITEM+4
^PS(50.7 - [#50.7] ANTIMIC+5, ITEM+5
^PSDRUG - [#50] ANTIMIC+7, ITEM+7
^SC - [#44] DIVMATCH+3
^TMP($J ORQOAUIB+12!, DQ+5*, DQ+6*, DQ+9!, PRINT+19, PRINT+22
^VA(200 - [#200] PRINT+21, PRINT+28

Label References

Name Line Occurrences
$$ANTIMIC DQ+3
$$DIVMATCH DQ+2
$$HFS PRINT+8
$$ORQOAM DQ+4
ITEM PRINT+30
PRINT DQ+7, DQ+8
START START+3, START+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT ORQOAUIB+11~, START+1*, START+2*
%DT("A" START+1*, START+2*
%IS ORQOAUIB+11~, START+9*, START+10*
>> %ZIS("A" START+10*
BY QOAP+1~, QOAP+2*
DFN PRINT+7~, PRINT+24*, PRINT+25
DIC ORQOAUIB+11~, START+4*, QOAP+2*
DIC("A" START+4*
DIC(0 START+4*
DIR START+7!, START+8!
DIR("A" START+7*, START+8*
DIR("B" START+7*, START+8*
DIR(0 START+7*, START+8*
FLDS QOAP+1~, QOAP+2*
IO START+12
IO("Q" START+11
ION START+11
>> IOS HFS+1
L QOAP+1~, QOAP+2*
OR2 ORQOAUIB+11~
OR2DOTS PRINT+7~, PRINT+11*, PRINT+12, PRINT+16*, PRINT+17
OR2EDAT PRINT+7~, PRINT+23*, PRINT+27*, PRINT+32, PRINT+33
OR2HFS PRINT+7~, PRINT+8*, PRINT+9, PRINT+11, PRINT+14, PRINT+16, PRINT+32
OR2LOC PRINT+7~, PRINT+29*, PRINT+31*, PRINT+32, PRINT+33
OR2OITEM PRINT+7~, PRINT+32, PRINT+33, ITEM+2*, ITEM+7*
OR2PAT PRINT+7~, PRINT+24*, PRINT+25*, PRINT+26*, PRINT+32, PRINT+33
OR2PROV PRINT+7~, PRINT+28*, PRINT+32, PRINT+33
OR2SSN PRINT+7~, PRINT+25*
ORAM DQ+9!, ANTIMIC+2*, ANTIMIC+7*, ANTIMIC+8
ORCDSS ORQOAUIB+11~
ORCNUM PRINT+7~, PRINT+22*, PRINT+32, PRINT+33
>> ORDELIMT START+7*, START+9, START+10, PRINT+10, PRINT+11, PRINT+15, PRINT+16, PRINT+32
ORDIV ORQOAUIB+11~, START+4*, START+5*, DIVMATCH+2, DIVMATCH+5, PRINT+11, PRINT+16
ORDRUGFN DQ+9!, ANTIMIC+5*, ANTIMIC+6, ANTIMIC+7, ITEM+1, ITEM+5*, ITEM+6, ITEM+7
OREDATE ORQOAUIB+11~, START+2*, START+3, START+6, DQ+1, PRINT+23
ORI ORQOAUIB+11~, DQ+1*, ANTIMIC+1~, ANTIMIC+2*, ANTIMIC+3, ANTIMIC+4, PRINT+7~, PRINT+19*, PRINT+20, PRINT+22
, PRINT+32, PRINT+33, ITEM+3
ORI1 ORQOAUIB+11~, ITEM+3*, ITEM+4
ORJ ORQOAUIB+11~, DQ+1*, DQ+2, DQ+3, DQ+4, DQ+5, DQ+6, ANTIMIC+1~, ORQOAM+5, ORQOAM+6
ORK ORQOAM+2~, ORQOAM+5*, ORQOAM+6, PRINT+7~
ORKK ORQOAM+2~, ORQOAM+5*, ORQOAM+6
ORKK0 ORQOAM~, ORQOAM+4, ORQOAM+6*
ORLLOC DIVMATCH+1~, DIVMATCH+3*, DIVMATCH+4
ORMISLOC ORQOAUIB+11~, START+8*, DIVMATCH+4, PRINT+31
ORPHDN DQ+9!, ANTIMIC+3*, ANTIMIC+5, ITEM+4*, ITEM+5
ORQQ ITEM+2*, ITEM+3, ITEM+7*, ITEM+8!
ORQUICK DQ+4*, DQ+5, ORQOAM+2~, ORQOAM+3*, ORQOAM+4*, ORQOAM+6*, ORQOAM+7
ORRD DIVMATCH~, DIVMATCH+3, ANTIMIC~, ANTIMIC+2
ORRQDIV DIVMATCH+1~, DIVMATCH+3*, DIVMATCH+5
ORSDATE ORQOAUIB+11~, START+1*, START+3, START+6, DQ+1, PRINT+23
ORWHO ORQOAUIB+11~, PRINT+21*, PRINT+32, PRINT+33
ORX0 PRINT+7~, PRINT+20*, PRINT+21, PRINT+23, PRINT+24, PRINT+28, PRINT+29
ORZ PRINT~, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+19
, PRINT+22, PRINT+32
U DIVMATCH+3, PRINT+9, PRINT+10, PRINT+14, PRINT+15, PRINT+21, PRINT+23, PRINT+24, PRINT+25, PRINT+28
, PRINT+29, PRINT+32, HFS+1, ITEM+7
X2 ORQOAUIB+11~, PRINT+29*
X8 PRINT+7~
Y ORQOAUIB+11~, START+1, START+2, START+4, START+5, START+7, START+8
ZTIO ORQOAUIB+11~, START+11*
ZTRTN ORQOAUIB+11~, START+11*
ZTSAVE ORQOAUIB+11~
ZTSAVE("IO*" START+11*
ZTSAVE("ORDELIMT" START+11*
ZTSAVE("ORDIV" START+11*
ZTSAVE("OREDATE" START+11*
ZTSAVE("ORSDATE" START+11*
ZTSK ORQOAUIB+11~, START+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All