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 |  Marked Items |  All
Print Page as PDF
Routine: PSOCPA

Package: Outpatient Pharmacy

Routine: PSOCPA


Information

PSOCPA ;BHAM ISC/LGH - PHARMACY CO-PAY CANCEL & RESET STATUS OPTIONS ;05/27/92

Source Information

Source file <PSOCPA.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 NOW^%DTC  ^DIC  $$GET1^DIQ  
Integrated Billing 1 ($$STATUS,CANCEL,CANIBAM,UPDATE,UPIBAM)^IBARX  
Outpatient Pharmacy 1 CHRG^PSOPFSU1  

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
Outpatient Pharmacy 12 PSOCIDC2  PSOCP  PSOCPB  PSOCPC  PSOCPD  PSOCPIB  PSOCPIBC  PSOHLNE3  
PSOHLNE4  PSOPFSU1  PSORESK1  PSORXED  

Entry Points

Name Comments DBIA/ICR reference
EXIT
PFS
UPDATE ;if days supply changes during Rx edit, cancel old bill and get new bill number
EN ;Entry point for Remove Co-Pay charge
PFS3 ;
PFS2 ;
RX ;
RXED2
RXED ; Entry point from PSORXED and PSORESK1...requires PSODA,PSO,PSODAYS,PSOFLAG
CANCEL2
ENDMSG ;
ACTL
REASON ;
EXITA ;
FILE ;
CANCEL ;
; Set x=service^dfn^^user duz
; x(n)=IB number^cancellation reason
RXDEL ; Entry point when Rx is deleted thru menu option -- THIS ENTRY POINT NO LONGER USED WITH MILL BILL COPAY CHANGES
ACTLOG ;ENTER MESSAGE INTO RX COPAY ACTIVITY LOG

External References

Name Field # of Occurrence
NOW^%DTC ACTLOG+3
^DIC RX+2, REASON+4, PFS, PFS+1, RXDEL+1, ACTL+1
$$GET1^DIQ REASON+1
$$STATUS^IBARX CANCEL+5, CANCEL+6
CANCEL^IBARX PFS+7, RXDEL+6
CANIBAM^IBARX PFS+6
UPDATE^IBARX UPDATE+24
UPIBAM^IBARX UPDATE+22, UPDATE+23
CHRG^PSOPFSU1 REASON+6, CANCEL2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: RX+2
Function Call: WRITE
  • Prompt: !,"Rx # ",PSORXN," is NOT a COPAY transaction...NO action taken."
  • Line Location: RXED+5
Function Call: WRITE
  • Prompt: !,"Error in processing...No action taken."
  • Line Location: PFS+10
Function Call: WRITE
  • Prompt: !!,"Co-Pay transaction for Rx # ",PSORXN,$S(PSOREF>0:" refill # "_PSOREF,1:"")," has been cancelled."
  • Line Location: PFS2+1
Function Call: WRITE
  • Prompt: !!,"Co-Pay transaction for Rx # ",PSORXN,$S(PSOREF>0:" refill # "_PSOREF,1:"")," has been updated."
  • Line Location: PFS2+2
Function Call: WRITE
  • Prompt: !,"Use Pharmacy Manager Option - Edit Prescriptions - to UPDATE this Rx."
  • Line Location: UPDATE+3
Function Call: WRITE
  • Prompt: !,"Error in processing...No action taken."
  • Line Location: UPDATE+27
Function Call: WRITE
  • Prompt: !!,"Co-Pay transaction for Rx # ",PSORXN,$S(PSOREF>0:" refill # "_PSOREF,1:"")," has previously been cancelled."
  • Line Location: EXITA+1
Function Call: WRITE
  • Prompt: !!,"Unable to UPDATE COPAY TRANSACTON without REMOVAL REASON entry."
  • Line Location: ENDMSG+1
