Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSOCPF

Package: Outpatient Pharmacy

Routine: PSOCPF


Information

PSOCPF ;BIR/BAA - Pharmacy CO-PAY Application Utilities for IB ;02/06/92

Source Information

Source file <PSOCPF.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for HELD CHARGES LIST
HDR ; -- header code
INIT ; -- init variables and list array
; input - ^TMP($J,"PSOCPF")
; output - ^TMP("VALMAR",$J)
SORT ; get the data
BLD ; build data to display
; build display
; ^TMP($J,"PSOCPF",PTNM,RIEN,RFL)=PTNM_U_PID_U_MED_U_RIEN_U_RFL_U_ARTRN_U_RX_U_FILDT_U_BLNO_U_ARST1_U_SC_U_SCP_U_MTSD_U_MTS_U_DFN_U_PBIL_U_ARST_U_PRIEN
SETL(LINE,DATA,LABEL,COL,LNG) ; Creates a line of data to be set into the body
; of the worklist
; Input: LINE - Current line being created
; DATA - Information to be added to the end of the current line
; LABEL - Label to describe the information being added
; COL - Column position in line to add information add
; LNG - Maximum length of data information to include on the line
; Returns: Line updated with added information
HELP ; -- help code
EXIT ; -- exit code
FILTER(FILTERS) ; filter display
; Sets an array of filters to determine which entries to include in display
; Input: None
; Output:
; Returns: 0 if the user entered '^' or timed out, 1 otherwise
; FILTERS(0) = from date ^ to date ^ 0 (all) 1 (selected) prescriptions ^ patient ^
; 0 (no) 1 (yes) exclude canceled bills
; FILTERS(1,RX ien) = ""
ADDRX ;
; Prescription filter
FMDATES(PROMPT,SDT,EDT) ; ask for date range
FMDQ
ASKRX(FILTERS)
ONERX(DIC,IEN,FIRST)
ONEPAT(DIC,IEN,FIRST)
SHOWFILT(FILTERS)
WRAP(STR,FLG,CL) ;
; STR - STRING TO BE WRAPPED PASSED IN BY REFERENCE SO IT CONTAINS THE REMAING PORTION OF STRING
; FLG - FLAG TO INDICATE WRAPPING NEEDS TO OCCUR
; CL - COLUMN LENGTH

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDRX+6
Function Call: WRITE
  • Prompt: !!,"Selected Patient: ",PNAME
  • Line Location: SHOWFILT+9
Function Call: WRITE
  • Prompt: !,"Show From Date: ",$S(STDT=0:"First",1:$$FMTE^XLFDT(STDT,"2DZ"))
  • Line Location: SHOWFILT+12
Function Call: WRITE
  • Prompt: !," Thru Date: ",$$FMTE^XLFDT(ENDT,"2DZ")
  • Line Location: SHOWFILT+13
Function Call: WRITE
  • Prompt: !,"Show All Prescriptions or Selected Prescriptions: "
  • Line Location: SHOWFILT+14
Function Call: WRITE
  • Prompt: $S($P(FILTERS(0),U,3)=0:"All",1:"Selected")
  • Line Location: SHOWFILT+15
Function Call: WRITE
  • Prompt: !,$$WRAP(.LINE,.PFLG,80)
  • Line Location: SHOWFILT+24
Function Call: WRITE
  • Prompt: !,?22,$$WRAP(.LINE,.PFLG,58)
  • Line Location: SHOWFILT+25

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call