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

Package: Barcode Medication Administration

Routine: PSBOMT1


Information

PSBOMT1 ;BIRMINGHAM/TEJ-BCMA MEDICATION THERAPY REPORT ;Mar 2004

Source Information

Source file <PSBOMT1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 LIST^DIC  ($$GET1,D)^DIQ  
Barcode Medication Administration 1 ($$PTFTR,PT)^PSBOHDR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Barcode Medication Administration 1 PSBOMT  

Entry Points

Name Comments DBIA/ICR reference
FTR ;
CLEANSUM ; KILL ALL BUN THE "PSBIENS" LEVEL
HDR ; Header
GETADSO ; GET ALL ADDITIVES FOR ALL ORDERABLE ITEMS
PARSE(X,CNT) ;Split text for wrapping.
CLEANALL ; KILL ALL TMP LEVELS USED VARIABLES
PAD(X,CNT) ;
FINDIENS ; USE PSBOIS,PSBADDS AND PSBSOLS TO FIND ALL IENS FOR THE RPT
MAKELINE(X,CNT) ;LINE OF WHAT'S PASSED IN CNT TIMES
LEGEND ; Report Legend

External References

Name Field # of Occurrence
LIST^DIC GETADSO+3, GETADSO+10
$$GET1^DIQ FINDIENS+6, FINDIENS+14, FINDIENS+22, LEGEND+7
D^DIQ HDR+11, HDR+12
$$PTFTR^PSBOHDR LEGEND+16
PT^PSBOHDR LEGEND+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LEGEND+18
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","="),!
  • Line Location: LEGEND+19
Function Call: WRITE
  • Prompt: !,PSBLGDO(X1)
  • Line Location: LEGEND+20
Function Call: WRITE
  • Prompt: !!,$TR($J("",IOM)," ","="),!
  • Line Location: LEGEND+21
Function Call: WRITE
  • Prompt: !
  • Line Location: FTR+1
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","=")
  • Line Location: FTR+2
Function Call: WRITE
  • Prompt: !,PSBHDR("NAME"),?(IOM-11\2),PSBHDR("SSN"),?(IOM-$L(X)),X
  • Line Location: FTR+4
Function Call: WRITE
  • Prompt: !,"BCMA MEDICATION THERAPY REPORT",?(IOM-$L(PSBDTTM)),PSBDTTM
  • Line Location: FTR+5
