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

Package: Outpatient Pharmacy

Routine: PSOUTLA1


Information

PSOUTLA1 ;BHAM ISC/RTR-Pharmacy utility program cont. ; 17 Jun 2011 2:21 PM

Source Information

Source file <PSOUTLA1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 (,DD)^%DT  C^%DTC  EN^DDIOL  $$GET1^DIQ  ^DIR  
Outpatient Pharmacy 3 EN^PSOHLSN1  $$MAXNUMRF^PSOUTIL  $$REFIP^PSOUTLA1  
Kernel 1 ^%ZTLOAD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 27

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

Entry Points

Name Comments DBIA/ICR reference
EN1 ;Formats condensed, back door sig in BSIG array
EN2(PSOBINTR,PSOBLGTH) ;
EN3(PSOBINTR,PSOBLGTH) ;
START ;
PATCH ;Allow sites to backfill more than what was done at install
PATCHR ;Begin task
PATCHQ
DEACHK(PSIRXN,PSDEA,PSDAYS,PCLOZ,PSOCS,PSMAXRF) ;Apply DEA restrictions
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)
TOTALDS(RXIEN) ; Return the Total number of Days Supply for a prescription
; Input: RXIEN - PRESCRIPTION file (#52) IEN (Internal Entry Number)
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)
WARN1 ;partial del checks *259

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
$$GET1^DIQ TOTALDS+6, TOTALDS+9
^DIR PATCH+9, WARN1+16
EN^PSOHLSN1 PATCHR+13, PATCHR+17
$$MAXNUMRF^PSOUTIL DEACHK+43
$$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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ
52.1 GET1^DIQ

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*, DEACHK+43, NUMFILLS+7, TOTALDS+8, WARN1+2, WARN1+3

Label References

Name Line Occurrences
$$NUMFILLS DEACHK+26, DEACHK+34, DEACHK+53
$$TOTALDS DEACHK+38, DEACHK+39
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+18*, DEACHK+21, DEACHK+22
PNFILLS DEACHK+53~*, DEACHK+54
PSDAYS DEACHK~, DEACHK+17*, DEACHK+37*, DEACHK+38, DEACHK+39, DEACHK+43, DEACHK+46, DEACHK+47, DEACHK+49, DEACHK+50
PSDEA DEACHK~, DEACHK+17*, DEACHK+25, DEACHK+29, DEACHK+31
PSIEN REFIP+11~, REFIP+12*, REFIP+14*, REFIP+15, REFIP+20
PSIRXN DEACHK~, DEACHK+17*, DEACHK+26, DEACHK+34, DEACHK+42, DEACHK+43, DEACHK+53, NUMFILLS~, NUMFILLS+4, NUMFILLS+7
PSMAXRF DEACHK~, DEACHK+18*, DEACHK+21*, DEACHK+22*, DEACHK+26*, DEACHK+34*, DEACHK+43*, DEACHK+46*, DEACHK+47*, DEACHK+49*
, DEACHK+50*, DEACHK+54*
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+18*, DEACHK+30*, DEACHK+31*, DEACHK+34, DEACHK+38, DEACHK+39, DEACHK+45
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+28~, DEACHK+29*, DEACHK+31
RFIL REFIP~, REFIP+16
RFN NUMFILLS+5~, NUMFILLS+6*, NUMFILLS+7*
RFNC NUMFILLS+5~, NUMFILLS+6*, NUMFILLS+7*, NUMFILLS+8
RXFILL TOTALDS+5~, TOTALDS+7*, TOTALDS+8*, TOTALDS+9
RXI REFIP~, REFIP+14
RXIEN TOTALDS~, TOTALDS+4, TOTALDS+6, TOTALDS+8, TOTALDS+9
SIG EN3+5~, EN3+7*, EN3+9*, EN3+11*, START+1
TOTALDS TOTALDS+5~, TOTALDS+6*, TOTALDS+9*, TOTALDS+10
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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All