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

Package: Outpatient Pharmacy

Routine: PSOCPF1


Information

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

Source Information

Source file <PSOCPF1.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Outpatient Pharmacy 8 ACTLOG^PSOCPA  PRTSUMM^PSOCPB  (EXEMCHK,SETSUMM)^PSOCPC  ASKCAN^PSOCPD  BLD^PSOCPF  ICN^PSODPT  ^PSOLSET  ($$LF,PFSA)^PSOPFSU1  
Kernel 3 ^%ZIS  ^%ZISC  $$FMTE^XLFDT  
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
List Manager 2 (CLEAR,FULL,PAUSE)^VALM1  EN^VALM2  
Registration 1 DEM^VADPT  

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

Package Total Caller Graph
Outpatient Pharmacy 5 PSO PATIENT MED CANCEL  PSO PATIENT MED EXPORT  PSO PATIENT MED RESET  PSOCPF  PSOCPF2  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
SORT ; get the data
SORTRF ;Set fill number and call getdata
GETDATA(RIEN) ;SET UP DATA FOR LIST MANAGER
CANCEL ; CANCEL COPAY STATUS
RESET ; RESET/CANCEL COPAY STATUS
STATUS(PSODA,RFL) ; PROCESS STATUS CHANGE
ASKCAN
RESETE
EXPORT ; -- print excel spreadsheet.
EXCEL(FILTERS) ; print the data in excel format
DEVICE(TYPE) ; Ask user to select device
ENQ
EXHDR ; -- excel header

External References

Name Field # of Occurrence
^%ZIS DEVICE+7
^%ZISC EXPORT+4, DEVICE+14
^DIC STATUS+19, STATUS+27
$$GET1^DIQ GETDATA+5, GETDATA+6, GETDATA+13, GETDATA+14, GETDATA+18, GETDATA+19, GETDATA+21, GETDATA+24, GETDATA+26, GETDATA+28
, GETDATA+32, GETDATA+34, GETDATA+37, GETDATA+41
^DIR STATUS+17, STATUS+25
ACTLOG^PSOCPA STATUS+20, STATUS+28
PRTSUMM^PSOCPB ASKCAN+2
EXEMCHK^PSOCPC STATUS+13
SETSUMM^PSOCPC STATUS+21, STATUS+29
ASKCAN^PSOCPD ASKCAN
BLD^PSOCPF CANCEL+28, RESET+14, EXPORT+1, EXPORT+7
ICN^PSODPT CANCEL+16, STATUS+8
^PSOLSET CANCEL+12, STATUS+3
$$LF^PSOPFSU1 STATUS+12
PFSA^PSOPFSU1 STATUS+12
DEM^VADPT GETDATA+8
CLEAR^VALM1 CANCEL+7, RESET+7, EXPORT+2, DEVICE+2
FULL^VALM1 CANCEL+2, RESET+2, EXPORT+2, DEVICE+3
PAUSE^VALM1 CANCEL+22, CANCEL+25, EXPORT+8
EN^VALM2 CANCEL+5, RESET+5
$$FMTE^XLFDT EXCEL+5, EXCEL+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?17,"PATIENT: ",NAME
  • Line Location: CANCEL+13
Function Call: WRITE
  • Prompt: !,?17,"Medication: ",MED
  • Line Location: CANCEL+14
Function Call: WRITE
  • Prompt: !,?17,"RX: ",RX_"-"_RFL
  • Line Location: CANCEL+15
Function Call: WRITE
  • Prompt: !!,"Rx # ",$P($G(^PSRX(PSODA,0)),"^")," has no charge data...NO action taken."
  • Line Location: CANCEL+21
Function Call: WRITE
  • Prompt: !!,"Rx # ",$P($G(^PSRX(PSODA,0)),"^")," has no charge data...NO action taken."
  • Line Location: CANCEL+24
Function Call: WRITE
  • Prompt: !!,?17,"PATIENT: ",NAME
  • Line Location: STATUS+4
Function Call: WRITE
  • Prompt: !,?17,"Medication: ",MED
  • Line Location: STATUS+5
Function Call: WRITE
  • Prompt: !,?17,"RX: ",RX_"-"_RFL
  • Line Location: STATUS+6
Function Call: WRITE
  • Prompt: !!,"Rx # ",PSORXN," is a ",$S(+PCOPAY:"Copay",1:"No Copay")," prescription"
  • Line Location: STATUS+11
Function Call: WRITE
  • Prompt: !,REC
  • Line Location: EXCEL+15
Function Call: WRITE
  • Prompt: !,"END OF REPORT"
  • Line Location: EXCEL+16
Function Call: WRITE
  • Prompt: !,"NO QUEUING ALLOWED FOR THIS REPORT"
  • Line Location: DEVICE+5
Function Call: WRITE
  • Prompt: !,"This report must have a line length of at least 256.",!
  • Line Location: DEVICE+6
Function Call: WRITE
  • Prompt: !,"Reset/Cancel Report"
  • Line Location: EXHDR+3
