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

Package: Outpatient Pharmacy

Routine: PSORXRPT


Information

PSORXRPT ;BIR/SAB-reprint of a prescription label ;29-Aug-2013 07:12;PLS

Source Information

Source file <PSORXRPT.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Outpatient Pharmacy 6 EN^PSOHLSN1  $$LMREJ^PSOREJU1  P^PSORXL  VALID^PSORXRP1  (CHK1,FSIG)^PSOUTLA  EN3^PSOUTLA1  
VA Fileman 3 NOW^%DTC  $$GET1^DIQ  ^DIR  
Registration 2 (DEM,KVA)^VADPT  FULL^VALM1  
IHS Changes To Pharmacy 1 $$ESIG^APSPFUNC  
Pharmacy Data Management 1 (PSOL,PSOUL)^PSSLOCK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Pharmacy 1 APSPRIS  

Entry Points

Name Comments DBIA/ICR reference
PAUSE
BCK
ULR ;
ACT1
KILL
ACT ; IHS/CIA/PLS - 12/22/03 - Added 'O' to DIR(0)
BCK1

External References

Name Field # of Occurrence
NOW^%DTC ACT1+4
$$ESIG^APSPFUNC BCK+1
$$GET1^DIQ BCK1+40, BCK1+41
^DIR BCK1+33, BCK1+43, PAUSE, ACT+5
EN^PSOHLSN1 BCK1+17, BCK1+20
$$LMREJ^PSOREJU1 BCK1+1
P^PSORXL BCK1+61
VALID^PSORXRP1 BCK1+8
CHK1^PSOUTLA BCK1+27
FSIG^PSOUTLA BCK1+52
EN3^PSOUTLA1 BCK1+53
PSOL^PSSLOCK BCK1+2
PSOUL^PSSLOCK ULR+1
DEM^VADPT BCK1+18
KVA^VADPT KILL
FULL^VALM1 BCK1+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),$C(7)
  • Line Location: BCK+0
Function Call: WRITE
  • Prompt: !,$C(7),"RX MAY NOT BE PRINTED using this option, use SUSPENSE FUNCTIONS Options."
  • Line Location: BCK1+22
Function Call: WRITE
  • Prompt: !,"Prescription is Non-Verified",!!
  • Line Location: BCK1+25
Function Call: WRITE
  • Prompt: !,"Prescription is waiting for others to be verified",!!
  • Line Location: BCK1+26
Function Call: WRITE
  • Prompt: !?3,"Prescription is on Hold"
  • Line Location: BCK1+28
Function Call: WRITE
  • Prompt: !?3,"Prescription is Pending Due to Drug Interactions"
  • Line Location: BCK1+29
Function Call: WRITE
  • Prompt: !?3,"Prescription is Discontinued"
  • Line Location: BCK1+30
Function Call: WRITE
  • Prompt: !!,"Rx # "_P(1),?23,$E(P(13),4,5)_"/"_$E(P(13),6,7)_"/"_$E(P(13),2,3),!,$S($D(^DPT(+P(2),0)):$P(^(0),"^"),1:"Not on File"),?30,"#"_P(7),!
  • Line Location: BCK1+50
Function Call: WRITE
  • Prompt: !!,$S($G(^PSRX(DA,"TN"))]"":P(6),(P(6)=+P(6))&$D(^PSDRUG(P(6),0)):$P(^(0),"^"),1:P(6)),!
  • Line Location: BCK1+56
Function Call: WRITE
  • Prompt: PHYS
  • Line Location: BCK1+56
Function Call: WRITE
  • Prompt: ?25,$S($D(^VA(200,+P(16),0)):$P(^(0),"^"),1:"Unknown"),!,"# of Refills: "_$G(P(9))
  • Line Location: BCK1+57
Routine Call
  • DIR
  • Line Location:
    • BCK1+33
    • BCK1+43
    • PAUSE
    • ACT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] BCK1+19, BCK1+50
