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

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

External References

Name Field # of Occurrence
^%DT FMDATES+6, FMDATES+11
DD^%DT FMDATES+4, FMDATES+9
^%ZISC EN+14, EXIT+6
^DIC ONERX+7, ONEPAT+9
^DIR ADDRX+6
SORT^PSOCPF1 SORT+7
EN^VALM EN+13
CLEAR^VALM1 EXIT+5
PAUSE^VALM1 SHOWFILT+28
CLEAN^VALM10 EXIT+5
SET^VALM10 BLD+12, BLD+16, BLD+50, BLD+61
$$FMTE^XLFDT BLD+43, BLD+47, SHOWFILT+12, SHOWFILT+13
$$UP^XLFSTR ADDRX+9
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
  • DIC
  • Line Location:
    • ONERX+7
    • ONEPAT+9
Routine Call
  • DIR
  • Line Location:
    • ADDRX+6
Routine Call
  • VALM
  • Line Location:
    • EN+13

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] BLD+9
^TMP("VALMAR" BLD+4!
^TMP($J SORT+5*, BLD+3!, BLD+6, BLD+21, BLD+22, BLD+23, BLD+26, BLD+30*, BLD+43*, EXIT+1!
, EXIT+2!, EXIT+3!, FILTER+28*, FILTER+30*

Label References

Name Line Occurrences
$$FILTER EN+8
$$FMDATES FILTER+19
$$ONEPAT FILTER+13
$$SETL BLD+10, BLD+11, BLD+13, BLD+14, BLD+25, BLD+44, BLD+45, BLD+46, BLD+47, BLD+48
, BLD+55, BLD+57, BLD+59
$$WRAP SHOWFILT+24, SHOWFILT+25
ADDRX FILTER+24
ASKRX ADDRX+12
BLD INIT+6
FMDQ FMDATES+6, FMDATES+11
ONERX ASKRX+8
SHOWFILT FILTER+32
SORT EN+11

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+17~, BLD+26*, BLD+43, BLD+48
B WRAP+8~, WRAP+10*, WRAP+16*, WRAP+18
BDATE INIT+3~, INIT+4*, SORT+1~, SORT+2*
BLN BLD+17~, BLD+27*, BLD+30, BLD+32, BLD+43
BLNO BLD+17~, BLD+32*, BLD+59
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
DATA SETL~, SETL+8
DEBTOR BLD+18~, BLD+29*, BLD+30
DFN EN+5~, BLD+18~, BLD+27*, BLD+30, FILTER+16*
DIC EN+7~, FILTER+12*, ASKRX+5*, ASKRX+8, ONERX~, ONEPAT~, ONEPAT+7*
DIC("A" ONERX+6*, ONEPAT+8*
DIC(0 FILTER+12*, ASKRX+5*, ONEPAT+7*
DIR EN+5~, ADDRX+6!, SHOWFILT+7~, SHOWFILT+27!
DIR("?" ADDRX+3*, ADDRX+4*
DIR("A" ADDRX+2*
DIR("B" ADDRX+2*
DIR(0 ADDRX+2*, ADDRX+5*
DIROUT EN+5~, SHOWFILT+7~
DIRUT EN+5~, FILTER+26, ADDRX+8, SHOWFILT+7~
DIVS EN+7~
DPTNOFZY ONEPAT+6~*
DT FMDATES+7
DT1 FMDATES+1~, FMDATES+2*, FMDATES+12*, FMDQ
DT2 FMDATES+1~, FMDATES+7*, FMDATES+12
DTOUT EN+5~, SHOWFILT+7~
DUOUT EN+5~, EN+7~, 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+17~, BLD+27*, BLD+43, BLD+47
FILTERS EN+3~, EN+8, FILTER~, FILTER+10!, FILTER+32, ADDRX+12, ASKRX~, SHOWFILT~
FILTERS(0 INIT+4, INIT+5, SORT+2, SORT+3, SORT+4, SORT+5, FILTER+16*, FILTER+20*, FILTER+21*, FILTER+28
, ADDRX+10*, ADDRX+12, ASKRX+12*, SHOWFILT+11, SHOWFILT+15, SHOWFILT+18
FILTERS(1 FILTER+30, ASKRX+6!, ASKRX+20*, SHOWFILT+21, SHOWFILT+22
FIRST EN+7~, FILTER+12*, ASKRX+5*, ASKRX+8, 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 EN+5~, FILTER+19*, FILTER+20, FILTER+21
IBST1 BLD+17~
IEN EN+7~, ASKRX+7, ASKRX+8, ASKRX+9, ASKRX+10, ASKRX+11, 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+10*, BLD+11*, BLD+12, BLD+13*, BLD+14*, BLD+16, BLD+25*, BLD+44*, BLD+45*
, BLD+46*, BLD+47*, BLD+48*, BLD+50, BLD+55*, BLD+57*, BLD+59*, BLD+61, SETL~, SETL+8*
, SETL+9, SHOWFILT+7~, SHOWFILT+19*, SHOWFILT+23*, SHOWFILT+24, SHOWFILT+25
LNG SETL~, SETL+8
MED BLD+17~, BLD+27*, BLD+30, BLD+43, BLD+46
MEDS SORT+1~, SORT+3*
MEDSA INIT+3~
N EN+7~, ASKRX+19*, ASKRX+20
NAME BLD+9*, BLD+11, BLD+17~, BLD+20*, BLD+21*, BLD+22, BLD+23, BLD+26, BLD+30, BLD+43
, BLD+44
PAT INIT+3~, INIT+5*, SORT+1~, SORT+3*, BLD+9, FILTER+13*, FILTER+14, FILTER+15, FILTER+16*, SHOWFILT+7~
PBIL BLD+18~, BLD+26*
PFLG SHOWFILT+7~, SHOWFILT+20*, SHOWFILT+24, SHOWFILT+25
PID BLD+18~, BLD+26*, BLD+43, BLD+45
PNAME EN+3~, FILTER+15*, SHOWFILT+9
PRIEN BLD+18~, BLD+29*, BLD+30
PROMPT FMDATES~, FMDATES+3
PSOIENS EN+7~, ASKRX+12
PSOIENS( ASKRX+10*, ASKRX+17, ASKRX+19
PSOIENS2 EN+7~
PSOIENS2( ASKRX+11*
R EN+5~, FILTER+29*, FILTER+30*, SHOWFILT+7~
REC BLD+17~, BLD+26*, BLD+27, BLD+29, BLD+37
RFL BLD+17~, BLD+20*, BLD+23*, BLD+26, BLD+30, BLD+31, BLD+43
RIEN BLD+18~, BLD+20*, BLD+22*, BLD+23, BLD+26, BLD+30, BLD+43
RX BLD+17~, BLD+27*, BLD+30, BLD+31, BLD+43
RXO BLD+18~, BLD+31*, BLD+57
RXS INIT+3~, INIT+5*, SORT+1~, SORT+4*, BLD+18~, BLD+37*, BLD+43, BLD+55
SC BLD+17~
SCO BLD+18~
SCOO BLD+18~
SCP BLD+17~
SCPO BLD+18~
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+9, BLD+26, BLD+27, BLD+29, BLD+30
, BLD+37, BLD+43, FILTER+15, FILTER+16, FILTER+20, FILTER+21, ADDRX+5, ADDRX+10, ADDRX+12, FMDATES+12
, ASKRX+10, ASKRX+11, ASKRX+12, SHOWFILT+11, SHOWFILT+15, SHOWFILT+18
>> VALM("TITLE" HDR+2*
>> VALMCNT BLD+7*, BLD+19*, BLD+49*, BLD+50, BLD+60*, BLD+61
VALMEVL EN+13!
VALMY BLD+17~
VCNT BLD+5~, BLD+7*, BLD+12, BLD+15*, BLD+16, BLD+17~, BLD+20*, BLD+24*, BLD+25, BLD+30
, BLD+50, BLD+61
X EN+5~, HELP+1*, FILTER+33, ADDRX+9*, FMDATES+1~
XQORS EN+13!
XX EN+5~, ASKRX+15*, ASKRX+16, ASKRX+17*, ASKRX+18, ASKRX+19, ASKRX+20, SHOWFILT+7~, SHOWFILT+22*, SHOWFILT+23
Y EN+5~, FILTER+26, ADDRX+8, ADDRX+10, FMDATES+1~, FMDATES+4*, FMDATES+6, FMDATES+7, FMDATES+9*, FMDATES+11
, FMDATES+12, ASKRX+15*, 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