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

Package: Order Entry Results Reporting

Routine: ORCXPND1


Information

ORCXPND1 ; SLC/MKB - Expanded Display cont ;May 3, 2021@21:00

Source Information

Source file <ORCXPND1.m>

Entry Points

Name Comments DBIA/ICR reference
COVER ; -- Cover Sheet
NOTES ; -- Progress Notes
PROBLEMS ; -- Problem List
MEDS ; -- Pharmacy
LABS ; -- Laboratory [RESULTS ONLY for ID=OE order #]
PLS ; List performing laboratories
SETLINE(LINE,CNT) ;
DELAY ; -- Delayed Orders
NEW ; -- New Orders
ORDERS ; -- Orders
REPORTS ; -- Patient Profiles
CONSULTS ; -- Consults
XRAYS ; -- Radiology
XRPT ; -- Body of Report for CASE, PROC
SUMMRIES ; -- Discharge Summaries
PTINQ ; Print Patient Inquiry in List Manager
DGINQ(DFN) ; Patient Inquiry
DGINQB(DFN) ; Build Patient Inquiry
TRIM(X) ; Trim Spaces
S(X,Y,Z) ; Pad Over
; X=Column #
; Y=Current Length
; Z=Text
; SP=Text Sent
; CCNT=Line Position After Input Text
INC(X,Y) ; Character Position Count
; X=Current Count
; Y=Text

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Caregiver Information:"
  • Line Location: DGINQB+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DGINQB+7
Function Call: WRITE
  • Prompt: "Caregiver information not currently available: ",$P(ORRET(0),"^",2),!
  • Line Location: DGINQB+8
Function Call: WRITE
  • Prompt: "No Caregiver information returned."
  • Line Location: DGINQB+9
Function Call: WRITE
  • Prompt: ?5,"Primary Caregiver: "
  • Line Location: DGINQB+18
Function Call: WRITE
  • Prompt: ?24,ORD("PRIM",ORRETS),!
  • Line Location: DGINQB+20
Function Call: WRITE
  • Prompt: !
  • Line Location: DGINQB+21
Function Call: WRITE
  • Prompt: ?3,"Secondary Caregiver: "
  • Line Location: DGINQB+23
Function Call: WRITE
  • Prompt: ?24,ORD("SEC",ORRETS),!
  • Line Location: DGINQB+25
Function Call: WRITE
  • Prompt: !
  • Line Location: DGINQB+26
Function Call: WRITE
  • Prompt: ?5,"General Caregiver: "
  • Line Location: DGINQB+28
Function Call: WRITE
  • Prompt: ?24,ORD("GEN",ORRETS),!
  • Line Location: DGINQB+30
Function Call: WRITE
  • Prompt: !!!,"Enrollment Priority: ",$S($G(ORENRD("PRIORITY"))]"":"GROUP "_$G(ORENRD("PRIORITY")),1:"")_ORESG,?40,"Category: ",$$EXTCAT^DGENA4(ORENC),!!
  • Line Location: DGINQB+32
Function Call: WRITE
  • Prompt: !!,"Primary Care Information:"
  • Line Location: DGINQB+42
Function Call: WRITE
  • Prompt: !,"Primary Practitioner: ",$P(ORDOC,"^",2)
  • Line Location: DGINQB+43
Function Call: WRITE
  • Prompt: !,"Primary Care Team: ",$P(ORTEAM,"^",2)
  • Line Location: DGINQB+44
Function Call: WRITE
  • Prompt: !,"Attending Physician: ",$P($G(^VA(200,+ORATP,0)),U)
  • Line Location: DGINQB+46
Function Call: WRITE
  • Prompt: !,"Inpatient Provider: ",$P($G(^VA(200,+ORINP,0)),U)
  • Line Location: DGINQB+47
Function Call: WRITE
  • Prompt: !,"Associate Provider: ",ORASS
  • Line Location: DGINQB+48
Function Call: WRITE
  • Prompt: !!,"MH Treatment Information:"
  • Line Location: DGINQB+50
Function Call: WRITE
  • Prompt: !,"MH Treatment Coord: ",$E($P(ORMHP,"^",2),1,28)
  • Line Location: DGINQB+51
Function Call: WRITE
  • Prompt: ?52,"Position: ",$E($P(ORMHP,"^",3),1,18)
  • Line Location: DGINQB+52
Function Call: WRITE
  • Prompt: !,"MH Treatment Team: ",$E($P(ORMHP,"^",5),1,56)
  • Line Location: DGINQB+53
Function Call: WRITE
  • Prompt: !!,"Health Insurance Information:"
  • Line Location: DGINQB+54
Function Call: WRITE
  • Prompt: !!,"Service Connection/Rated Disabilities:"
  • Line Location: DGINQB+56
Function Call: WRITE
  • Prompt: !!,$S(CONTACT="N":"Next of Kin Information:",1:"Secondary Next of Kin Information:")
  • Line Location: DGINQB+62
Function Call: WRITE
  • Prompt: !,"Name: ",VAOA(9)
  • Line Location: DGINQB+63
Function Call: WRITE
  • Prompt: " (",VAOA(10),")"
  • Line Location: DGINQB+64
Function Call: WRITE
  • Prompt: !?7,VAOA(1)
  • Line Location: DGINQB+65
Function Call: WRITE
  • Prompt: !?7,VAOA(2)
  • Line Location: DGINQB+66
Function Call: WRITE
  • Prompt: !?7,VAOA(3)
  • Line Location: DGINQB+67
Function Call: WRITE
  • Prompt: !?7,VAOA(4)
  • Line Location: DGINQB+69
Function Call: WRITE
  • Prompt: ", "_$P(VAOA(5),"^",2)
  • Line Location: DGINQB+70
Function Call: WRITE
  • Prompt: " ",$P(VAOA(11),"^",2)
  • Line Location: DGINQB+71
Function Call: WRITE
  • Prompt: !!?7,"Phone number: ",VAOA(8)
  • Line Location: DGINQB+72
Function Call: WRITE
  • Prompt: !?7,"Work phone number: ",$P(^DPT(DFN,.21),U,11)
  • Line Location: DGINQB+73
Function Call: WRITE
  • Prompt: !?7,"Work phone number: ",$P(^DPT(DFN,.211),U,11)
  • Line Location: DGINQB+74
Info |  Source |  Entry Points |  Interaction Calls