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

Package Total Call Graph
VA FileMan 4 EN^DDIOL  ^DIC  $$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: 12

Package Total Caller Graph
Outpatient Pharmacy 11 PSO DRUG LOOK  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

External References

Name Field # of Occurrence
EN^DDIOL HLPTXT33+5, HLPTXT3+5, HLPTXT31+6, HLPTXT34+6
^DIC PICKDR+2, PICKVP+2
$$GET1^DIQ SHOWDR+3, SHOWDR+6, SHOWDR+7, SHOWVP+3, SHOWVP+4, SHOWVP+5, SUSPDAYS+4, CKCMOP+3, CKCMOP+4, CKCMOP+5
, CHKCS+3, CHKCS+4, CHKCS+5
^DIR FSCRN+1
FULL^VALM1 DMACTN+1, VPACTN+1

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
Routine Call
  • DIC
  • Line Location:
    • PICKDR+2
    • PICKVP+2
Routine Call
  • DIR
  • Line Location:
    • FSCRN+1

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
^PSDRUG - [#50] SHOWDR+4

Label References

Name Line Occurrences
$$CHKCS SUSPDAYS+6
$$CKCMOP SUSPDAYS+5, SUSPDAYS+9
$$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
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+8*, SUSPDAYS+9
CH ADDWORDS+1~, ADDWORDS+4*, ADDWORDS+5
CNCSV SUSPDAYS+2~, SUSPDAYS+8*, SUSPDAYS+9
CS SUSPDAYS+2~, SUSPDAYS+6*, SUSPDAYS+9
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~
DIR("A" FSCRN+1*
DIR(0 FSCRN+1*
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
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+5, SUSPDAYS+6, SUSPDAYS+9, 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+8*, SUSPDAYS+9
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+8*, SUSPDAYS+9
LOCTST SUSPDAYS+2~, SUSPDAYS+5*, SUSPDAYS+9
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+5
MAXLN WORDWRAP+25~, WORDWRAP+40*, WORDWRAP+49, WORDWRAP+56, WORDWRAP+69, WORDWRAP+80, WORDWRAP+81, WORDWRAP+84, ADDWORDS+11*
OIPTR SHOWDR+1~, SHOWDR+4*, SHOWDR+5, DMOITXT+2, DMOITXT+3
PIEN SUSPDAYS+2~, SUSPDAYS+4*
>> PSODRUG("IEN" DMACTN+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*
>> PSONEW("PROVIDER" VPACTN+3
>> PSOPAR SUSPDAYS+8
QQ WORDWRAP+25~, WORDWRAP+28*
QUIT DMOITXT+1~, DMOITXT+4, FULL+1, FSCRN+1*
RTN SUSPDAYS+2~, SUSPDAYS+3*, SUSPDAYS+9*, SUSPDAYS+10, 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
STR WORDWRAP~, WORDWRAP+28
TEXT DMOITXT+1~, DMOITXT+4*
TEXTPTR DMOITXT+1~, DMOITXT+3*, DMOITXT+4, INACDATE+1
TL WORDWRAP+25~, WORDWRAP+53*, WORDWRAP+54*, WORDWRAP+55, WORDWRAP+56, WORDWRAP+76
TXT DMOITXT+1~, DMOITXT+2*, DMOITXT+3
U SUSPDAYS+8
UL WORDWRAP+25~, WORDWRAP+59*, WORDWRAP+60
>> VALMBCK DMACTN+3*, VPACTN+4*
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
Y PICKDR+1~, PICKDR+2, PICKDR+3, SHOWDR+8!, FSCRN+1, PICKVP+1~, PICKVP+2, PICKVP+3, SHOWVP+6!
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