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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSIVLABL

Package: Inpatient Medications

Routine: PSIVLABL


Information

PSIVLABL ;BIR/PR-PRINT OUT LABELS ;03-Apr-2013 14:18;PLS

Source Information

Source file <PSIVLABL.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Inpatient Medications 5 $$ENDTC^PSGMI  ($$BCMA,UP2,UP3)^PSIVBCID  $$CONVER1^PSIVORE2  ^PSIVSTAT  ENIV^PSJAC  
Kernel 2 PSET^%ZISP  ($$DT,$$FMADD,$$FMTE)^XLFDT  
VA Fileman 1 (C,NOW)^%DTC  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Inpatient Medications 7 PSIVHYPL  PSIVHYPR  PSIVLABR  PSIVLBL1  PSIVORE1  PSIVORE2  PSIVSUS  

Entry Points

Name Comments DBIA/ICR reference
OFFSET(TEXT,TEXT1) ;IHS/MSC/PB - 4/25/12 - computes length of text on a line, TEXT = the label data from the existing line, TEXT1 = the new text "Do Not Use After:" or the date depending on the line being printed
PMR ; Print Med Route on label
P
RE ;
MESS ;PSJ*5*184 -make MESS a local array so all messages display for all additives.
BARCODE
SOL
MEDRT ;Find Medication Route
Q
START
SETP
DEM ;Get demographics and see if label is example only
ENX ;Print example label
INF
CONVER ;Expand dose to date.dose and set in X
SOL1

External References

Name Field # of Occurrence
C^%DTC CONVER+3
NOW^%DTC DEM+6, DEM+21
PSET^%ZISP BARCODE
$$ENDTC^PSGMI DEM+6
$$BCMA^PSIVBCID RE+4
UP2^PSIVBCID RE+26
UP3^PSIVBCID SOL+1
$$CONVER1^PSIVORE2 CONVER+1
^PSIVSTAT START+6
ENIV^PSJAC DEM+6
$$DT^XLFDT RE+14
$$FMADD^XLFDT RE+14
$$FMTE^XLFDT RE+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DEM+19
Function Call: WRITE
  • Prompt: !
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !
  • Line Location: P+4
Function Call: WRITE
  • Prompt: $E(X,1,PSIVRM)
  • Line Location: P+8
Function Call: WRITE
  • Prompt: !
  • Line Location: P+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PMR+6
Function Call: WRITE
  • Prompt: $E(X,1,PSIVRM)
  • Line Location: PMR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PMR+13
Function Call: WRITE
  • Prompt: @IOBARON
  • Line Location: BARCODE+2
Function Call: WRITE
  • Prompt: PSJBCID
  • Line Location: BARCODE+3
Function Call: WRITE
  • Prompt: @IOBAROFF
  • Line Location: BARCODE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: BARCODE+5