^PS(52.4 - [#52.4] BCK1+25, BCK1+26
^PS(52.5 - [#52.5] BCK1+22
^PSDRUG - [#50] BCK1+56
^PSRX - [#52] BCK1+4, BCK1+9, BCK1+10, BCK1+11, BCK1+12, BCK1+15, BCK1+16*, BCK1+17, BCK1+20*, BCK1+23
, BCK1+26, BCK1+27, BCK1+49, BCK1+51, BCK1+56, BCK1+58, ACT1, ACT1+1, ACT1+2*, ACT1+4*
, ACT1+5*
^VA(200 - [#200] BCK1+56, BCK1+57

Label References

Name Line Occurrences
ACT BCK1+46
ACT1 BCK1+21
KILL BCK1+3, BCK1+10, BCK1+11, BCK1+12, BCK1+21, BCK1+33, BCK1+44, BCK1+46
PAUSE BCK1+18, BCK1+22, BCK1+25, BCK1+26, BCK1+27, BCK1+28, BCK1+29, BCK1+30, BCK1+46, BCK1+47
ULR BCK1+3, BCK1+10, BCK1+11, BCK1+12, BCK1+21, BCK1+33, BCK1+44, BCK1+46, PAUSE+1

Naked Globals

Name Field # of Occurrence
^("TN" BCK1+49
^(0 BCK1+50, BCK1+56, BCK1+57
^(2 BCK1+16, BCK1+17, BCK1+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ACT1+4!, KILL!
%H ACT1+4!
%I ACT1+4!
>> APSPREIS ACT1+4
BSIG BCK1+54!
BSIG( BCK1+53
C KILL!
COMM BCK1+17*!
COPIES BCK1+31*, BCK1+32, BCK1+34*, BCK1+63, BCK1+69!, ACT1+4, KILL!
D BCK1+51*!, BCK1+52*, BCK1+53*, BCK1+54!
DA BCK1+9*, BCK1+16, BCK1+17, BCK1+22, BCK1+23, BCK1+25, BCK1+26, BCK1+27, BCK1+49, BCK1+51
, BCK1+52, BCK1+53, BCK1+56, BCK1+65, BCK1+67, BCK1+68, PAUSE!, ACT1, ACT1+1, ACT1+2
, ACT1+4, ACT1+5, KILL!
DFN BCK1+18*, BCK1+26*, KILL!
DIC KILL!
DIR BCK1+32!, BCK1+33!, BCK1+42!, BCK1+43!, PAUSE!, ACT+4!, ACT+5!, KILL!
DIR("?" BCK1+32*, ACT+4*
DIR("A" BCK1+32*, BCK1+42*, PAUSE*, ACT+4*
DIR("B" BCK1+32*, BCK1+42*, ACT+4*
DIR(0 BCK1+32*, BCK1+42*, PAUSE*, ACT+4*
DIROUT ACT+5, KILL!
DIRUT BCK1+33, BCK1+42!, BCK1+43, BCK1+44, BCK1+46, PAUSE!, ACT+5, KILL!
DT BCK1+9, BCK1+15
DTOUT PAUSE!, KILL!
DUOUT PAUSE!, KILL!
DUZ ACT+6, ACT1+4
FSIG BCK1+51!
FSIG( BCK1+52
I BCK1+48*, KILL!
IOP BCK1+69!
IR ACT1+1*, ACT1+2*, ACT1+4!
J BCK1+23*, ACT1*, ACT1+1*, KILL!
JJJ KILL!
K KILL!
>> ORN BCK1, BCK1+4, BCK1+5, BCK1+6, BCK1+7, BCK1+8, BCK1+63, BCK1+64
P KILL!
P( BCK1+48*
P(1 BCK1+50
P(13 BCK1+50
P(16 BCK1+57
P(2 BCK1+50
P(4 BCK1+56
P(6 BCK1+49*, BCK1+56
P(7 BCK1+50
P(9 BCK1+57
PC ACT1+4!
PCOM BCK1+20*, BCK1+47, BCK1+69!, ACT+5*, ACT1+4!, KILL!
PCOMX BCK1+69!, ACT+4, ACT+5*, ACT1+4*, KILL!
PDA BCK1+9*, BCK1+18, BCK1+19, BCK1+31, BCK1+41, BCK1+48, KILL!
PHYS BCK1+56*!
>> POERR BCK1+3, BCK1+27, BCK1+47, BCK1+61, PAUSE
PPL BCK1+9*, BCK1+69!, PAUSE!, KILL!
PS ACT1+4!
PSL BCK1+69!
PSNP BCK1+69!
>> PSOBEDT BCK
>> PSOCLC ACT+6*
PSODISP BCK1~, BCK1+43*, BCK1+64
>> PSODIV BCK1+27
PSOELSE BCK1+61!*, BCK1+62, BCK1+69!
>> PSOLST( BCK1, BCK1+4, BCK1+5, BCK1+6, BCK1+7, BCK1+8, BCK1+63, BCK1+64
PSOMSG BCK1+2!, KILL!
>> PSOPAR BCK1+40, BCK1+41
PSORPLRX BCK1*, BCK1+1, BCK1+2, PAUSE+1!, KILL!, ULR+1
>> PSORX("PSOL" BCK1+65*, BCK1+66, BCK1+67*, BCK1+68*
>> PSOSITE BCK1+27, BCK1+40
>> PSOX1 BCK1+66*
>> PSOX2 BCK1+66*, BCK1+67, BCK1+68
PSPOP BCK1+27*, BCK1+69!
PSPRXN BCK1+27*, KILL!
>> PSX BCK1+23*
QFLG BCK1+3!, BCK1+5*, BCK1+6*, BCK1+7*, BCK1+8, BCK1+10*, BCK1+11*, BCK1+12*, KILL!
REPRINT BCK1+9*, KILL!
RX BCK1+8*, BCK1+9*, BCK1+10, BCK1+11, BCK1+12, BCK1+15, BCK1+16, BCK1+17, BCK1+20, BCK1+58
, PAUSE!, KILL!
RXF BCK1+9*, ACT1*, ACT1+4!, KILL!
>> RXFL( BCK1+58*
>> RXPR( BCK1+5
>> RXRP( BCK1+6, BCK1+63*, BCK1+64*
>> RXRS( BCK1+7
SIDE BCK1+39*, BCK1+63, BCK1+69!, KILL!
>> ST BCK1+20*, ACT1+4, ACT1+5
>> STA BCK1+9*, BCK1+28, BCK1+29, BCK1+30
>> VADM(6 BCK1+18, BCK1+19, BCK1+20
>> VALMBCK BCK*, BCK1+1, BCK1+2*, BCK1+5*, BCK1+6*, BCK1+7*, BCK1+8*, BCK1+10*, BCK1+11*, BCK1+12*
, PAUSE*
>> VALMSG BCK*, BCK1+1, BCK1+2*, BCK1+5*, BCK1+6*, BCK1+7*, BCK1+8*, BCK1+10*, BCK1+11*, BCK1+12*
X BCK1+4*, BCK1+22*!, BCK1+24!, ACT+5, KILL!
XX ACT1+4!
Y BCK1+4*, BCK1+9, BCK1+34, BCK1+43, KILL!
Y(0 BCK1+4*, BCK1+9
Z KILL!
>> ZD( BCK1+9*, PAUSE!
ZZZ BCK1+58*, BCK1+69!
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 |  Naked Globals |  Local Variables |  All