Function Call: WRITE
  • Prompt: !,"From ",BDATE," TO ",EDATE
  • Line Location: EXHDR+4
Function Call: WRITE
  • Prompt: !,HDR
  • Line Location: EXHDR+7
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+7
Routine Call
  • DIC
  • Line Location:
    • STATUS+19
    • STATUS+27
Routine Call
  • DIR
  • Line Location:
    • STATUS+17
    • STATUS+25

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IB - [#350] GET1^DIQ
^IBE(350.3 - [#350.3] Classic Fileman Calls
^PRCA(430 - [#430] GET1^DIQ
^PRCA(433 - [#433] GET1^DIQ
^PSRX - [#52] GET1^DIQ
52.1 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] SORTRF+3
^PS(55 - [#55] SORT+8, SORT+9
^PSRX - [#52] SORT+10, SORT+12, SORT+16, SORT+17, SORT+18, GETDATA+43, CANCEL+16, CANCEL+17, CANCEL+18, CANCEL+20
, CANCEL+21, CANCEL+23, CANCEL+24, STATUS+8, STATUS+9, STATUS+10, STATUS+14, STATUS+16, STATUS+22*, STATUS+24
, STATUS+30*
^TMP($J SORT+2!, GETDATA+45*, CANCEL+8, CANCEL+10, RESET+8, RESET+10, EXPORT+1, EXCEL+9, EXCEL+11, EXCEL+13
, EXCEL+14

Label References

Name Line Occurrences
ASKCAN CANCEL+26, STATUS+16, STATUS+24
DEVICE EXPORT+5
ENQ DEVICE+7
EXCEL DEVICE+12
EXHDR EXCEL+7
GETDATA SORTRF+4
SORT CANCEL+27, RESET+13
SORTRF SORT+16, SORT+18
STATUS RESET+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+4~, DEVICE+7*
ARST GETDATA+3~, GETDATA+17*, GETDATA+26*, GETDATA+32*, GETDATA+41*, GETDATA+45
ARST1 GETDATA+3~, GETDATA+17*, GETDATA+26*, GETDATA+32*, GETDATA+41*, GETDATA+42*, GETDATA+45
ARTRN GETDATA+3~, GETDATA+17*, GETDATA+19*, GETDATA+21, GETDATA+24*, GETDATA+28, GETDATA+45
BCNT EXCEL+3~
BDATE SORT+4~, SORT+5*, SORT+16, SORT+18, EXCEL+4~, EXCEL+5*, EXHDR+4
BLNO GETDATA+3~, GETDATA+17*, GETDATA+18*, GETDATA+34*, GETDATA+42, GETDATA+45
CNT CANCEL+4*, CANCEL+10*, RESET+4*, RESET+10*, EXCEL+3~
CRT DEVICE+4~, DEVICE+9*, DEVICE+10*
DEBTOR GETDATA+2~, GETDATA+17*, GETDATA+34*, GETDATA+37*, GETDATA+45
DFN SORT+4~, SORT+6*, SORT+8, SORT+9, SORTRF+3, GETDATA+45
DIC STATUS+19*!, STATUS+27*!
DIC("A" STATUS+19*, STATUS+27*
DIC("S" STATUS+19*, STATUS+27*
DIC(0 STATUS+19*, STATUS+27*
DIR STATUS+17!, STATUS+25!
DIR("A" STATUS+17*, STATUS+25*
DIR("B" STATUS+17*, STATUS+25*
DIR(0 STATUS+17*, STATUS+25*
DRG GETDATA+3~, GETDATA+6*, GETDATA+7
ECNT CANCEL+3~, RESET+3~
EDATE SORT+4~, SORT+5*, SORT+16, SORT+18, EXCEL+4~, EXCEL+6*, EXHDR+4
END SORT+4~
FILDT SORT+4~, SORT+16*, SORT+18*, GETDATA+45
FILTERS EXCEL~, EXCEL+5, EXCEL+6
FILTERS(0 SORT+5, SORT+6, DEVICE+12
FILTERS(1 SORT+11
FLAG STATUS+1~
GOTPAT CANCEL+3~, RESET+3~
HDR EXHDR+1~, EXHDR+6*, EXHDR+7
I CANCEL+3~, RESET+3~
IBFR CANCEL+3~, RESET+3~
IBN GETDATA+3~, GETDATA+13*, GETDATA+14*, GETDATA+18, GETDATA+19, GETDATA+21, GETDATA+23, GETDATA+30, GETDATA+41, GETDATA+45
IBND GETDATA+3~
IBST1 GETDATA+2~
IBTO CANCEL+3~, RESET+3~
IBXX CANCEL+3~, CANCEL+9*, CANCEL+10, RESET+3~, RESET+9*, RESET+10
IO EXCEL+2, DEVICE+12
IOSL DEVICE+4~, DEVICE+9, DEVICE+10
IOST DEVICE+4~, DEVICE+9
J CANCEL+3~, RESET+3~
LCNT EXPORT+3*, EXCEL+3~, EXCEL+8*
MAXCNT DEVICE+4~, DEVICE+9*, DEVICE+10*
MED GETDATA+2~, GETDATA+6*, GETDATA+45, CANCEL+11*, CANCEL+14, RESET+11*, STATUS+5
MIEN GETDATA+2~
MREC GETDATA+3~
NAME CANCEL+3~, CANCEL+11*, CANCEL+13, RESET+3~, RESET+11*, STATUS+4, EXCEL+3~, EXCEL+8*, EXCEL+9*, EXCEL+11
, EXCEL+13, EXCEL+14
NXT EXCEL+3~
OUT EXCEL+3~
PAT SORT+4~
PBIL GETDATA+3~, GETDATA+17*, GETDATA+28*, GETDATA+34, GETDATA+45
PCE EXCEL+3~
PCOPAY GETDATA+4~, GETDATA+43*, GETDATA+45, CANCEL+18*, STATUS+10*, STATUS+11, RESETE!
PIBN GETDATA+4~, GETDATA+17*, GETDATA+21*, GETDATA+23, GETDATA+24, GETDATA+26, GETDATA+30, GETDATA+32, GETDATA+37
PID GETDATA+2~, GETDATA+8*, GETDATA+45
POP DEVICE+4~, DEVICE+7
PREA CANCEL+17*, STATUS+1~, STATUS+9*, STATUS+20*, STATUS+28*, RESETE!
PRIEN GETDATA+4~, GETDATA+17*, GETDATA+28*, GETDATA+37, GETDATA+45
PSI STATUS+1~, STATUS+21*, STATUS+29*, RESETE!
PSOCOMM STATUS+1~, STATUS+20*, STATUS+21*, STATUS+28*, STATUS+29*, RESETE!
PSODA CANCEL+11*, CANCEL+16, CANCEL+17, CANCEL+18, CANCEL+20, CANCEL+21, CANCEL+23, CANCEL+24, RESET+11*, RESET+12
, STATUS~, STATUS+8, STATUS+9, STATUS+10, STATUS+12, STATUS+14, STATUS+16, STATUS+22, STATUS+24, STATUS+30
, RESETE!
PSOIBQ STATUS+1~, STATUS+14*, STATUS+16
PSOINDPT STATUS+1~
>> PSOLFIL STATUS+12*
PSONEW STATUS+1~
PSONW STATUS+1~, STATUS+20*, STATUS+28*
PSOOLD STATUS+1~, STATUS+20*, STATUS+28*
>> PSOPAR CANCEL+12, STATUS+3
PSOREF RESETE!
PSORSN STATUS+19*, STATUS+27*, RESETE!
PSORXN CANCEL+17*, STATUS+9*, STATUS+11, RESETE!
PSOSUMM STATUS+1~, STATUS+2*
PTNM GETDATA+2~, GETDATA+8*, GETDATA+45
RC CANCEL+3~, CANCEL+10*, CANCEL+11, RESET+3~, RESET+10*, RESET+11
REC EXCEL+3~, EXCEL+14*, EXCEL+15
RFL SORT+4~, SORT+16*, SORT+17*, SORT+18, GETDATA+13, GETDATA+14, GETDATA+45, CANCEL+11*, CANCEL+15, RESET+11*
, RESET+12, STATUS~, STATUS+6, EXCEL+4~, EXCEL+12*, EXCEL+13*, EXCEL+14
RIEN SORT+4~, SORT+9*, SORT+10, SORT+11, SORT+12, SORT+16, SORT+17, SORT+18, SORTRF+4, GETDATA~
, GETDATA+5, GETDATA+6, GETDATA+13, GETDATA+14, GETDATA+43, GETDATA+45, EXCEL+4~, EXCEL+10*, EXCEL+11*, EXCEL+13
, EXCEL+14
RNB GETDATA+2~
RSX SORT+4~
RX SORT+8*, SORT+9, GETDATA+2~, GETDATA+5*, GETDATA+45, CANCEL+11*, CANCEL+15, RESET+11*, STATUS+6
RXS SORT+4~, SORT+6*, SORT+11
TYPE DEVICE~, DEVICE+12
U SORT+5, SORT+6, SORT+9, SORT+16, SORT+18, GETDATA+8, GETDATA+45, CANCEL+11, RESET+11, EXCEL+5
, EXCEL+6, EXHDR+6
VADM SORT+4~
VADM(1 GETDATA+8
VADM(2 GETDATA+8
VAEL SORT+4~
>> VALMBCK CANCEL+29*, RESET+15*, EXPORT+1*, EXPORT+9*
VALMY CANCEL+3~, CANCEL+8, RESET+3~, RESET+8
VALMY( CANCEL+9, RESET+9
X GETDATA+3~, RESETE!
>> XQORNOD(0 CANCEL+5, RESET+5
XX EXCEL+3~
Y STATUS+18, STATUS+19, STATUS+26, STATUS+27, RESETE!
>> ZTQUEUED DEVICE+16
ZTREQ DEVICE+4~, DEVICE+16*
ZZ EXCEL+3~
ZZ1 EXCEL+3~
ZZ2 EXCEL+3~
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