Routine: PSOUTLA2

Information

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

Source Information

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

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

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

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOUTLA2

Information

Source Information

Entry Points

Interaction Calls

FileMan Files Accessed Via FileMan Db Call