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

Package: Barcode Medication Administration

Routine: PSBIHS4


Information

PSBIHS4 ;KF/VAOIT BCMA Meds Admin date range ;MAR 2014

Source Information

Source file <PSBIHS4.m>

Call Graph

Call Graph Total: 10

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Barcode Medication Administration 1 PSBIHS MED GIVEN NDC REPORT  

Entry Points

Name Comments DBIA/ICR reference
END
TAS
STOP ;FINAL CLEAN UP
SUMNDC ; DAILY SUMMARY
ST2 ;START AND END DATES
NEW
DETPRT ; PRINT ORDER DETAILS

External References

Name Field # of Occurrence
^%DT ST2+2, END+2
DD^%DT ST2+4, NEW+7, DETPRT+4, SUMNDC+6, SUMNDC+12
C^%DTC END+4
NOW^%DTC NEW+7
^%ZIS TAS+2
HOME^%ZIS TAS+16
^%ZISC TAS+9
^%ZTLOAD TAS+16
^DIC PSBIHS4+4
WAIT^DICD TAS+8
YN^DICN END+6, END+7
$$GET1^DIQ DETPRT+19
DEM^VADPT NEW+4
PID^VADPT NEW+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You entered "_Y_" Start Date must be After 'August 1, 2003"
  • Line Location: ST2+4
Function Call: WRITE
  • Prompt: !,"End Date must be after the start !"
  • Line Location: END+5
Function Call: WRITE
  • Prompt: !,"Include Order Details"
  • Line Location: END+6
Function Call: WRITE
  • Prompt: !,"NDC Daily Summary"
  • Line Location: END+7
Function Call: WRITE
  • Prompt: !,"Eixting now nothing selected to print"
  • Line Location: END+8
Function Call: WRITE
  • Prompt: !
  • Line Location: TAS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NEW+40
Function Call: WRITE
  • Prompt: "-"
  • Line Location: NEW+40
Function Call: WRITE
  • Prompt: !,"Action Date/Time",?30,"Medication Given",!
  • Line Location: DETPRT+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DETPRT+1
Function Call: WRITE
  • Prompt: !,"Action Date/Time",?30,"Medication Given",!
  • Line Location: DETPRT+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DETPRT+6
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: SUMNDC+6
Function Call: WRITE
  • Prompt: !,Y,!,$S(PSBTYP="NDC1":"Unit Dose:",PSBTYP="NDCA":"Additives:",PSBTYP="NDCS":"Solutions:",1:"")
  • Line Location: SUMNDC+12
Function Call: WRITE
  • Prompt: !,PSBDNAME,?55,PSBNDC,?80,$G(^TMP($J,"BCMA1",PSBDT,PSBTYP,PSBDNAME,PSBDIEN,PSBNDC))
  • Line Location: SUMNDC+13
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SUMNDC+18
Function Call: WRITE
  • Prompt: !,?55,"Report Totals: ",?80,PSBCNT
  • Line Location: SUMNDC+20
Routine Call
  • %ZIS
  • Line Location:
    • TAS+16
Routine Call
  • DIC
  • Line Location:
    • PSBIHS4+4
