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

Package: Barcode Medication Administration

Routine: PSBMMRB


Information

PSBMMRB ;AITC/CR - REPORT FOR RESPIRATORY THERAPY MEDS ;11/29/18 5:37am

Source Information

Source file <PSBMMRB.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA FileMan 6 ^%DT  ^DIC  WAIT^DICD  ^DIE  $$GET1^DIQ  ^DIR  
Barcode Medication Administration 5 EN3^PSBMMRB  DQ^PSBO  NEW^PSBO1  WRDHDR^PSBORT  NWLIST^PSBRPC  
Kernel 5 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$NAME^XUAF4  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Barcode Medication Administration 2 PSB RPT RESP THERAPY MEDS  PSBMMRB  

Entry Points

Name Comments DBIA/ICR reference
ALL ; user gets all divisions
CHK1 ; The user must have at least one division from file #40.8 in his file #200 record.
ONE ; when user selects one division from many in file #200, look at file #40.8 for a match if available
EN1 ;
EN2
EN3 ; create new entry; note: national routine PSBO1 is modified for a new report,
; at NEW+3^PSBO1 add RT code for Respiratory Therapy Meds report
EXIT ; clean up.

External References

Name Field # of Occurrence
^%DT EN2+8
^%ZIS EN2+14
^%ZISC EN2+27, EN2+28
^%ZTLOAD EN2+23
^DIC ONE+6
WAIT^DICD EN2+26
^DIE EN3+9, EN3+46
$$GET1^DIQ EN1+4, EN3+19, EN3+20, EN3+22, ALL+4, ONE+3, ONE+8, ONE+9
^DIR CHK1+7
EN3^PSBMMRB EN2+26
DQ^PSBO EN3+48
NEW^PSBO1 EN3+3
WRDHDR^PSBORT EN3+30
NWLIST^PSBRPC EN3+35
$$FMTE^XLFDT EN3+28
$$NAME^XUAF4 ALL+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Report for Respiratory Therapy Medications",!
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !!,$C(7),"You have no valid divisions in the NEW PERSON file."
  • Line Location: EN2+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Your NEW PERSON file division was not found in the MEDICAL CENTER DIVISION file."
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+5
Function Call: WRITE
  • Prompt: !!,"Please choose a 132 character printer",!
  • Line Location: EN2+11
Function Call: WRITE
  • Prompt: "Queuing of this report is recommended",!
  • Line Location: EN2+12
Function Call: WRITE
  • Prompt: !,"Device not ready"
  • Line Location: EN2+15
Function Call: WRITE
  • Prompt: !,"No Medications Found"
  • Line Location: EN3+31
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ONE+1
Routine Call
  • DIE
  • Line Location:
    • EN3+9
    • EN3+46
Routine Call
  • DIC
  • Line Location:
    • ONE+6
Routine Call
  • DIR
  • Line Location:
    • CHK1+7
Routine Call
  • %ZIS
  • Line Location:
    • EN2+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] Classic Fileman Calls,  GET1^DIQ
^DG(43 - [#43] GET1^DIQ
^SC - [#44] GET1^DIQ
^PSB(53.69 - [#53.69] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] EN2+1, ALL+3, ONE+2
^DPT("CN" EN3+14, EN3+16
^PSB(53.69 - [#53.69] EN3+8, EN3+10, EN3+45, EN3+47
^SC("B" EN3+17
^TMP("PSBMMRB" EN1+3!, EN2+3, EN2+4, EXIT+2!, ALL+8*, ONE+11*
^TMP($J EN1+3!, EN3+24*, EN3+27, EN3+39, EXIT+2!
^VA(200 - [#200] EN2

Label References

Name Line Occurrences
ALL EN1+6
CHK1 EN1+5
EN2 EN1+5, EN1+6
EXIT EN2+29, EN3+4, EN3+8, EN3+45
ONE CHK1+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT EN2+6*
>> %DT("A" EN2+7*
%ZIS EN2+13*, EN2+15!
D0 EN1+2~, EN1+4*, EXIT+2!
DA EN3+6*, EN3+8, EN3+10, EN3+43*, EN3+45, EN3+47, EN3+48, EXIT+1!
DIC EN1+2~, ONE+5*
DIC("A" ONE+5*
DIC("B" ONE+4*
DIC("S" ONE+5*
DIC(0 ONE+5*
DIE EN3+6*, EN3+43*, EXIT+1!
>> DILOCKTM EN3+8, EN3+45
DIR CHK1+1~, CHK1+7!
DIR("?" CHK1+4*
DIR("A" CHK1+5*
DIR("B" CHK1+6*
DIR(0 CHK1+3*
>> DIROUT CHK1+7
>> DIRUT CHK1+7
DIVPTR EN3+15~, EN3+19*, EN3+20
DR EN3+7*, EN3+44*, EXIT+1!
DT EN3+28
>> DTOUT CHK1+7
>> DUOUT CHK1+7
DUZ EN2
DUZ(2 EN2+1, ALL+2, ALL+3, ALL+5, ALL+6, ONE+2
FLAGPRT EN3+37~, EN3+38*
IO EN2+26, EN2+27
IO("Q" EN2+16, EN2+25
IO(0 EN2+27
NUM EN3+34~, EN3+36*
NURIEN EN3+34~, EN3+42*
>> POP EN2+15
PSBDATA EN1+2~
PSBDIV EN1+2~, EN2+3*, EN3+23, ALL+2*, ALL+8, ONE+10*, ONE+11
PSBDPTR EN1+2~, ONE+9*, ONE+10
PSBDVNM EN1+2~, ONE+3*, ONE+4
>> PSBHDR(1 EN3+28*
PSBMUDV EN1+2~, EN1+4*, EN1+5, EN1+6, EN3+23, CHK1+10*, ALL+7*, ALL+8, ONE+11
PSBNAME EN1+2~, EN2+4*, ALL+6*, ALL+8, ONE+8*, ONE+11
PSBRPT EN3+3, EXIT+1!
PSBRPT(0 EN3+4, EN3+6, EN3+43
PSBSTA42 EN3+15~, EN3+20*, EN3+23
PSBSTIEN EN1+2~, ALL+3*, ALL+4, ONE+2*, ONE+3
>> PSBWRD EN3+29*
RDATE EN2+10*, EN3+7, EXIT+1!
SUB EN3+40~, EN3+41*, EN3+42
U EN2, EN2+3, EN2+4, EN3+4, EN3+6, EN3+36, EN3+42, EN3+43, ALL+8, ONE+11
WARD EN3+13~, EN3+22*, EN3+24, EN3+39*, EN3+41
WARD1 EN3+34~, EN3+35
WARD1( EN3+36
WARD2 EN3+34~
WARD2( EN3+36*, EN3+41, EN3+42
X EN1+2~
Y EN1+2~, EN2*, EN2+1*, EN2+2, EN2+9, EN2+10, CHK1+8, ALL+4*, ALL+5*, ONE+8
, ONE+9
Y(0 CHK1+9, CHK1+10, ALL+1*
>> ZTDESC("Respi ratory Therapy Meds Report" , EN2+22*
>> ZTRTN EN2+17*
>> ZTSAVE("PSBDIV" EN2+20*
>> ZTSAVE("PSBMUDV" EN2+19*
>> ZTSAVE("PSBNAME" EN2+21*
>> ZTSAVE("RDATE" EN2+18*
ZZA EN3+13~, EN3+14*, EN3+16, EN3+17
ZZAIEN EN3+15~, EN3+17*, EN3+18, EN3+19, EN3+22
ZZB EN3+13~, EN3+16*
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