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

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 ^%ZISC  $$FMTE^XLFDT  $$UP^XLFSTR  DISP^XQORM1  
List Manager 3 EN^VALM  (CLEAR,PAUSE)^VALM1  (CLEAN,SET)^VALM10  
VA FileMan 3 (,DD)^%DT  ^DIC  ^DIR  
Outpatient Pharmacy 1 SORT^PSOCPF1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Outpatient Pharmacy 4 PSO PATIENT MEDICATION LIST  PSOCP RESET COPAY STATUS LM  PSOCPF1  PSOCPF2  

Entry Points

Name Comments DBIA/ICR reference
SORT ; get the data
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
EN ; -- main entry point for HELD CHARGES LIST
HDR ; -- header code
ASKRX(FILTERS)
ONERX(DIC,IEN,FIRST)
FMDQ
FMDATES(PROMPT,SDT,EDT) ; ask for date range
SHOWFILT(FILTERS)
INIT ; -- init variables and list array
; input - ^TMP($J,"PSOCPF")
; output - ^TMP("VALMAR",$J)
ONEPAT(DIC,IEN,FIRST)
EXIT ; -- exit code
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
FILTER(FILTERS) ; filter display
; Sets an array of filters to determine which entris 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) exclued canceled bills
; FILTERS(1,RX ien) = ""
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
ADDRX ;
; Prescription filter
HELP ; -- help code

External References

Name Field # of Occurrence
^%DT FMDATES+6, FMDATES+11
DD^%DT FMDATES+4, FMDATES+9
^%ZISC EN+10, EXIT+7
^DIC ONERX+7, ONEPAT+9
^DIR ADDRX+6
SORT^PSOCPF1 SORT+7
EN^VALM EN+9
CLEAR^VALM1 EXIT+6
PAUSE^VALM1 SHOWFILT+28
CLEAN^VALM10 EXIT+6
SET^VALM10 BLD+11, BLD+40, BLD+46, BLD+51, BLD+54
$$FMTE^XLFDT BLD+33, BLD+37, SHOWFILT+12, SHOWFILT+13
$$UP^XLFSTR ADDRX+8
DISP^XQORM1 HELP+1

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
Routine Call
  • VALM
  • Line Location:
    • EN+9
Routine Call
  • DIC
  • Line Location:
    • ONERX+7
    • ONEPAT+9