Routine Call
  • %ZIS
  • Line Location:
    • TAS+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^PSB(53.79 - [#53.79] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.7 - [#50.7] DETPRT+7
^PS(52.6 - [#52.6] NEW+30, DETPRT+13, DETPRT+14
^PS(52.7 - [#52.7] NEW+36, DETPRT+17, DETPRT+18
^PSB(53.79 - [#53.79] NEW+12, NEW+13, NEW+14, NEW+15, NEW+18, NEW+20, NEW+21, NEW+27, NEW+28, NEW+30
, NEW+34, NEW+35, NEW+36, DETPRT+7
^PSDRUG - [#50] NEW+23, NEW+24, NEW+25, NEW+30, NEW+31, NEW+32, NEW+36, NEW+37, NEW+38, DETPRT+5
, DETPRT+10, DETPRT+13, DETPRT+17
^PSDRUG("ASP" DETPRT+5
^TMP($J NEW+11!, NEW+19*, NEW+21*, NEW+24*, NEW+25*, NEW+28*, NEW+31*, NEW+32*, NEW+35*, NEW+37*
, NEW+38*, NEW+39, NEW+42, DETPRT+2, DETPRT+3, DETPRT+5, DETPRT+8, DETPRT+9, DETPRT+10, DETPRT+11
, DETPRT+12, DETPRT+14, DETPRT+15, DETPRT+16, DETPRT+18, SUMNDC+5, SUMNDC+7, SUMNDC+9, SUMNDC+10, SUMNDC+11
, SUMNDC+13, SUMNDC+16, SUMNDC+17, STOP+1!

Label References

Name Line Occurrences
DETPRT NEW+44
END END+5
NEW TAS+8
ST2 ST2+4
STOP ST2+2, END+2, END+6, END+7, END+8, NEW+45
SUMNDC NEW+43

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % END+6*, END+7*, NEW+7
%DT ST2+2*, ST2+3!, ST2+5!, END+2*, END+3!
%DT("A" ST2+1*, END+1*
%ZIS TAS+1*, TAS+2!
DFN NEW+1~, NEW+3*
DIC PSBIHS4+4*, PSBIHS4+7!
DIC(0 PSBIHS4+4*, PSBIHS4+7!
DUZ("AG" NEW+5
HEAD NEW+8*, NEW+40, DETPRT+1, DETPRT+6, SUMNDC+4, SUMNDC+12, STOP+1!
HEAD1 NEW+9*, NEW+40, DETPRT+1, DETPRT+6, SUMNDC+4, SUMNDC+12, STOP+1!
HEAD2 SUMNDC+2~, SUMNDC+3*, SUMNDC+4, SUMNDC+12
IO TAS+8, TAS+9
IO("Q" TAS+7, TAS+11, TAS+18!
IO(0 TAS+9
IOM NEW+40, DETPRT+1, DETPRT+6, SUMNDC+18
ION TAS+15
IOSL DETPRT+6, SUMNDC+12
J NEW+20*, NEW+21, NEW+27*, NEW+28, NEW+30, NEW+34*, NEW+35, NEW+36, NEW+40*, DETPRT+1*
, DETPRT+6*, SUMNDC+18*, STOP+1!
JJ STOP+1!
PG NEW+1~
POP TAS+3, STOP+1!
PSBBDATE ST2+3*, ST2+4, END+5, TAS+5!, NEW+12, STOP+1!
PSBCNT SUMNDC+1!*, SUMNDC+17*, SUMNDC+20, STOP+1!
PSBCNT( SUMNDC+15*, SUMNDC+16*, SUMNDC+19
PSBDATE NEW+1~, NEW+12*, NEW+13, NEW+24, NEW+25, NEW+31, NEW+32, NEW+37, NEW+38, DETPRT+2*
, DETPRT+3, DETPRT+4, DETPRT+5, DETPRT+8, DETPRT+9, DETPRT+10, DETPRT+11, DETPRT+12, DETPRT+14, DETPRT+15
, DETPRT+16, DETPRT+18
PSBDATEE NEW+1~, DETPRT+4*
PSBDFN PSBIHS4+6*, NEW+3, NEW+12, NEW+13, STOP+1!
PSBDIEN NEW+1~, NEW+30*, NEW+31, NEW+32, NEW+36*, NEW+37, NEW+38, DETPRT+5*, DETPRT+13*, DETPRT+17*
, SUMNDC+2~, SUMNDC+10*, SUMNDC+11, SUMNDC+13, SUMNDC+16, SUMNDC+17
PSBDNAME SUMNDC+2~, SUMNDC+9*, SUMNDC+10, SUMNDC+11, SUMNDC+13, SUMNDC+16, SUMNDC+17
PSBDNDC NEW+23*, NEW+24, NEW+25, NEW+30*, NEW+31, NEW+32, NEW+36*, NEW+37, NEW+38, STOP+1!
PSBDOB NEW+1~, NEW+5*
PSBDRUG NEW+1~
PSBDSIEN NEW+1~, NEW+21*, NEW+23, NEW+24, NEW+25, DETPRT+8*, DETPRT+9, DETPRT+10
PSBDT SUMNDC+5*, SUMNDC+6, SUMNDC+7, SUMNDC+9, SUMNDC+10, SUMNDC+11, SUMNDC+12, SUMNDC+13, SUMNDC+15, SUMNDC+16
, SUMNDC+17, SUMNDC+19, STOP+1!
PSBDU NEW+1~, DETPRT+9*, DETPRT+10
PSBDV TAS+5!
PSBEDATE END+1*, END+3*, END+4*, END+5, TAS+5!, NEW+12, STOP+1!
PSBIEN NEW+1~, NEW+13*, NEW+14, NEW+15, NEW+18, NEW+19, NEW+20, NEW+21, NEW+27, NEW+28
, NEW+30, NEW+34, NEW+35, NEW+36, DETPRT+3*, DETPRT+5, DETPRT+7, DETPRT+8, DETPRT+9, DETPRT+10
, DETPRT+11, DETPRT+12, DETPRT+14, DETPRT+15, DETPRT+16, DETPRT+18, DETPRT+19, SUMNDC+2~
PSBLASTACT NEW+1~, NEW+15*, NEW+19, NEW+21, NEW+28, NEW+35
PSBLDT SUMNDC+2~, SUMNDC+6, SUMNDC+13*
PSBNAME NEW+1~, NEW+5*
PSBNDC NEW+1~, DETPRT+5*, DETPRT+13*, DETPRT+14, DETPRT+17*, DETPRT+18, SUMNDC+2~, SUMNDC+11*, SUMNDC+13, SUMNDC+16
, SUMNDC+17
PSBNOW NEW+7*, STOP+1!
PSBOIEN NEW+1~, NEW+30*, NEW+36*, DETPRT+5*, DETPRT+7, DETPRT+12*, DETPRT+13, DETPRT+14, DETPRT+16*, DETPRT+17
, DETPRT+18
PSBOITEM NEW+1~, NEW+18*, NEW+19
PSBORDET END+6*, END+8, NEW+44, STOP+1!
PSBPID NEW+1~, NEW+5*
PSBRTNDC END+7*, END+8, NEW+43, STOP+1!
PSBSTATUS NEW+1~, NEW+14*, NEW+17
PSBTYP SUMNDC+2~, SUMNDC+7*, SUMNDC+8, SUMNDC+9, SUMNDC+10, SUMNDC+11, SUMNDC+12, SUMNDC+13, SUMNDC+16, SUMNDC+17
U NEW+5, NEW+14, NEW+15, NEW+18, NEW+20, NEW+21, NEW+23, NEW+24, NEW+25, NEW+28
, NEW+30, NEW+31, NEW+32, NEW+35, NEW+36, NEW+37, NEW+38, DETPRT+5, DETPRT+9, DETPRT+10
, DETPRT+13, DETPRT+14, DETPRT+17, DETPRT+18
VA NEW+6!
VA("PID" NEW+5
VADM NEW+6!
VADM(1 NEW+5
VADM(3 NEW+5
VISN TAS+5!
X PSBIHS4+7!, ST2+2, END!, END+2, END+4
X1 END+4*!
X2 END+4*!
Y PSBIHS4+4, PSBIHS4+5, PSBIHS4+6, PSBIHS4+7!, ST2+3!, ST2+4*, ST2+5!, END+3!, NEW+7*, DETPRT+4*
, DETPRT+7, SUMNDC+6*, SUMNDC+12*
ZTDESC TAS+13*, TAS+18!
ZTIO TAS+15*, TAS+18!
ZTRTN TAS+12*, TAS+18!
ZTSAVE TAS+18!
ZTSAVE("PSBBDATE" TAS+14*
ZTSAVE("PSBDFN" TAS+14*
ZTSAVE("PSBEDATE" TAS+14*
ZTSAVE("PSBORDET" TAS+14*
ZTSAVE("PSBRTNDC" TAS+14*
ZTSK TAS+17, TAS+18!
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