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

Package: Order Entry Results Reporting

Routine: ORCDVBC1


Information

ORCDVBC1 ;SLC/MKB-Utility functions for VBECS dialogs cont ;2/11/08 11:03

Source Information

Source file <ORCDVBC1.m>

Entry Points

Name Comments DBIA/ICR reference
PTINFO ; -- Show patient data [from EN^ORCDVBEC]
; Expects ORPNM, ORVB(attribute) from OEAPI^VBECA3
DATETIME(X) ; -- Return external form of YYYYMMDDHHNNSS date
OI ; -- Edit VBECS orderable item names
; Option = ORCM VBECS OI EDIT
NAME(DFLT) ; Enter/edit orderable item text (no lookup)
NM1
STRIP(X) ; -- remove leading spaces
LB(ORDER) ; -- Return Lab order number for specimen collection
; [Additional Text field #19 -- expects ORIFN from TEXT^ORQ12]

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " none",!
  • Line Location: PTINFO+3
Function Call: WRITE
  • Prompt: !!,"ABO/Rh: "_$TR($G(ORVB("ABORH")),"^"," "),!
  • Line Location: PTINFO+4
Function Call: WRITE
  • Prompt: !,"Antibodies Identified:"
  • Line Location: PTINFO+5
Function Call: WRITE
  • Prompt: "none",!
  • Line Location: PTINFO+6
Function Call: WRITE
  • Prompt: ?27,$G(ORVB("ABHIS",I)),!
  • Line Location: PTINFO+7
Function Call: WRITE
  • Prompt: !,"Units Available",?36,"Expiration D/T Division"
  • Line Location: PTINFO+8
Function Call: WRITE
  • Prompt: !,"---------------",?36,"-------------- --------"
  • Line Location: PTINFO+9
Function Call: WRITE
  • Prompt: !,$P(TYPE,U,2)_" Units:"
  • Line Location: PTINFO+12
Function Call: WRITE
  • Prompt: !," "_$$PAD^ORCHTAB($P(X,U),15)_$$PAD^ORCHTAB($P(X,U,2),19)_$$DATETIME($P(X,U,4))_" "_$P(X,U,3)
  • Line Location: PTINFO+13
Function Call: WRITE
  • Prompt: !," none"
  • Line Location: PTINFO+14
Function Call: WRITE
  • Prompt: !!,"Transfusion Reactions",?36,"Date/Time"
  • Line Location: PTINFO+15
Function Call: WRITE
  • Prompt: !,"---------------------",?36,"---------"
  • Line Location: PTINFO+16
Function Call: WRITE
  • Prompt: !," none"
  • Line Location: PTINFO+17
Function Call: WRITE
  • Prompt: !," "_$P(X,U),?36,$$DATETIME($P(X,U,2))
  • Line Location: PTINFO+18
Function Call: WRITE
  • Prompt: !
  • Line Location: PTINFO+19
Function Call: WRITE
  • Prompt: !
  • Line Location: OI+3
Function Call: WRITE
  • Prompt: $C(7),!!,"Orderable items may not be deleted!",!
  • Line Location: NM1+1

FileMan Files Accessed Via FileMan Db Call

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