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

Package: Outpatient Pharmacy

Routine: PSOUTLA1


Information

PSOUTLA1 ;BHAM ISC/RTR-Pharmacy utility program cont. ;06-Dec-2012 19:50;PLS

Source Information

Source file <PSOUTLA1.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 (,DD)^%DT  C^%DTC  EN^DDIOL  ^DIR  
Outpatient Pharmacy 2 EN^PSOHLSN1  $$REFIP^PSOUTLA1  
Kernel 1 ^%ZTLOAD  

Caller Graph

Caller Graph Total: 24

Package Total Caller Graph
Outpatient Pharmacy 24 PSO BACKFILL PRESCRIPTIONS  PSOATRF  PSOATRFC  PSOCPDUP  PSODRDU2  PSODRDUP  PSOHLDS3  PSOHLNEW  
PSOHLSG3  PSOHLSN1  PSOORFI1  PSOP  PSOP1  PSOPRF  PSORDS  PSOREF0  
PSORXLAB  PSORXPR  PSORXRP2  PSORXRPT  PSOSD0  PSOSDP  PSOUTL  PSOUTLA1  

Entry Points

Name Comments DBIA/ICR reference
REFIP(RXI,RFIL,TYP) ;Check if refill is Not Released and In Process and
; pending Auto Release by an external dispense machine.
; Input: RXI = internal Prescription no.
; RFIL= refill number
; TYP ="R"-refill or "P"-partial
; Returns 1 = In Process (Not OK to delete)
; 0 = Not In Process (OK to delete)
EN2(PSOBINTR,PSOBLGTH) ;
NUMFILLS(PSIRXN) ;Return number of fills thus far, or 0 if doesn't apply
; function returns: if Active drug, then number of refills thus far
; else return 0 for does not apply
; Input Variables: PSIRXN = internal RX number (Optional)
DEACHK(PSIRXN,PSDEA,PSDAYS,PCLOZ,PSOCS,PSMAXRF) ;Apply DEA restrictions
START ;
WARN1 ;partial del checks *259
EN3(PSOBINTR,PSOBLGTH) ;
PATCHR ;Begin task
PATCH ;Allow sites to backfill more than what was done at install
EN1 ;Formats condensed, back door sig in BSIG array
PATCHQ

External References

Name Field # of Occurrence
^%DT PATCH+10
DD^%DT PATCH+4
C^%DTC PATCH+4
^%ZTLOAD PATCH+11
EN^DDIOL WARN1+4, WARN1+8, WARN1+9, WARN1+10
^DIR PATCH+9, WARN1+16
EN^PSOHLSN1 PATCHR+13, PATCHR+17
$$REFIP^PSOUTLA1 WARN1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Your CPRS/Outpatient installation date is "_$G(PSOBACKS)_","_" which",!,"means we have already backfilled all active prescriptions and all",!,"prescriptions canceled or expired after "_$G(PSOBACKD)_"."
  • Line Location: PATCH+5
Function Call: WRITE
  • Prompt: !!,"If you want to backfill orders that were canceled or expired prior to this",!,"date of "_$G(PSOBACKD)_", enter an earlier date and those orders",!,"will be backfilled to CPRS.",!
  • Line Location: PATCH+6
Function Call: WRITE
  • Prompt: !!,"We cannot determine the date of the CPRS/Outpatient installation.",!
  • Line Location: PATCH+7
Function Call: WRITE
  • Prompt: !,"If you choose to backfill more orders to CPRS by utilizing this option,",!,"we remind you that disk storage can be significantly affected, depending on",!,"how many orders are backfilled.",!
  • Line Location: PATCH+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PATCH+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PATCH+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PATCH+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PATCH+11