Routine Call
  • DIC
  • Line Location:
    • GETADSO+3
    • GETADSO+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^PS(52.6 - [#52.6] LIST^DIC
^PS(52.7 - [#52.7] LIST^DIC
^PSB(53.79 - [#53.79] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSB(53.79 - [#53.79] FINDIENS+3, FINDIENS+4, FINDIENS+5, FINDIENS+9, FINDIENS+10, FINDIENS+12, FINDIENS+13, FINDIENS+17, FINDIENS+18, FINDIENS+20
, FINDIENS+21
^TMP("PSB" CLEANALL+1!, CLEANSUM+1!
^TMP("PSJ1" CLEANALL+1!, CLEANSUM+1!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT MAKELINE~, MAKELINE+3, PARSE~, PARSE+1, PARSE+4, PAD~, PAD+1
>> CNTX PARSE+1*, PARSE+2, PARSE+3, PARSE+4
>> CNTXX PARSE+4*
DUZ(2 HDR+6
IOF HDR+1
IOM HDR+7, LEGEND+19, LEGEND+21, FTR+2, FTR+4, FTR+5
IOSL LEGEND+15, LEGEND+18, FTR+1
>> PSB LEGEND+6*, LEGEND+7, LEGEND+8
PSBAOUT GETADSO+1!, GETADSO+7!
PSBAOUT("DILIST" GETADSO+4, GETADSO+5, GETADSO+6
>> PSBCFLG HDR+15
>> PSBDT FINDIENS+3*, FINDIENS+4
>> PSBDTTM FTR+5
PSBHDR HDR+9!, LEGEND+17
PSBHDR("NAME" FTR+4
PSBHDR("ROOM" FTR+3
PSBHDR("SSN" FTR+4
PSBHDR("WARD" FTR+3
PSBHDR(1 HDR+10*, HDR+11*, HDR+12*
PSBHDR(2 HDR+13*, HDR+14*
PSBHDR(3 HDR+15*, HDR+16*
PSBHDR(4 HDR+15*
>> PSBIEN FINDIENS+4*, FINDIENS+5, FINDIENS+6, FINDIENS+9*, FINDIENS+10, FINDIENS+12, FINDIENS+13, FINDIENS+14, FINDIENS+17*, FINDIENS+18
, FINDIENS+20, FINDIENS+21, FINDIENS+22
>> PSBINIT LEGEND+7*
>> PSBLGD("INITIALS" LEGEND+6, LEGEND+7*, LEGEND+8!, LEGEND+14
>> PSBLGD("ORDER TYPES" , LEGEND+2*, LEGEND+3*, LEGEND+4*, LEGEND+5*, LEGEND+13
PSBLGDO LEGEND+1!
PSBLGDO( LEGEND+13*, LEGEND+14*, LEGEND+20
PSBLGDO("" LEGEND+15, LEGEND+18, LEGEND+20
PSBLGDO(0 LEGEND+9*
PSBLGDO(1 LEGEND+10*
PSBLGDO(2 LEGEND+11*, LEGEND+14*
PSBLGDO(3 LEGEND+12*
>> PSBNO LEGEND+11, LEGEND+13
PSBOIP CLEANALL+1!
PSBOIP("OIP" GETADSO+2, GETADSO+9
>> PSBOUTP("" HDR+5
>> PSBOUTP(0 HDR+4*
>> PSBPG HDR+5*, HDR+7
>> PSBPGNUM HDR+4*, HDR+5
>> PSBPGRM HDR+7*
>> PSBRPNM HDR+3*
>> PSBRPT( HDR+8, HDR+11, HDR+12, HDR+14
>> PSBRPT(0 HDR+4*, HDR+6*
PSBSOUT GETADSO+1!, GETADSO+14!
PSBSOUT("DILIST" GETADSO+11, GETADSO+12, GETADSO+13
>> PSBSTOP FINDIENS+3, FINDIENS+13, FINDIENS+21
>> PSBSTRT FINDIENS+3, FINDIENS+13, FINDIENS+21
>> PSBXDFN FINDIENS+3, FINDIENS+4, FINDIENS+9, FINDIENS+10, FINDIENS+17, FINDIENS+18, LEGEND+17
>> TMP("PSBADDS" GETADSO+6*, FINDIENS+8, CLEANALL+1!, CLEANSUM+1!
>> TMP("PSBIENS" FINDIENS+6*, FINDIENS+14*, FINDIENS+22*, CLEANALL+2!, CLEANSUM+1!
>> TMP("PSBOIS" FINDIENS+2, CLEANSUM+1!
>> TMP("PSBSOLS" GETADSO+13*, FINDIENS+16, CLEANALL+1!, CLEANSUM+1!
U FINDIENS+5, FINDIENS+12, FINDIENS+20, HDR+6, HDR+8, HDR+11, HDR+12, HDR+14
>> UOA PARSE+4
>> UOAX PARSE+1*, PARSE+2*, PARSE+3*, PARSE+4
X FTR+3*, FTR+4, MAKELINE~, MAKELINE+3, PARSE~, PARSE+1, PAD~, PAD+1
>> X1 LEGEND+13*, LEGEND+14*, LEGEND+20*
>> X2 LEGEND+13*, LEGEND+14*
>> XA GETADSO+2*, GETADSO+5, GETADSO+9*, GETADSO+12, FINDIENS+2*, FINDIENS+3, FINDIENS+4, FINDIENS+8*, FINDIENS+11, FINDIENS+16*
, FINDIENS+19
>> XB GETADSO+4*, GETADSO+5, GETADSO+6, GETADSO+11*, GETADSO+12, GETADSO+13, FINDIENS+10*, FINDIENS+11, FINDIENS+18*, FINDIENS+19
Y HDR+11*, HDR+12*, HDR+14*, MAKELINE+1~, MAKELINE+2*, MAKELINE+3*, MAKELINE+4
Z MAKELINE+1~, MAKELINE+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables |  All