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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BEDDEHRS

Package: IHS Emergency Dept Dashboard

Routine: BEDDEHRS


Information

BEDDEHRS ;VNGT/HS/BEE-BEDD Patient Routing Slip ; 08 Nov 2011 12:00 PM

Source Information

Source file <BEDDEHRS.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  CLOSE^%ZISH  ^%ZTLOAD  
IHS Emergency Dept Dashboard 1 ($$FMTE,$$XNOW)^BEDDUTIL  
IHS Patient Registration 1 PTLK^AG  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Emergency Dept Dashboard 2 BEDDPRT  BEDDUTIL  

Entry Points

Name Comments DBIA/ICR reference
START ;Display Report
QUE ;Queue Task
END ; KILL VARIABLES
HDR ;EP - Display Report Header
EN(BEDDDFN) ;EP - Patient Routing Slip

External References

Name Field # of Occurrence
^%ZIS EN+15, EN+16
HOME^%ZIS EN+17, EN+21
^%ZISC EN+20
CLOSE^%ZISH END+1
^%ZTLOAD QUE+5
PTLK^AG EN+10
$$FMTE^BEDDUTIL START+6
$$XNOW^BEDDUTIL START+9
$$GET1^DIQ START+4, START+5, START+6, START+7, START+8, START+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,ALINE
  • Line Location: START+20
Function Call: WRITE
  • Prompt: !,"Other Information / Instructions: ",!
  • Line Location: START+21
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: START+22
Function Call: WRITE
  • Prompt: !,ALINE
  • Line Location: START+24
Function Call: WRITE
  • Prompt: !,"Departments for Patient to visit today:"
  • Line Location: START+25
Function Call: WRITE
  • Prompt: !,"(Patient: Please check in at any indicated department)"
  • Line Location: START+26
Function Call: WRITE
  • Prompt: !!,?4,"Return to Clinic Today",?35,"___ Yes ___ No "
  • Line Location: START+27
Function Call: WRITE
  • Prompt: !!,"***Note to Surgery Patient: You must go to all indicated departments TODAY,"
  • Line Location: START+28
Function Call: WRITE
  • Prompt: !,"or your surgery may be cancelled!"
  • Line Location: START+29
Function Call: WRITE
  • Prompt: !!,"_____ Lab",?26,"_____ Imaging",?53,"_____ Tribal Health Prog."
  • Line Location: START+31
Function Call: WRITE
  • Prompt: !!,"_____ Testing Ctr Imaging",?26,"_____ Pharmacy",?53,"_____ Respiratory Therapy"
  • Line Location: START+32
Function Call: WRITE
  • Prompt: !!,"_____ Cardiology",?26,"_____ Medisaw",?53,"_____ BC Orientation"
  • Line Location: START+33
Function Call: WRITE
  • Prompt: !!,"_____ Admissions",?26,"_____ Behavioral Health",?53,"_____ ___________________"
  • Line Location: START+34
Function Call: WRITE
  • Prompt: !!,"***Note to nurses: For pre-op patient, please complete the following:"
  • Line Location: START+35
Function Call: WRITE
  • Prompt: !,"Surgery Date:",$E(LINE,1,19)
  • Line Location: START+36
Function Call: WRITE
  • Prompt: !!,"Diagnosis:",$E(LINE,1,45)
  • Line Location: START+37
Function Call: WRITE
  • Prompt: ?56,"Surgeon:",$E(LINE,1,14)
  • Line Location: START+38
Function Call: WRITE
  • Prompt: !!,"Procedure:",$E(LINE,1,45)
  • Line Location: START+39
Function Call: WRITE
  • Prompt: ?56,"LOS:",$E(LINE,1,18)
  • Line Location: START+40
Function Call: WRITE
  • Prompt: !,ALINE
  • Line Location: START+43
Function Call: WRITE
  • Prompt: !,"Follow-Up"
  • Line Location: START+44
Function Call: WRITE
  • Prompt: !,"Return to Clinic in: _____________ ",?40,"Days",?50,"Weeks",?60,"Months",?70,"PRN"
  • Line Location: START+45
Function Call: WRITE
  • Prompt: !!,"Appointment date/time:",$E(LINE,1,20)
  • Line Location: START+46
Function Call: WRITE
  • Prompt: !,"For: ___ 15 mins ___ 20 mins ___ 30 mins ___ 40 mins ___ 60 mins"
  • Line Location: START+47
