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

Package: Barcode Medication Administration

Routine: PSBIHS1


Information

PSBIHS1 ;KF/VAOIT PSB BCMA MOB ENTRY REPORT

Source Information

Source file <PSBIHS1.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 6 (,DD)^%DT  (C,NOW)^%DTC  (,IX)^DIC  WAIT^DICD  YN^DICN  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 2 (DEM,PID)^VADPT  $$SITE^VASITE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Barcode Medication Administration 2 PSBIHS MOB DATE  PSBIHS MOB TASK  

Entry Points

Name Comments DBIA/ICR reference
HEAD
ASK1 ;GET DIVS.
STOP ;
TAS ;TASK IT OR NOT
NTASK ;NIGHT TASK
NUR ;BLUID ARRAY BY NURS LOCATION
REP ;DISPLAY DATA
STS ;LOOK IN MED FILE FOR DATA...
ASKNUR ;NURSE LOCATION
REP1
Q
ORNUM ;GET CPRS ORDER NUMBER
ASKDN ;ASK NURSE OR DIVISION
ST2 ;START AND END DATES
NEW ;ALL PRNS
END
COM ;LOOPS FOR COMMENTS HELD
DIV1 ;BLGD ARRAY FOR WARDS IN THE DIV SELEPSBCTED

External References

Name Field # of Occurrence
^%DT ST2+3, END+3
DD^%DT ST2+6, REP+2, REP+3, HEAD+1, REP1+12, COM+6
C^%DTC END+5, NTASK+1, NTASK+2, REP+2
NOW^%DTC REP+3
^%ZIS TAS+2
HOME^%ZIS TAS+27
^%ZISC TAS+9
^%ZTLOAD TAS+26
^DIC ASKNUR+1
IX^DIC DIV1+7
WAIT^DICD TAS+8
YN^DICN END+8, END+13
^DIR ASKDN+3
DEM^VADPT REP1+10
PID^VADPT REP1+10
$$SITE^VASITE ASK1+1, NTASK+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You selePSBCTed a 'INAPSBCTIVE' Nurse Unit Please try again! "
  • Line Location: ASKNUR+3
Function Call: WRITE
  • Prompt: !,"You entered "_Y_" Start Date must be After 'August 1, 2003"
  • Line Location: ST2+6
Function Call: WRITE
  • Prompt: !,"End Date must be after the start !"
  • Line Location: END+6
Function Call: WRITE
  • Prompt: !,"Print order details CPRS Med Order Button Yes/No?: "
  • Line Location: END+7
Function Call: WRITE
  • Prompt: !
  • Line Location: TAS+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REP+1
Function Call: WRITE
  • Prompt: !,?15,"BCMA/EHR Med Order Button From "
  • Line Location: REP+2
Function Call: WRITE
  • Prompt: Y_" TO "
  • Line Location: REP+2
Function Call: WRITE
  • Prompt: Y_" TO "
  • Line Location: REP+2
Function Call: WRITE
  • Prompt: !,?65,"Run Date/Time:"_PSBRT
  • Line Location: REP+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: REP+6
Function Call: WRITE
  • Prompt: !,"NONE FOUND"
  • Line Location: REP+7
Function Call: WRITE
  • Prompt: "-"
  • Line Location: REP+14
Function Call: WRITE
  • Prompt: "-"
  • Line Location: REP+19
Function Call: WRITE
  • Prompt: !,"NONE FOUND"
  • Line Location: REP+20
Function Call: WRITE
  • Prompt: "-"
  • Line Location: REP+27
Function Call: WRITE
  • Prompt: "-"
  • Line Location: REP+32
Function Call: WRITE
  • Prompt: !,"NONE FOUND"
  • Line Location: REP+33
Function Call: WRITE
  • Prompt: !,PSBNUTN
  • Line Location: REP+36
Function Call: WRITE
  • Prompt: !,PSBNUTN
  • Line Location: REP+41
Function Call: WRITE
  • Prompt: "-"
  • Line Location: REP+46
Function Call: WRITE
  • Prompt: !,"NONE FOUND"
  • Line Location: REP+47
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,?15,"BCMA/CPRS Interface Entry in BCMA From "
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: Y_" TO "
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: Y_" TO "
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"Nurse Unit: "_PSBWDNU,?65,"Run Date/Time: "_PSBRT
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,"NAME",?30,"HRN",?45,"DATE/TIME"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,"NAME",?30,"HRN",?45,"DATE/TIME",?65,"ADMIN BY"
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,PSBNAME,?30,PSBPID,?40,PSBMT
  • Line Location: REP1+15