Function Call: WRITE
  • Prompt: PSJBCID
  • Line Location: BARCODE+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(2 - [#3.2] DEM+2
^PS(51.2 - [#51.2] DEM+15, MEDRT+3
^PS(52.6 - [#52.6] RE+18, RE+24, MESS+1
^PS(52.7 - [#52.7] SOL+2, SOL1
^PS(55 - [#55] DEM+8, DEM+13, DEM+21*, SETP, RE+13, RE+14, RE+16, RE+18, RE+24, SOL
, SOL+3, MEDRT+2, INF+1, SOL1
^PS(59.5 - [#59.5] RE+11, INF+6, OFFSET+2

Label References

Name Line Occurrences
BARCODE RE+9
CONVER SOL+5
ENX DEM+6
MEDRT SOL+4
MESS RE+21, RE+27
OFFSET INF+12
P DEM+17, RE+16, RE+17, RE+19, RE+25, SOL+1, SOL+2, SOL+3, SOL+4, SOL+5
, INF, INF+1, INF+2, INF+3, INF+5, INF+6, INF+13
PMR DEM+16, MEDRT+4
Q DEM+8
RE DEM+11, START+1
SETP DEM+8, ENX+1
SOL RE+22
SOL1 SOL+1
START DEM+22

Naked Globals

Name Field # of Occurrence
^( DEM+2, RE+18, RE+24, SOL
^(0 RE+18, RE+24, SOL, SOL1
^(1 DEM+2
^(3 INF+1
^(4 INF+6
^(9 DEM+21*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEM+6, DEM+21
BAG Q!
CX Q!
>> DFN DEM+8, DEM+13, DEM+21, SETP, RE+4, RE+13, RE+14, RE+16, RE+18, RE+24
, RE+26, SOL, SOL+1, SOL+3, MEDRT+2, INF+1, SOL1
DO RE+1!
DT RE+16
EXDT RE+12~, RE+14*, RE+15
I DEM+1~, DEM+2*, P+5*, P+7*, P+9*, PMR+7*, PMR+10*, PMR+12*, BARCODE+7*, BARCODE+9*
, OFFSET+4*
>> IOBAROFF BARCODE+4
>> IOBARON BARCODE+2
IOST(0 DEM+2
>> LABWID OFFSET+2*, OFFSET+3, OFFSET+6
LINE DEM+11*, DEM+19*, START+1*, START+3*, Q!, P*, P+1, P+2*, PMR+2*, PMR+3
, PMR+4*
MESS Q!, INF+5
MESS( INF+5, MESS+1*
>> NEWTEXT OFFSET+4*, OFFSET+5
>> ON DEM+8, DEM+13, DEM+21, SETP, RE+4, RE+13, RE+14, RE+16, RE+18, RE+24
, SOL, SOL+3, MEDRT+2, INF+1, SOL1
>> P( SETP*
>> P(11 INF+3
>> P(15 RE+3*, CONVER+1, CONVER+3
>> P(16 RE+2*, RE+3*, RE+24
>> P(23 SOL+3
>> P(4 DEM+14, RE+2, SOL+3, SOL+4
>> P(5 RE+2
>> P(8 INF
>> P(9 INF+2
P16 DEM+8*, Q!, RE+3
PDATE Q!, CONVER+2*, CONVER+3*, CONVER+4
PDOSE Q!, CONVER+2*, CONVER+3, CONVER+4
>> PRTFLG INF+12, OFFSET+2*, OFFSET+6*, OFFSET+7*
>> PRTLINE INF+12, OFFSET+5*, OFFSET+6
PSIMESS Q!, INF+5*
PSIV Q!, RE+18*, RE+24*, RE+26, SOL*, SOL+1, SOL+2, INF+6*, SOL1
PSIV1 DEM+11*, DEM+14, START*, Q!, RE+2, RE+3, RE+4, RE+7, RE+9, RE+26
, SOL+1, SOL+4, SOL+5, INF+12, CONVER+1, CONVER+2, CONVER+3
PSIV2 DEM+11*, DEM+18, Q!, RE+4, INF+12
PSIVCT DEM+8!, DEM+21, START+6, Q!, RE+4
PSIVDOSE Q!, SOL+5*, CONVER+1, CONVER+2, CONVER+3
>> PSIVEXAM DEM+6
PSIVFLAG DEM+11*, DEM+22!, ENX+1*, START+2, Q!, RE+18, RE+22
>> PSIVID( RE+7*
>> PSIVNOL DEM+8, DEM+11*, DEM+18*, DEM+21, START, RE+4, INF+12
>> PSIVNOW DEM+6*, INF+12
PSIVRM DEM+8*, ENX+1*, Q!, P+8, P+11, PMR+11, PMR+14
>> PSIVRP DEM+12*, DEM+13*, DEM+15, MEDRT+1*, MEDRT+2*, MEDRT+3
>> PSIVRT DEM+12*, DEM+15*, DEM+16, MEDRT+1*, MEDRT+3*, MEDRT+4
PSIVSH DEM+22!
>> PSIVSITE DEM+8, DEM+10, DEM+14, DEM+19, ENX+1, START+3, RE+17, SOL+4, P+1, P+4
, PMR+3, PMR+6
>> PSIVSN RE+11, INF+6, OFFSET+2
>> PSIVT RE+2
PSIVWD DEM+6*, Q!, RE+16
>> PSIVWMFL RE+7
>> PSJBCID RE+4*, RE+7, BARCODE+3, BARCODE+8
>> PSJBLN RE+26, SOL+1
PSJIO DEM+1~, DEM+3*, DEM+9, DEM+19, DEM+20, START+3, START+4, START+5, RE+8, P+3
, P+10, PMR+5, PMR+13, BARCODE+1, BARCODE+6
PSJIO( DEM+2*, P+5, P+7, P+9, PMR+7, PMR+10, PMR+12, BARCODE+7, BARCODE+9
PSJIO("EL" DEM+20, START+4
PSJIO("FE" START+5
PSJIO("FI" DEM+9
PSJIO("SL" RE+8
>> SPACES OFFSET+3*, OFFSET+4, OFFSET+7
TEXT OFFSET~, OFFSET+3, OFFSET+5
TEXT1 Q!, RE+13*, RE+15*, INF+12, OFFSET~, OFFSET+3, OFFSET+5
U DEM+6, DEM+8, DEM+10, DEM+13, DEM+14, DEM+15, DEM+19, DEM+21, SETP, ENX+1
, START+3, RE+11, RE+13, RE+14, RE+16, RE+17, RE+18, RE+24, SOL+2, SOL+3
, SOL+4, MEDRT+2, MEDRT+3, INF+6, SOL1, MESS+1
>> VA("BID" DEM+6
>> VADM(1 RE+17
>> VADM(2 DEM+6*, RE+16
>> VAIN(4 DEM+6
>> VAIN(5 RE+17
>> X DEM+16*, DEM+17*, SETP*, RE+16*, RE+17*, RE+18*, RE+24*, SOL+2*, SOL+3*, SOL+4*
, SOL+5*, MEDRT+4*, INF*, INF+1*, INF+2*, INF+3*, INF+5*, INF+6*, INF+12*, P
, P+8, P+11*, PMR+2, PMR+11, PMR+14*, SOL1*, CONVER+1*, CONVER+2, CONVER+3*, CONVER+4*
X0 DEM+1~, DEM+2*
>> X1 CONVER+3*
>> X2 CONVER+3*
XX1 Q!, RE+12~, RE+14*, CONVER+3*
XX2 Q!, CONVER+3*
>> Y DEM+21*, SETP*, RE+18*, RE+24*, RE+26*, INF+6*, MESS+1
>> YY RE+26*, SOL*, SOL+1
ZZ P+4*, P+6!, PMR+6*, PMR+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All