Routine Call
  • DIC
  • Line Location:
    • RX+2
    • REASON+4
    • PFS
    • PFS+1
    • RXDEL+1
    • ACTL+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(350.3 - [#350.3] Classic Fileman Calls
^PSRX - [#52] Classic Fileman Calls,  GET1^DIQ
52.1 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSRX - [#52] RXED+2, RXED+5, RXED+6, RXED+7, RXED+10, RXED+12, RXED+13, RXED+14, REASON+3, REASON+5
, PFS+3, PFS+5, CANCEL2+1, FILE+3*, FILE+4*, FILE+5*, FILE+6*, UPDATE+9, UPDATE+11, UPDATE+18
, ACTLOG+1, ACTL, ACTL+3*, ACTL+4*

Label References

Name Line Occurrences
ACTL ACTL
ACTLOG PFS2+3, RXDEL+8
CANCEL REASON+3
CANCEL2 REASON+3, PFS+2, PFS+6
ENDMSG REASON+4, PFS
EXIT RX+1, RX+2, RXED+5, RXED+7, RXED2+1, REASON+4, REASON+5, REASON+8, PFS, PFS+1
, PFS+10, PFS+11, CANCEL2+1, CANCEL2+2, CANCEL2+4, UPDATE+3, UPDATE+12, UPDATE+27, UPDATE+28, PFS3+2
, RXDEL+9
EXITA CANCEL+5, CANCEL+6
FILE CANCEL2+3, PFS3+1
PFS REASON+3
PFS2 REASON+5, CANCEL2+2
REASON RXED+4, RXED+12
RXED2 RXED+10
UPDATE REASON+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ACTL+3
>> COPAYFLG REASON+4*, PFS*
>> DA UPDATE+2, EXIT*
DIC RX+2*!, REASON+4*!, PFS*!, PFS+1*!, RXDEL+1!*, ACTL+1!*
DIC("A" REASON+4*, PFS*
DIC("S" REASON+4*, PFS*
DIC(0 RX+2*, REASON+4*, PFS*, PFS+1*, RXDEL+1*, ACTL+1*
DUZ PFS+3, UPDATE+9, RXDEL+4, ACTL+3
POTBILL RXED+1~, RXED+7*, RXED2*, RXED2+1, PFS+4, PFS+5, PFS+6, FILE+3, FILE+4, FILE+5
, FILE+6, UPDATE+20, UPDATE+21, UPDATE+24
>> PREA PFS2+1*, PFS2+2*, RXDEL+8*, ACTLOG+3*, ACTL+3
>> PSI ACTLOG+3*, ACTL*, ACTL+3, ACTL+4
PSO EN+2*, RX+1, RXED+5, RXED+6, RXED+7, RXED+10, RXED2, REASON+3, REASON+5, REASON+7
, CANCEL+6, PFS, PFS+1, PFS2+1, PFS2+2, EXITA+1, EXIT+1!, EXIT+2, ENDMSG+1
>> PSOCOMM PFS2+1*, PFS2+2*, ACTL+2
PSOCPUN UPDATE+11*, UPDATE+12, UPDATE+19, EXIT+1!, EXIT+2!
PSODA RX+2*, RXED+2, RXED+5, RXED+6, RXED+7, RXED+10, RXED+12, RXED+13, RXED+14, REASON+1
, REASON+3, REASON+5, REASON+6, PFS+3, PFS+5, CANCEL2, CANCEL2+1, FILE+3, FILE+4, FILE+5
, FILE+6, UPDATE+9, UPDATE+11, UPDATE+15, UPDATE+18, RXDEL+3*, EXIT+1!, ACTLOG+1, ACTL, ACTL+3
, ACTL+4
>> PSODAYS UPDATE+12
PSOFLAG EN+1*, UPDATE+3, EXIT+1!
PSOIB RXED+6*, RXED+7, RXED+14*, RXED2, RXED2+1, CANCEL+5, CANCEL+6, PFS+4, RXDEL+5, EXIT+1!
PSOIBST CANCEL+3~, CANCEL+5*, CANCEL+6*
>> PSONW ACTL+3
>> PSOOLD ACTL+3
>> PSOPAR7 PFS+3, UPDATE+9, RXDEL+4
PSOPARNT UPDATE+18*, UPDATE+19, EXIT+1!, EXIT+2!
>> PSOPFS RXED+4, REASON+3, REASON+5, REASON+6, PFS+2, CANCEL2, CANCEL2+2, ACTLOG+1
PSORD REASON+1~*, REASON+5, CANCEL2
PSOREF RXED+4*, RXED+7, RXED+11*, RXED+13*, RXED+14, REASON+1, REASON+6, CANCEL+5, CANCEL+6, PFS+4
, PFS+5, CANCEL2, FILE+3, FILE+4, FILE+5, FILE+6, PFS2+1, PFS2+2, UPDATE+15, UPDATE+18
, EXITA+1, EXIT+1!, ACTL+3
PSORSN REASON+4*, PFS*, PFS+1*, PFS+4, PFS+5, UPDATE+19, RXDEL+1*, RXDEL+5, EXIT+1!, ACTL+1
PSORSNZ ACTL+1!*, ACTL+2*, ACTL+3, ACTL+5!
PSORXN RXED+2*, RXED+5, PFS+4, PFS+5, PFS+11, FILE+3, FILE+5, PFS2+1, PFS2+2, UPDATE+15
, UPDATE+19, UPDATE+21, UPDATE+28, RXDEL+3*, RXDEL+5, EXITA+1, EXIT+1!, EXIT+2!
PSZ RXED+13*, EXIT+1!
>> RX RXDEL+3, RXDEL+4
>> RXN RXDEL+3
SAVEDA UPDATE+1~, UPDATE+2*, EXIT
>> TYPE RXED+4
X PFS+1*, PFS+3*, UPDATE+9*, RXDEL+1*, RXDEL+4*, EXIT+1!, EXIT+2!, ACTLOG+2~, ACTL+1*
X( PFS+4*, PFS+5*, UPDATE+15*, UPDATE+19*, UPDATE+21*, RXDEL+5*
Y RX+2, REASON+4, PFS, PFS+1, PFS+10, UPDATE+27, RXDEL+1, RXDEL+2!, RXDEL+7, EXIT+1!
, EXIT+2!, ACTLOG+2~, ACTL+1
Y( PFS+11, FILE+3, FILE+5, UPDATE+28

Marked Items

Name Field # of Occurrence
$T(UPIBAM^IBARX UPDATE+22
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 |  Marked Items |  All