Function Call: WRITE
  • Prompt: !,PSBNAME,?30,PSBPID,?40,PSBMT,?63,PSBNUR,!,?15,"Medication: ",PSBDRUG,?50,"Dosage: ",$P($G(^PSB(53.79,PSBIEN,.1)),"^",5)
  • Line Location: REP1+16
Function Call: WRITE
  • Prompt: !,?27,$P(^PSB(53.79,PSBIEN,.6,J,0),"^",2)," ",$P(^PSB(53.79,PSBIEN,.6,J,0),"^",3)
  • Line Location: REP1+20
Function Call: WRITE
  • Prompt: !,?27,$P(^PSB(53.79,PSBIEN,.7,J,0),"^",2)," ",$P(^PSB(53.79,PSBIEN,.7,J,0),"^",3)
  • Line Location: REP1+23
Function Call: WRITE
  • Prompt: !,?15,"Comments:---------------------------------------------------------"
  • Line Location: COM+2
Function Call: WRITE
  • Prompt: !,?25,"---------------------------------------------------------"
  • Line Location: COM+9
Function Call: WRITE
  • Prompt: !,?15,"EHR Order Number: ",PSBORN
  • Line Location: ORNUM+4
Routine Call
  • %ZIS
  • Line Location:
    • TAS+27
Routine Call
  • DIC
  • Line Location:
    • ASKNUR+1
Routine Call
  • DIR
  • Line Location:
    • ASKDN+3
Routine Call
  • %ZIS
  • Line Location:
    • TAS+2
