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

Package: Outpatient Pharmacy

Routine: PSOUTLA2


Information

PSOUTLA2 ;BHAM ISC/GSN-Pharmacy utility program cont. ;6/6/05 12:19pm

Source Information

Source file <PSOUTLA2.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Outpatient Pharmacy 6 RXACT^PSOBPSU2  $$ECME^PSOBPSUT  ^PSOBUILD  $$CHKERX^PSOERXU1  BLD^PSOORUT1  $$TITRX^PSOUTL  
VA FileMan 6 C^%DTC  EN^DDIOL  ^DIC  FILE^DIE  $$GET1^DIQ  ^DIR  
List Manager 1 FULL^VALM1  

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

Package Total Caller Graph
Outpatient Pharmacy 12 PSO DRUG LOOK  PSO LM MAIL EXEMPTION  PSO VIEW PROVIDER  PSOORFI1  PSOORNE2  PSOORNE5  PSOORNE6  PSOPKIV2  
PSORXVW  PSORXVW1  PSOSULBL  ^PS(59  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
WORDWRAP(STR,IEN,GL,LM) ;Wraps words at spaces normally and will breakup long
; words at a delimiter & wrap at those break points
; Input: STR - a text string
; IEN - ien of global
; GL - global root
; LM - left margin
; Output: Populated global (usually in ^TMP)
ADDWORDS ;Add words to curr line and to a new line
DMACTN ;Entry point for DM hidden action from backdoor OE *507
PICKDR ;Entry point for Selecting a diff Drug
SHOWDR ;Entry point to Display Drug hidden action info (defaulted IFN via DM actn)
DMOITXT ;Get Pharmacy Orderable Item drug text fields
FULL ;Screen is full, pause
FSCRN ;User Wait as screen if full
INACDATE() ;Check Inactive date
VPACTN
PICKVP
SHOWVP
SUSPDAYS(IEN) ; Return correct suspense days parameter value per Rx IEN in Suspense file *694
; IEN = Internal entry number for the RX SUSPENSE file
CKCMOP(IEN) ; See if CMOP dispenable by Rx drug setting *694
; IEN = Internal entry number for the RX SUSPENSE file
CHKCS(IEN) ; See if Rx drug is contolled substance (CS) *694
; IEN = Internal entry number for the RX SUSPENSE file
HLPTXT33 ;HELP TEXT FOR FIELD 3.3 FILE #59
HLPTXT3 ;HELP TEXT FOR FIELD 3 FILE #59
HLPTXT31 ;HELP TEXT FOR FIELD 3.1 FILE #59
HLPTXT34 ;HELP TEXT FOR FIELD 3.4 FILE #59
MAILEX ;entry for speed mail exemption selection
MAILDISP ;display prescriptions with indicators

External References

Name Field # of Occurrence
C^%DTC MAILDISP+2
EN^DDIOL HLPTXT33+5, HLPTXT3+5, HLPTXT31+6, HLPTXT34+6
^DIC PICKDR+2, PICKVP+2
FILE^DIE MAILEX+33
$$GET1^DIQ SHOWDR+3, SHOWDR+6, SHOWDR+7, SHOWVP+3, SHOWVP+4, SHOWVP+5, SUSPDAYS+4, SUSPDAYS+6, SUSPDAYS+7, CKCMOP+3
, CKCMOP+4, CKCMOP+5, CHKCS+3, CHKCS+4, CHKCS+5, MAILEX+32, MAILEX+34, MAILDISP+15, MAILDISP+16, MAILDISP+19
^DIR FSCRN+1, MAILEX+9, MAILEX+24
RXACT^PSOBPSU2 MAILEX+35, MAILEX+36, MAILEX+37
$$ECME^PSOBPSUT MAILDISP+17
^PSOBUILD MAILEX+10, MAILEX+11, MAILDISP+3
$$CHKERX^PSOERXU1 MAILDISP+20
BLD^PSOORUT1 MAILEX+10, MAILEX+11
$$TITRX^PSOUTL MAILDISP+18
FULL^VALM1 DMACTN+1, VPACTN+1, MAILEX+3, MAILEX+13, MAILEX+29

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PICKDR+2
Function Call: WRITE
  • Prompt: "Return to continue or"
  • Line Location: PICKDR+2
Function Call: WRITE
  • Prompt: !!,"** NO Dispense Drug entered for this order",!
  • Line Location: SHOWDR+2
Function Call: WRITE
  • Prompt: #,!,"DRUG NAME: ",$$GET1^DIQ(50,IFN_",","GENERIC NAME")," (IEN: "_IFN_")"
  • Line Location: SHOWDR+3
Function Call: WRITE
  • Prompt: !," ORDERABLE ITEM TEXT: ",!
  • Line Location: SHOWDR+5
Function Call: WRITE
  • Prompt: !," MESSAGE: ",$$GET1^DIQ(50,IFN_",","MESSAGE")
  • Line Location: SHOWDR+6
Function Call: WRITE
  • Prompt: !," QTY DISP MESSAGE: ",$$GET1^DIQ(50,IFN_",","QUANTITY DISPENSE MESSAGE"),!
  • Line Location: SHOWDR+7
Function Call: WRITE
  • Prompt: " ",TEXT,!
  • Line Location: DMOITXT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PICKVP+2
Function Call: WRITE
  • Prompt: !,"Return to continue or"
  • Line Location: PICKVP+2
Function Call: WRITE
  • Prompt: !,"No provider entered for this order",!
  • Line Location: SHOWVP+2
Function Call: WRITE
  • Prompt: #,"PROVIDER TITLE: ",$$GET1^DIQ(200,IFN_",","TITLE")
  • Line Location: SHOWVP+3
Function Call: WRITE
  • Prompt: !!,"PROVIDER REMARKS: ",$$GET1^DIQ(200,IFN_",","REMARKS")
  • Line Location: SHOWVP+4
Function Call: WRITE
  • Prompt: !!,"PROVIDER SPECIALTY: ",$$GET1^DIQ(200,IFN_",","PROVIDER CLASS"),!," "_$$GET1^DIQ(200,IFN_",","SERVICE/SECTION")
  • Line Location: SHOWVP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: MAILEX+8
Function Call: WRITE
  • Prompt: !,"<No local prescriptions found.>"
  • Line Location: MAILDISP+4
Function Call: WRITE
  • Prompt: !," # RX # DRUG MAIL EXEMPTION"
  • Line Location: MAILDISP+7
Function Call: WRITE
  • Prompt: !,$E(LINE,1,80)
  • Line Location: MAILDISP+10
Function Call: WRITE
  • Prompt: ?59,MAILEXI,"-",MAILEX
  • Line Location: MAILDISP+23
Routine Call
  • DIC
  • Line Location:
    • PICKDR+2
    • PICKVP+2
Routine Call
  • DIE
  • Line Location:
    • MAILEX+33
Routine Call
  • DIR
  • Line Location:
    • FSCRN+1
    • MAILEX+9
    • MAILEX+24

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls,  GET1^DIQ
^PSDRUG - [#50] Classic Fileman Calls,  GET1^DIQ
^PSRX - [#52] GET1^DIQ
^PS(52.5 - [#52.5] GET1^DIQ
^PS(55 - [#55] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.7 - [#50.7] DMOITXT+2, DMOITXT+3
^PS(51.7 - [#51.7] DMOITXT+4, INACDATE+1
^PS(55 - [#55] MAILDISP+5
^PSDRUG - [#50] SHOWDR+4
^PSRX - [#52] MAILDISP+21, MAILDISP+22

Label References

Name Line Occurrences
$$CHKCS SUSPDAYS+10
$$CKCMOP SUSPDAYS+9, SUSPDAYS+13
$$INACDATE DMOITXT+4
ADDWORDS WORDWRAP+37, WORDWRAP+50, WORDWRAP+71, WORDWRAP+77, WORDWRAP+82, WORDWRAP+89
DMOITXT SHOWDR+5
FSCRN FULL+1
FULL SHOWDR+6, SHOWDR+7, DMOITXT+4
MAILDISP MAILEX+4
MAILEX MAILEX+41
PICKDR SHOWDR+2, SHOWDR+9
PICKVP SHOWVP+2, SHOWVP+7
SHOWDR DMACTN+2
SHOWVP VPACTN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CCSV SUSPDAYS+2~, SUSPDAYS+12*, SUSPDAYS+13
CH ADDWORDS+1~, ADDWORDS+4*, ADDWORDS+5
CNCSV SUSPDAYS+2~, SUSPDAYS+12*, SUSPDAYS+13
CS SUSPDAYS+2~, SUSPDAYS+10*, SUSPDAYS+13
CURD WORDWRAP+25~, WORDWRAP+53*, WORDWRAP+55, WORDWRAP+56
DDD DMOITXT+1~, DMOITXT+4*
DEA CHKCS+2~, CHKCS+5*, CHKCS+6
DGIEN CKCMOP+2~, CKCMOP+4*, CKCMOP+5, CHKCS+2~, CHKCS+4*, CHKCS+5
DIC PICKDR+2!*, PICKVP+2!*
DIC("T" PICKDR+2*, PICKVP+2*
DIC(0 PICKDR+2*, PICKVP+2*
DIR SHOWDR+1~, FSCRN+1!, SHOWVP+1~, MAILEX+9!, MAILEX+10!, MAILEX+11!, MAILEX+14!, MAILEX+24!
DIR("A" FSCRN+1*, MAILEX+9*, MAILEX+15*
DIR("L" MAILEX+16*, MAILEX+17*, MAILEX+18*, MAILEX+19*, MAILEX+20*, MAILEX+21*, MAILEX+22*, MAILEX+23*
DIR(0 FSCRN+1*, MAILEX+9*, MAILEX+14*
DIRUT MAILEX+9!, MAILEX+10!, MAILEX+11!
DL WORDWRAP+25~, WORDWRAP+42*, WORDWRAP+43*, WORDWRAP+44*, WORDWRAP+45*
DL( WORDWRAP+42*, WORDWRAP+43, WORDWRAP+44*, WORDWRAP+45
DLM WORDWRAP+25~, WORDWRAP+37*, WORDWRAP+43*, WORDWRAP+44, WORDWRAP+45*, WORDWRAP+48, WORDWRAP+53, WORDWRAP+59, WORDWRAP+60, WORDWRAP+67
, WORDWRAP+70, ADDWORDS+5
DRUG MAILDISP+1~, MAILDISP+11*, MAILDISP+13, MAILDISP+22
DRUGIEN MAILDISP+1~
DT MAILDISP+2
DTOUT MAILEX+10!, MAILEX+11!
DUOUT MAILEX+9!, MAILEX+10!
ECME MAILDISP+1~, MAILDISP+17*, MAILDISP+22
>> ERXIEN MAILDISP+20*, MAILDISP+21
FDA MAILEX+12!, MAILEX+40!
FDA(52 MAILEX+33*
GL WORDWRAP~, WORDWRAP+26, WORDWRAP+32, WORDWRAP+33, WORDWRAP+34, WORDWRAP+35, WORDWRAP+40, WORDWRAP+84, ADDWORDS+4, ADDWORDS+6
, ADDWORDS+8, ADDWORDS+10*, ADDWORDS+11, ADDWORDS+15
GWRD WORDWRAP+25~, WORDWRAP+32*, WORDWRAP+33, WORDWRAP+34, WORDWRAP+35
IEN WORDWRAP~, WORDWRAP+26*, WORDWRAP+32, WORDWRAP+33, WORDWRAP+34, WORDWRAP+35, WORDWRAP+40, WORDWRAP+84, ADDWORDS+4, ADDWORDS+6
, ADDWORDS+8, ADDWORDS+10*, ADDWORDS+11, ADDWORDS+15, SUSPDAYS~, SUSPDAYS+4, SUSPDAYS+6, SUSPDAYS+9, SUSPDAYS+10, SUSPDAYS+13
, CKCMOP~, CKCMOP+3, CHKCS~, CHKCS+3
IFN DMACTN+2~*, PICKDR+1~, PICKDR+3*, SHOWDR+2, SHOWDR+3, SHOWDR+4, SHOWDR+6, SHOWDR+7, VPACTN+2~, VPACTN+3*
, PICKVP+1~, PICKVP+3*, SHOWVP+2, SHOWVP+3, SHOWVP+4, SHOWVP+5
IOF FSCRN+1
IOSL FULL+1
LC WORDWRAP+25~, WORDWRAP+33*, WORDWRAP+34, WORDWRAP+35
LCSV SUSPDAYS+2~, SUSPDAYS+12*, SUSPDAYS+13
LINE MAILDISP+1~, MAILDISP+10*
LL WORDWRAP+25~, WORDWRAP+53*, WORDWRAP+56*, WORDWRAP+59, WORDWRAP+76
LM WORDWRAP~, WORDWRAP+36, WORDWRAP+69, ADDWORDS+10, ADDWORDS+13
LNCSV SUSPDAYS+2~, SUSPDAYS+12*, SUSPDAYS+13
LOCTST SUSPDAYS+2~, SUSPDAYS+9*, SUSPDAYS+13
LST MAILEX+6!, MAILEX+9*, MAILEX+11, MAILEX+30, MAILEX+31, MAILEX+39!
LSTD WORDWRAP+25~, WORDWRAP+53*, WORDWRAP+56*, WORDWRAP+60*, WORDWRAP+76, WORDWRAP+80, WORDWRAP+84, WORDWRAP+87, WORDWRAP+88
MAIL SUSPDAYS+2~, SUSPDAYS+4*, SUSPDAYS+7*, SUSPDAYS+9
MAILD MAILDISP+1~, MAILDISP+5*, MAILDISP+6
MAILEX MAILEX+12!, MAILEX+26*, MAILEX+27*, MAILEX+33, MAILEX+40!, MAILDISP+15*, MAILDISP+22, MAILDISP+23
>> MAILEXI MAILDISP+16*, MAILDISP+23
MAXLN WORDWRAP+25~, WORDWRAP+40*, WORDWRAP+49, WORDWRAP+56, WORDWRAP+69, WORDWRAP+80, WORDWRAP+81, WORDWRAP+84, ADDWORDS+11*
MSG MAILEX+12!, MAILEX+40!
OIPTR SHOWDR+1~, SHOWDR+4*, SHOWDR+5, DMOITXT+2, DMOITXT+3
ORD MAILEX+6!, MAILEX+30*, MAILEX+31, MAILEX+39!
ORN MAILEX+6!, MAILEX+31*, MAILEX+39!
ORNUM MAILDISP+1~, MAILDISP+19*, MAILDISP+20
PIEN SUSPDAYS+2~, SUSPDAYS+4*
POS MAILDISP+1~, MAILDISP+10*
>> PSOCNT MAILEX+7, MAILEX+9, MAILDISP+8*, MAILDISP+12*, MAILDISP+21
>> PSODFN MAILDISP+5
>> PSODRUG("IEN" DMACTN+2
PSODTCUT MAILDISP+1~, MAILDISP+2*
PSOHLP HLPTXT33+1~, HLPTXT33+5, HLPTXT3+1~, HLPTXT3+5, HLPTXT31+1~, HLPTXT31+6, HLPTXT34+1~, HLPTXT34+6
PSOHLP(1 HLPTXT33+2*, HLPTXT3+2*, HLPTXT31+2*, HLPTXT34+2*
PSOHLP(2 HLPTXT33+3*, HLPTXT3+3*, HLPTXT31+3*, HLPTXT34+3*
PSOHLP(3 HLPTXT33+4*, HLPTXT3+4*, HLPTXT31+4*, HLPTXT34+4*
PSOHLP(4 HLPTXT31+5*, HLPTXT34+5*
PSOIEN MAILEX+6!, MAILEX+31*, MAILEX+32, MAILEX+33, MAILEX+34, MAILEX+35, MAILEX+36, MAILEX+37, MAILEX+39!
>> PSOLST( MAILEX+31
PSOMAIL MAILEX+12!, MAILEX+34*, MAILEX+35, MAILEX+36, MAILEX+37, MAILEX+40!
PSOMAILF MAILEX+32*, MAILEX+35, MAILEX+36, MAILEX+37, MAILEX+40!
>> PSONEW("PROVIDER" VPACTN+3
>> PSOPAR SUSPDAYS+12
>> PSOSD MAILDISP+4
>> PSOSD( MAILDISP+9, MAILDISP+11, MAILDISP+13
QQ WORDWRAP+25~, WORDWRAP+28*
QUIT DMOITXT+1~, DMOITXT+4, FULL+1, FSCRN+1*
RTN SUSPDAYS+2~, SUSPDAYS+3*, SUSPDAYS+13*, SUSPDAYS+14, CKCMOP+2~, CKCMOP+5*, CKCMOP+6, CHKCS+2~, CHKCS+6*, CHKCS+7
RXIEN CKCMOP+2~, CKCMOP+3*, CKCMOP+4, CHKCS+2~, CHKCS+3*, CHKCS+4, MAILDISP+1~, MAILDISP+13*, MAILDISP+14, MAILDISP+15
, MAILDISP+16, MAILDISP+17, MAILDISP+18, MAILDISP+19, MAILDISP+21, MAILDISP+22
RXIENSD SUSPDAYS+2~, SUSPDAYS+6*, SUSPDAYS+7
STA MAILDISP+1~, MAILDISP+9*, MAILDISP+10, MAILDISP+11, MAILDISP+13
STR WORDWRAP~, WORDWRAP+28
TEXT DMOITXT+1~, DMOITXT+4*
TEXTPTR DMOITXT+1~, DMOITXT+3*, DMOITXT+4, INACDATE+1
TITRX MAILDISP+1~, MAILDISP+18*, MAILDISP+22
TL WORDWRAP+25~, WORDWRAP+53*, WORDWRAP+54*, WORDWRAP+55, WORDWRAP+56, WORDWRAP+76
TXT DMOITXT+1~, DMOITXT+2*, DMOITXT+3
U SUSPDAYS+12
UL WORDWRAP+25~, WORDWRAP+59*, WORDWRAP+60
>> VALMBCK DMACTN+3*, VPACTN+4*, MAILEX+7*, MAILEX+10*, MAILEX+11*, MAILEX+25*, MAILEX+38*
VALMCNT MAILEX+6!, MAILEX+39!
>> VALMSG MAILEX+7*
WD WORDWRAP+25~
WD( WORDWRAP+55*, WORDWRAP+59, WORDWRAP+60, WORDWRAP+76
WORD WORDWRAP+25~, WORDWRAP+28*, WORDWRAP+30*, WORDWRAP+34, WORDWRAP+35, WORDWRAP+36, WORDWRAP+37, WORDWRAP+42, WORDWRAP+44, WORDWRAP+49
, WORDWRAP+53, WORDWRAP+55, WORDWRAP+67, WORDWRAP+68, WORDWRAP+69, WORDWRAP+70, WORDWRAP+80, WORDWRAP+81, WORDWRAP+84, WORDWRAP+88
WORD0 WORDWRAP+25~, WORDWRAP+26*, WORDWRAP+28, WORDWRAP+30*, WORDWRAP+37*, WORDWRAP+50*, WORDWRAP+71*, WORDWRAP+77*, WORDWRAP+82*, WORDWRAP+89*
WORD1 WORDWRAP+25~, WORDWRAP+37*, WORDWRAP+49*, WORDWRAP+68*, WORDWRAP+69*, WORDWRAP+81*, WORDWRAP+88*, ADDWORDS+6, ADDWORDS+8
WORD2 WORDWRAP+25~, WORDWRAP+37*, WORDWRAP+49*, WORDWRAP+50, WORDWRAP+68*, WORDWRAP+69*, WORDWRAP+71, WORDWRAP+77, WORDWRAP+81*, WORDWRAP+82
, WORDWRAP+88*, WORDWRAP+89, ADDWORDS+13, ADDWORDS+15*
WORDLN WORDWRAP+67~*, WORDWRAP+68
X MAILEX+25, MAILEX+26, MAILEX+27, MAILDISP+1~, MAILDISP+2
X1 MAILDISP+1~, MAILDISP+2*
X2 MAILDISP+1~, MAILDISP+2*
Y PICKDR+1~, PICKDR+2, PICKDR+3, SHOWDR+8!, FSCRN+1, PICKVP+1~, PICKVP+2, PICKVP+3, SHOWVP+6!, MAILEX+9
, MAILEX+12!, MAILEX+25, MAILEX+27, MAILEX+40!, MAILDISP+1~
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 |  Local Variables  | All