Function Call: WRITE
  • Prompt: !!,"With: ",$E(LINE,1,35)
  • Line Location: START+48
Function Call: WRITE
  • Prompt: !!,"Purpose of appt:",$E(LINE,1,62)
  • Line Location: START+49
Function Call: WRITE
  • Prompt: !!,"Other instructions:",$E(LINE,1,59)
  • Line Location: START+50
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: START+51
Function Call: WRITE
  • Prompt: !!,"Other Appointments Needed: ",$E(LINE,1,45)
  • Line Location: START+52
Function Call: WRITE
  • Prompt: !,ALINE
  • Line Location: START+55
Function Call: WRITE
  • Prompt: !,"PATIENT: ",PNAME
  • Line Location: START+56
Function Call: WRITE
  • Prompt: !,"___ Was seen in clinic today."
  • Line Location: START+57
Function Call: WRITE
  • Prompt: !,"___ Should not work or attend school from _______________ to _______________"
  • Line Location: START+58
Function Call: WRITE
  • Prompt: !,"___ Should be excused from Phys Ed from ________________ to ________________"
  • Line Location: START+59
Function Call: WRITE
  • Prompt: !,"___ ",$E(LINE,1,74)
  • Line Location: START+60
Function Call: WRITE
  • Prompt: !!,"Signature:",$E(LINE,1,44)
  • Line Location: START+61
Function Call: WRITE
  • Prompt: "Date:",$E(LINE,1,19)
  • Line Location: START+62
Function Call: WRITE
  • Prompt: !,?((80-$L(PSITE))/2),PSITE
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,?((80-$L(TITLE))/2),TITLE
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,?((80-$L(ALERT))/2),ALERT
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME: ",PNAME
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: ?46,"SEX: ",PSEX
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !,?5,"CHART #: ",PCHRT,?46,"DOB: ",PDOB
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !," ELIGIBILITY: ",ELIG
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !!?5,"Report Cancelled!"
  • Line Location: QUE+6
Function Call: WRITE
  • Prompt: !!?5,"Task # ",ZTSK," queued.",!
  • Line Location: QUE+7
Routine Call
  • %ZIS
  • Line Location:
    • EN+17
    • EN+21
Routine Call
  • %ZIS
  • Line Location:
    • EN+15
    • EN+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^AUPNPAT - [#9000001] GET1^DIQ
9000001.41 GET1^DIQ

Label References

Name Line Occurrences
HDR START+17
QUE EN+17
START EN+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+4~
%ZIS EN+4~, EN+14*
AGE EN+4~
AGPATDFN EN+4~
ALERT HDR+2~, HDR+7*, HDR+13
ALINE START+2~, START+12*, START+20, START+24, START+43, START+55
AUPNDAYS EN+4~
AUPNDOB EN+4~
AUPNDOD EN+4~
AUPNPAT EN+4~
AUPNSEX EN+4~
BEDDDFN EN~, EN+2*, EN+9, EN+10
DFN EN+4~, EN+9*, EN+11, START+4, START+5, START+6, START+8, START+10
DIC EN+4~
DOB EN+4~
DUZ(2 START+7, START+8
ELIG START+2~, START+10*, HDR+17
I START+2~, START+22*
IO EN+18, END+1, HDR+6
IO("Q" EN+17, QUE+2!
ION EN+16
IOP EN+16~*
IOST END+1
LINE START+2~, START+11*, START+22, START+36, START+37, START+38, START+39, START+40, START+46, START+48
, START+49, START+50, START+51, START+52, START+60, START+61, START+62
PCHRT START+2~, START+8*, HDR+16
PCOPY HDR+2~, HDR+9*
PDOB START+2~, START+6*, HDR+16
PNAME START+2~, START+4*, START+56, HDR+14
POP EN+5~, EN+16
PRINT HDR+2~
PSEX START+2~, START+5*, HDR+15
PSITE START+2~, START+7*, HDR+11
REC EN+5~
RHIFLAG EN+5~
RPTDTM START+2~, START+9*, HDR+8
SEX EN+5~
SSN EN+5~
TITLE HDR+2~, HDR+8*, HDR+12
X EN+5~
Y EN+5~
ZTDESC QUE+1~, QUE+3*
ZTRTN QUE+1~, QUE+3*
ZTSAVE QUE+1~
ZTSAVE("*" QUE+4*
ZTSK QUE+5!, QUE+6, QUE+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All