Routine Call
  • DIC
  • Line Location:
    • DIV1+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^NURSF(211.4 - [#211.4] Classic Fileman Calls
^DG(40.8 - [#40.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] REP+9
^DIC(42 - [#42] NUR+4, DIV1+3, DIV1+11, STS+17
^DPT - [#2] STS+29
^NURSF(211.4 - [#211.4] ASKNUR+3, NUR+2, NUR+3, STS+18, STS+19, REP+36, REP+41
^PS(50.7 - [#50.7] REP1+13
^PS(55 - [#55] ORNUM+2, ORNUM+3
^PSB(53.79 - [#53.79] STS+2, STS+3, STS+4, STS+6, STS+8, STS+26, STS+27, STS+29, STS+31, REP1+16
, REP1+18, REP1+20, REP1+21, REP1+23, COM+3, COM+4, COM+5, COM+6, ORNUM+1
^SC - [#44] STS+19, REP+36, REP+41
^TMP($J NEW+1!, DIV1+2!, DIV1+3*, DIV1+11, DIV1+12!, STS+31*, REP1+1, REP1+2, REP1+5, REP1+6
, REP1+7, REP1+9, REP1+12, REP1+13, REP1+14
^VA(200 - [#200] REP1+14, COM+5

Label References

Name Line Occurrences
ASK1 ASKDN+7
ASKNUR ASKDN+6, ASKNUR+3
COM REP1+24
END END+6
HEAD REP1+3, REP1+4, REP1+8
NEW NTASK+12, TAS+8
ORNUM REP1+17
REP1 REP+51
ST2 ASKNUR+4, ST2+6
STOP ASKDN+3, ASKNUR+1, ST2+3, END+4, END+8, END+13, REP+52, REP1+27
TAS END+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+8*, END+10, END+13*, END+14, END+15, END+18, DIV1+5!, REP+3, HEAD+6!
%DT ST2+2*, ST2+4!, ST2+7!, END+2*, END+3!
%DT("A" ST2+1*, END+1*
%ZIS TAS+1*, TAS+2!
D DIV1+5!, DIV1+6*, DIV1+9!
DFN REP1+9*, ORNUM+2, ORNUM+3, STOP+4!
DIC ASKNUR+1*, DIV1+5!, DIV1+6*, DIV1+9!, STOP+2!
DIC(0 ASKNUR+1*, DIV1+6*
DIR ASKDN+5!, STOP+2!
DIR("A" ASKDN+2*, ASKDN+5!
DIR(0 ASKDN+1*, ASKDN+5!
DT NTASK+1, NTASK+2
DUZ("AG" REP1+11
IO NTASK+11, TAS+8, TAS+9
IO("Q" TAS+7, TAS+11, TAS+29!
IO(0 TAS+9
IOF REP+1, HEAD
IOM REP+6, REP+14, REP+19, REP+27, REP+32, REP+46, HEAD+5
ION TAS+25
IOSL REP1+8
J REP+6*, REP+8*, REP+14*, REP+19*, REP+21*, REP+27*, REP+32*, REP+46*, HEAD+5*, REP1+1*
, REP1+2*, REP1+5*, REP1+6*, REP1+7*, REP1+20*, REP1+23*, STOP+2!
POP TAS+3, STOP+3!
PSBBC2 STS+1~, STS+24*, STS+27*, STS+28
PSBBDATE ST2+4*, ST2+5, ST2+6, END+6, NTASK+1*, TAS+5!, STS+3, REP+2, HEAD+1, STOP+1!
PSBCNT NEW+2*, STS+25*, REP+7, REP+15, REP+16, REP+20, REP+33, REP+47, REP+48, REP+49
, STOP+4!
PSBCNTP NEW+2*, STOP+4!
PSBCOM COM+1~, COM+4*, COM+8
PSBCOM1 END+14*, END+15*, NTASK+5*, REP1+24, STOP+4!
PSBCOMB COM+1~, COM+5*, COM+7
PSBCOMT COM+1~, COM+6*, COM+7
PSBCT STS+1~
PSBCT( STS+15*, STS+25*, REP+8, REP+10
PSBCTN STS+1~
PSBCTN( STS+16*, STS+27*, REP+10
PSBCTNLOC STS+1~, STOP+3!
PSBCTNLOC( STS+20*, STS+25*, REP+34, REP+37
PSBCTNLOCP STOP+4!
PSBCTNLOCP( STS+22*, REP+42
PSBCTNNLOC STS+1~, STOP+3!
PSBCTNNLOC( STS+21*, STS+27*, REP+37
PSBCTNNLOCP STOP+4!
PSBCTNNLOCP( STS+23*, REP+42
PSBDATE STS+3*, STS+4, STOP+1!
PSBDD REP+10*, REP+11, REP+15*, REP+23*, REP+24, REP+37*, REP+38, REP+42*, REP+43, REP+48*
, STOP+2!
PSBDFN STS+2*, STS+3, STS+4, STOP+1!
PSBDIV DIV1+3*, STS+6*, STS+7, STS+15, STS+16, STS+25, STS+27, STS+31, REP+8*, REP+9
, REP+10, REP1+1*, REP1+2, REP1+5, REP1+6, REP1+7, REP1+9, REP1+12, REP1+13, REP1+14
, STOP+2!
PSBDIV1 DIV1+8*, DIV1+11, STOP+3!
PSBDPER REP+11*, REP+12*, REP+24*, REP+25*, REP+38*, REP+39*, REP+43*, REP+44*, REP+50*, STOP+1!
PSBDRUG REP1+13*, REP1+16, STOP+2!
PSBDT REP+10*, REP+11, REP+12, REP+13, REP+23*, REP+24, REP+25, REP+26, REP+37*, REP+38
, REP+39, REP+40, REP+42*, REP+43, REP+44, REP+45, REP+50, STOP+1!
PSBDTN REP+10*, REP+13, REP+23*, REP+26, REP+37*, REP+40, REP+42*, REP+45, STOP+1!
PSBDV ASK1+2*, END+21*, NTASK+6*, NTASK+9*, TAS+5!, STOP+2!
PSBDVV STOP+3!
PSBDVV( ASK1+2*, NTASK+6*, DIV1+4
PSBEDATE END+1*, END+3*, END+5*, END+6, NTASK+2*, TAS+5!, STS+3, REP+2, STOP+1!
PSBF STOP+3!
PSBH STS+26*, STS+27, STOP+4!
PSBIEN DIV1+3*, STS+4*, STS+6, STS+8, STS+26, STS+27, STS+29, STS+31, REP1+7*, REP1+9
, REP1+12, REP1+13, REP1+14, REP1+16, REP1+18, REP1+20, REP1+21, REP1+23, COM+3, COM+4
, COM+5, COM+6, ORNUM+1, STOP+2!
PSBLEN STS+1~, STS+11*
PSBLEN1 STS+1~, STS+11*
PSBLN END+17*, END+18*, NTASK+3*, HEAD+3, HEAD+4, REP1+15, REP1+16, STOP+2!
PSBLOC STS+11*, STS+13, STS+14, STS+17, STS+25, STS+27, STS+31, REP1+5*, REP1+6, REP1+7
, REP1+9, REP1+12, REP1+13, REP1+14, STOP+1!
PSBLOC1 STS+8*, STS+11, STOP+3!
PSBLOC2 STOP+3!
PSBLOC3 STS+10*, STS+11, STOP+1!
PSBMT REP1+12*, REP1+15, REP1+16, STOP+1!
PSBN ASKDN+4*, ASKDN+6, ASKDN+7, END+19*, NTASK+3*, NTASK+7*, NUR+1, DIV1+1, REP+4, REP+29
, STOP+2!
PSBNAME STS+29*, STS+31, REP1+6*, REP1+7, REP1+9, REP1+12, REP1+13, REP1+14, REP1+15, REP1+16
, STOP+1!
PSBNL ASKNUR+2*, ASKNUR+3, END+20*, NTASK+8*, NUR+2, NUR+3, STOP+2!
PSBNLOC STS+19*, STS+20, STS+21, STS+22, STS+23, STS+25, STS+27, STOP+3!
PSBNLOCC STS+18*, STS+19, STOP+3!
PSBNONE NEW+2*, STS+27*, REP+15, REP+16, REP+48, REP+49, STOP+2!
PSBNONEP NEW+1!, NEW+2*, STOP+4!
PSBNS STOP+3!
PSBNUM DIV1+4*, DIV1+6, COM+1~, COM+3*, COM+4, COM+5, COM+6, STOP+3!
PSBNUR REP1+14*, REP1+16, STOP+2!
PSBNUT REP+34*, REP+35, REP+36, REP+37, STOP+3!
PSBNUT1 REP+35*, REP+41, REP+42, STOP+1!
PSBNUTN REP+36*, REP+41*, STOP+3!
PSBNWARD NUR+2*, NUR+3, STOP+2!
PSBNWD NUR+3*, NUR+4, STOP+2!
PSBNWD( NUR+4*, DIV1+11*, STS+10
PSBONU REP1+3*, REP1+4, REP1+26*, STOP+3!
PSBORN ORNUM+1*, ORNUM+2*, ORNUM+3*, ORNUM+4, STOP+4!
PSBOWD STOP+2!
PSBPID REP1+11*, REP1+15, REP1+16, STOP+3!
PSBPSBCTWD STS+1~, STOP+2!
PSBPSBCTWD( STS+13*, STS+25*, REP+21, REP+23
PSBPSBCTWDN STS+1~, STOP+2!
PSBPSBCTWDN( STS+14*, STS+27*, REP+23
PSBREP END+9*, STOP+3!
PSBREP1 END+11*, END+18*, NTASK+2*, REP+51, STOP+2!
PSBREPT REP+2*, HEAD+1, STOP+2!
PSBRT REP+3*, HEAD+2, STOP+2!
PSBSSN STOP+1!
PSBSTOP STS+9*, STS+10, STS+11*, STS+12, STOP+2!
PSBTPER REP+15*, REP+48*, STOP+2!
PSBVISN END+22*, NTASK+10*, STOP+2!
PSBWARD REP+21*, REP+22, REP+23, STOP+2!
PSBWD STOP+2!, STOP+3!
PSBWDIEN STOP+3!
PSBWDNU STS+17*, STS+19*, STS+30*, STS+31, HEAD+2, REP1*, REP1+2*, REP1+3, REP1+4, REP1+5
, REP1+6, REP1+7, REP1+9, REP1+12, REP1+13, REP1+14, REP1+26, STOP+3!
PSBWIEN DIV1+11*, STS+17*, STS+18, STOP+3!
U DIV1+3
>> VA("PID" REP1+11
VISN TAS+5!
X ASKDN+3, ASKNUR+1, ST2+3, END!, END+4, END+5, END+8, END+13, NTASK+1, NTASK+2
, DIV1+5!, DIV1+6*, DIV1+9!, REP+2
X1 END+5*!, NTASK+1*!, NTASK+2*!, REP+2*
X2 END+5*!, NTASK+1*!, NTASK+2*!, REP+2*
Y ASKDN+4, ASKDN+5!, ASKNUR+1, ASKNUR+2, ASK1+1*, ASK1+2, ST2+4!, ST2+6*, ST2+7!, END+3!
, NTASK+4*, NTASK+6, DIV1+5!, DIV1+7, DIV1+8, DIV1+9!, REP+2*, REP+3*, HEAD+1*, REP1+12*
, COM+6*
ZTDESC TAS+12~, TAS+14*
ZTIO TAS+12~, TAS+25*
ZTRTN TAS+12~, TAS+13*
ZTSAVE TAS+12~
ZTSAVE("PSBBDATE" TAS+15*
ZTSAVE("PSBCOM1" TAS+24*
ZTSAVE("PSBDV" TAS+18*
ZTSAVE("PSBDV*" TAS+23*
ZTSAVE("PSBEDATE" TAS+16*
ZTSAVE("PSBLN" TAS+20*
ZTSAVE("PSBN" TAS+21*
ZTSAVE("PSBNL" TAS+22*
ZTSAVE("PSBREP1" TAS+19*
ZTSAVE("PSBVISN" TAS+17*
ZTSK TAS+28, TAS+29!
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