Routine Call
  • DIR
  • Line Location:
    • PATCH+9
    • WARN1+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(51 - [#51] EN3+12
^PS(52.51 - [#52.51] REFIP+14, REFIP+15, REFIP+20
^PS(55 - [#55] PATCHR+4
^PS(59 - [#59] REFIP+18
^PS(59.7 - [#59.7] PATCH+2, PATCH+3
^PSDRUG - [#50] PATCHR+8
^PSRX - [#52] EN2+3, EN3+6, PATCHR+5, PATCHR+6, PATCHR+7, PATCHR+8*, PATCHR+9*, PATCHR+10*, PATCHR+11*, PATCHR+12
, PATCHR+15*, NUMFILLS+7, WARN1+2, WARN1+3

Label References

Name Line Occurrences
$$NUMFILLS DEACHK+25, DEACHK+33, DEACHK+45
PATCHQ PATCH+9, PATCH+10, PATCH+11
START EN3+8, EN3+9

Naked Globals

Name Field # of Occurrence
^("SIG" EN2+3, EN3+6
^(0 PATCHR+5
^(2 PATCHR+15
^(9 EN3+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT PATCH+10*
>> %DT("A" PATCH+10*
>> %DT(0 PATCH+10*
BBSIG EN2+2~, EN2+3*, EN2+5, EN2+6, EN3+5~, EN3+6*, EN3+7, EN3+8, START+1*, START+3
, START+4
BBWARN EN3+5~, EN3+8*, EN3+10*, START+1
BLIM EN2+2~, EN2+5, EN2+7*, EN3+5~, START+3, START+5*
BSIG EN2+1!, EN3+5!
BSIG( EN2+5*, EN2+9*, START+3*, START+7*
BSIG(1 EN2+10*, START+8*
BSIG(2 EN2+10!, START+8!
BVAR EN2+2~, EN2+4*, EN2+5*, EN2+7, EN2+8*, EN2+9, EN3+5~, START+2*, START+3*, START+5
, START+6*, START+7
BVAR1 EN2+2~, EN2+4*, EN2+5, EN2+6*, EN2+8, EN3+5~, START+2*, START+3, START+4*, START+6
CNT EN2+2~, EN2+5*, EN2+6, EN3+5~, START+3*, START+4
>> DA WARN1+3, WARN1+7
>> DA(1 WARN1+2, WARN1+3, WARN1+7
DIR PATCH+9!, WARN1+11!, WARN1+17!
DIR("?" PATCH+9*, WARN1+15*
DIR("A" PATCH+9*, WARN1+12*
DIR("B" PATCH+9*, WARN1+13*
DIR(0 PATCH+9*, WARN1+14*
DT PATCHR+3, PATCHR+15
>> DTOUT PATCH+10
EXDATA REFIP+11~, REFIP+15*, REFIP+16, REFIP+17
EXDIV REFIP+11~, REFIP+17*, REFIP+18
FOUND REFIP+11~, REFIP+12*, REFIP+14, REFIP+19*, REFIP+20
III EN2+2~, EN2+4*, EN2+5*, EN2+9, EN3+5~, START+2*, START+3*, START+7
IP REFIP+11~, REFIP+12*, REFIP+20*, REFIP+21
NNN EN2+2~, EN2+5*, EN3+5~, START+3*
PCLOZ DEACHK~, DEACHK+17*, DEACHK+20, DEACHK+21
PNFILLS DEACHK+45~*, DEACHK+46
PSDAYS DEACHK~, DEACHK+16*, DEACHK+36*, DEACHK+38, DEACHK+42
PSDEA DEACHK~, DEACHK+16*, DEACHK+24, DEACHK+28, DEACHK+30
PSIEN REFIP+11~, REFIP+12*, REFIP+14*, REFIP+15, REFIP+20
PSIRXN DEACHK~, DEACHK+16*, DEACHK+25, DEACHK+33, DEACHK+45, NUMFILLS~, NUMFILLS+4, NUMFILLS+7
PSMAXRF DEACHK~, DEACHK+17*, DEACHK+20*, DEACHK+21*, DEACHK+25*, DEACHK+33*, DEACHK+38*, DEACHK+42*, DEACHK+46*
PSOBACKA PATCH+1~, PATCH+10*, PATCHR+2*, PATCHR+4
PSOBACKB PATCH+1~, PATCH+4*, PATCH+10, PATCHR+3*, PATCHR+4
PSOBACKD PATCH+1~, PATCH+4*, PATCH+5, PATCH+6, PATCH+7, PATCH+9
PSOBACKI PATCH+1~, PATCH+2*, PATCH+3*, PATCH+4
PSOBACKL PATCH+1~, PATCH+2*, PATCH+3
PSOBACKS PATCH+1~, PATCH+4*, PATCH+5
PSOBINTR EN2~, EN2+3, EN3~, EN3+6
PSOBLGTH EN2~, EN2+5, EN3~, START+3
PSOCS DEACHK~, DEACHK+17*, DEACHK+29*, DEACHK+30*, DEACHK+33, DEACHK+37
PSOL WARN1+1~, WARN1+2*, WARN1+3
PSOLPD PATCHR+1~, PATCHR+4*
PSOLPRX PATCHR+1~, PATCHR+4*, PATCHR+5, PATCHR+6, PATCHR+7, PATCHR+8, PATCHR+9, PATCHR+10, PATCHR+11, PATCHR+12
, PATCHR+13, PATCHR+15, PATCHR+17
>> PSOLPSTA PATCHR+12*, PATCHR+14, PATCHR+15*, PATCHR+16
>> PSOLPSTX PATCHR+16*, PATCHR+17
>> PSOLPSTZ PATCHR+16*, PATCHR+17
PSOPAL PATCHR+1~, PATCHR+4*
PSR WARN1+1~, WARN1+2*
QQ DEACHK+27~, DEACHK+28*, DEACHK+30
RFIL REFIP~, REFIP+16
RFN NUMFILLS+5~, NUMFILLS+6*, NUMFILLS+7*
RFNC NUMFILLS+5~, NUMFILLS+6*, NUMFILLS+7*, NUMFILLS+8
RXI REFIP~, REFIP+14
SIG EN3+5~, EN3+7*, EN3+9*, EN3+11*, START+1
TYP REFIP~
X EN3+5!, EN3+7*, EN3+9, EN3+10!, EN3+11, EN3+12, PATCH+4
>> X1 PATCH+4*
>> X2 PATCH+4*
Y EN3+5~, EN3+12*, PATCH+4*, PATCH+9, PATCH+10, WARN1+7
Z0 EN3+5~, EN3+9*, EN3+12
Z1 EN3+5~, EN3+9*, EN3+10, EN3+11, EN3+12*
>> ZTDESC PATCH+11*
ZTDTH PATCH+11!
>> ZTIO PATCH+11*
>> ZTQUEUED PATCHR+18
>> ZTREQ PATCHR+18*
>> ZTRTN PATCH+11*
>> ZTSAVE("PSOBACKA" PATCH+11*
>> ZTSAVE("PSOBACKB" PATCH+11*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All