Routine Call
  • DIR
  • Line Location:
    • ADDRX+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("VALMAR" BLD+4!
^TMP($J SORT+5*, BLD+3!, BLD+6, BLD+16, BLD+17, BLD+18, BLD+21, BLD+24*, BLD+25, BLD+33*
, EXIT+1!, EXIT+2!, EXIT+3!, EXIT+4!, FILTER+26*, FILTER+28*

Label References

Name Line Occurrences
$$FILTER EN+4
$$FMDATES FILTER+18
$$ONEPAT FILTER+12
$$SETL BLD+8, BLD+9, BLD+20, BLD+34, BLD+35, BLD+36, BLD+37, BLD+38, BLD+41, BLD+42
, BLD+43, BLD+44, BLD+47, BLD+48, BLD+49
$$WRAP SHOWFILT+24, SHOWFILT+25
ADDRX FILTER+23
ASKRX ADDRX+11
BLD INIT+6
FMDQ FMDATES+6, FMDATES+11
ONERX ASKRX+7
SHOWFILT FILTER+30
SORT EN+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT FMDATES+1~, FMDATES+4!, FMDATES+6*!, FMDATES+9!, FMDATES+11*!
%DT("A" FMDATES+6*, FMDATES+11*
%DT("B" FMDATES+4*, FMDATES+7*, FMDATES+9*
%DT(0 FMDATES+7*
A WRAP+8~, WRAP+11*, WRAP+13, WRAP+15, WRAP+16, WRAP+17
ARST1 BLD+12~, BLD+21*, BLD+25*, BLD+33, BLD+38
B WRAP+8~, WRAP+10*, WRAP+16*, WRAP+18
BDATE INIT+3~, INIT+4*, SORT+1~, SORT+2*
BLN BLD+12~, BLD+22*, BLD+24, BLD+27, BLD+33
BLNO BLD+12~, BLD+27*, BLD+44
C WRAP+8~, WRAP+15*, WRAP+16, WRAP+17
CL WRAP~, WRAP+6, WRAP+10, WRAP+11, WRAP+13, WRAP+17
COL SETL~, SETL+8
CPY BLD+12~, BLD+23*, BLD+32, BLD+33
CPYO BLD+12~, BLD+32*, BLD+49
DATA SETL~, SETL+8
DEBTOR BLD+13~, BLD+23*, BLD+24
DFN BLD+13~, BLD+22*, BLD+24, FILTER+8~, FILTER+15*
DIC FILTER+11*, ASKRX+3~, ASKRX+4*, ASKRX+7, ONERX~, ONEPAT~, ONEPAT+7*
DIC("A" ONERX+6*, ONEPAT+8*
DIC(0 FILTER+11*, ASKRX+4*, ONEPAT+7*
DIR FILTER+8~, ADDRX+6!, ASKRX+3~, SHOWFILT+7~, SHOWFILT+27!
DIR("?" ADDRX+3*, ADDRX+4*
DIR("A" ADDRX+2*
DIR("B" ADDRX+2*
DIR(0 ADDRX+2*, ADDRX+5*
DIROUT FILTER+8~, SHOWFILT+7~
DIRUT FILTER+8~, ASKRX+3~, SHOWFILT+7~
DIVS ASKRX+3~
DPTNOFZY ONEPAT+6~*
DT FMDATES+7
DT1 FMDATES+1~, FMDATES+2*, FMDATES+12*, FMDQ
DT2 FMDATES+1~, FMDATES+7*, FMDATES+12
DTOUT FILTER+8~, SHOWFILT+7~
DUOUT FILTER+8~, ASKRX+3~, SHOWFILT+7~
EDATE INIT+3~, INIT+4*, SORT+1~, SORT+2*
EDT FMDATES~, FMDATES+7, FMDATES+9
ENDT SHOWFILT+7~, SHOWFILT+11*, SHOWFILT+13
FILDT BLD+12~, BLD+22*, BLD+33, BLD+37
FILTERS EN+3~, EN+4, FILTER~, FILTER+9!, FILTER+30, ADDRX+11, ASKRX~, SHOWFILT~
FILTERS(0 INIT+4, INIT+5, SORT+2, SORT+3, SORT+4, SORT+5, FILTER+15*, FILTER+19*, FILTER+20*, FILTER+26
, ADDRX+9*, ADDRX+11, ASKRX+11*, SHOWFILT+11, SHOWFILT+15, SHOWFILT+18
FILTERS(1 FILTER+28, ASKRX+5!, ASKRX+19*, SHOWFILT+21, SHOWFILT+22
FIRST FILTER+11*, ASKRX+3~, ASKRX+4*, ASKRX+7, ONERX~, ONERX+6, ONERX+8*, ONEPAT~
FLG WRAP~, WRAP+6*, WRAP+7*
I SHOWFILT+7~, SHOWFILT+25*
IB0 FMDATES+1~
IB1 FMDATES+1~, FMDATES+2*, FMDATES+3*, FMDATES+6
IB2 FMDATES+1~, FMDATES+2*, FMDATES+3*, FMDATES+11
IBDATES FILTER+8~, FILTER+18*, FILTER+19, FILTER+20
IBST1 BLD+12~
IEN ASKRX+3~, ASKRX+6, ASKRX+7, ASKRX+8, ASKRX+9, ASKRX+10, ONERX~, ONERX+8*, ONEPAT~, SHOWFILT+7~
, SHOWFILT+20*, SHOWFILT+21*, SHOWFILT+22
IX SHOWFILT+7~
LABEL SETL~, SETL+8
LEN SHOWFILT+7~
LINE BLD+5~, BLD+8*, BLD+9*, BLD+11, BLD+20*, BLD+34*, BLD+35*, BLD+36*, BLD+37*, BLD+38*
, BLD+40, BLD+41*, BLD+42*, BLD+43*, BLD+44*, BLD+46, BLD+47*, BLD+48*, BLD+49*, BLD+51
, BLD+52*, BLD+54, SETL~, SETL+8*, SETL+9, SHOWFILT+7~, SHOWFILT+19*, SHOWFILT+23*, SHOWFILT+24, SHOWFILT+25
LNG SETL~, SETL+8
MED BLD+12~, BLD+22*, BLD+24, BLD+33, BLD+36
MEDS SORT+1~, SORT+3*
MEDSA INIT+3~
MTO BLD+13~, BLD+30*, BLD+48
MTS BLD+12~, BLD+31*, BLD+33
MTSD BLD+13~, BLD+30*, BLD+33
MTSO BLD+13~, BLD+31*, BLD+47
N ASKRX+3~, ASKRX+18*, ASKRX+19
NAME BLD+12~, BLD+15*, BLD+16*, BLD+17, BLD+18, BLD+21, BLD+24, BLD+25, BLD+33, BLD+34
PAT INIT+3~, INIT+5*, SORT+1~, SORT+3*, FILTER+12*, FILTER+13, FILTER+14, FILTER+15*, SHOWFILT+7~
PBIL BLD+13~, BLD+21*
PFLG SHOWFILT+7~, SHOWFILT+20*, SHOWFILT+24, SHOWFILT+25
PID BLD+13~, BLD+21*, BLD+33, BLD+35
PNAME EN+3~, FILTER+14*, SHOWFILT+9
PRIEN BLD+13~, BLD+23*, BLD+24
PROMPT FMDATES~, FMDATES+3
PSOIENS ASKRX+3~, ASKRX+11
PSOIENS( ASKRX+9*, ASKRX+16, ASKRX+18
PSOIENS2 ASKRX+3~
PSOIENS2( ASKRX+10*
R FILTER+8~, FILTER+27*, FILTER+28*, SHOWFILT+7~
REC BLD+12~, BLD+21*, BLD+22, BLD+23, BLD+28, BLD+29, BLD+30, BLD+31
RFL BLD+12~, BLD+15*, BLD+18*, BLD+21, BLD+24, BLD+25, BLD+26, BLD+33
RIEN BLD+13~, BLD+15*, BLD+17*, BLD+18, BLD+21, BLD+24, BLD+25, BLD+33
RX BLD+12~, BLD+22*, BLD+24, BLD+26, BLD+33
RXO BLD+13~, BLD+26*, BLD+43
RXS INIT+3~, INIT+5*, SORT+1~, SORT+4*, BLD+13~
SC BLD+12~, BLD+28*
SCO BLD+13~, BLD+28*, BLD+33
SCOO BLD+13~, BLD+28*, BLD+41
SCP BLD+12~, BLD+29*, BLD+33
SCPO BLD+13~, BLD+29*, BLD+42
SDT FMDATES~, FMDATES+4
STDT SHOWFILT+7~, SHOWFILT+11*, SHOWFILT+12
STR WRAP~, WRAP+6, WRAP+10*, WRAP+11, WRAP+13*, WRAP+17*
U INIT+4, INIT+5, SORT+2, SORT+3, SORT+4, BLD+21, BLD+22, BLD+23, BLD+24, BLD+28
, BLD+29, BLD+30, BLD+31, BLD+33, FILTER+14, FILTER+15, FILTER+19, FILTER+20, ADDRX+5, ADDRX+9
, ADDRX+11, FMDATES+12, ASKRX+9, ASKRX+10, ASKRX+11, SHOWFILT+11, SHOWFILT+15, SHOWFILT+18
>> VALM("TITLE" HDR+2*
>> VALMCNT BLD+10*, BLD+11, BLD+14*, BLD+39*, BLD+40, BLD+45*, BLD+46, BLD+50*, BLD+51, BLD+53*
, BLD+54
VALMEVL EN+9!
VALMY BLD+12~
VCNT BLD+5~, BLD+7*, BLD+11, BLD+12~, BLD+15*, BLD+19*, BLD+20, BLD+24, BLD+40, BLD+46
, BLD+51, BLD+54
X HELP+1*, FILTER+8~, FILTER+31, ADDRX+8*, FMDATES+1~, ASKRX+3~
XQORS EN+9!
XX FILTER+8~, ASKRX+3~, ASKRX+14*, ASKRX+15, ASKRX+16*, ASKRX+17, ASKRX+18, ASKRX+19, SHOWFILT+7~, SHOWFILT+22*
, SHOWFILT+23
Y FILTER+8~, FILTER+24, ADDRX+7, ADDRX+9, FMDATES+1~, FMDATES+4*, FMDATES+6, FMDATES+7, FMDATES+9*, FMDATES+11
, FMDATES+12, ASKRX+3~, ONERX+8, ONEPAT+10
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