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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSOCPE

Package: Outpatient Pharmacy

Routine: PSOCPE


Information

PSOCPE ;BIR/BAB - PHARMACY COPAY APPLICATION UTILITIES FOR IB ;10/26/92

Source Information

Source file <PSOCPE.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 6 ^DIC  ^DIE  EN^DIQ1  ^DIR  ^DIWP  ^DIWW  
MailMan 1 ^XMD  
Outpatient Pharmacy 1 ^PSOLSET  
Registration 1 (DEM,ELIG,PID)^VADPT  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Outpatient Pharmacy 4 PSOCP  PSOCP EXEMPTION  PSOLBL  PSOLBL2  
IHS Changes To Pharmacy 1 APSPLBL2  

Entry Points

Name Comments DBIA/ICR reference
MAIL2 ; SEND MAIL TO PHARMACIST, PROVIDER, AND HOLDERS OF PSO COPAY KEY
ELIG
RELHNC ;Is this Rx related to treatment of Head and/or Neck Cancer?;6
XMPT ; Entry point for menu option to select copay exemption
NAR ; Print narrative from site parameter file
WARNX
DRUG
PRT ;
RELSC ;Is this Rx for a Service Connected Condition?;1
P1
END ;
WARN ;
RELMST ;Is this Rx related to the treatment of Military Sexual Trauma?;2
QUIT
RELCV ;Is this Rx potentially for treatment related to Combat?;7
RELEC ;Is this Rx for treatment related to service in SW Asia?;5
INV ; Entry point from PSOCP - Prints one copay invoice
RELSHAD ;Is this Rx related to treatment of PROJ 112/SHAD?;8
RELAO ;Is this Rx for treatment of Vietnam-Era Herbicide (Agent Orange) exposure?;3
RELIR ;Is this Rx for treatment of Ionizing Radiation exposure?;4
MAIL ;
PAGE ;

External References

Name Field # of Occurrence
^DIC XMPT+3
^DIE XMPT+8
EN^DIQ1 MAIL+2
^DIR PAGE+1, WARN+6
^DIWP NAR+4
^DIWW P1
^PSOLSET XMPT+2
DEM^VADPT INV+4
ELIG^VADPT ELIG
PID^VADPT MAIL2+6
^XMD MAIL+9, MAIL2+58

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?54,"PRESCRIPTION COPAYMENT INFORMATION"
  • Line Location: INV+5
Function Call: WRITE
  • Prompt: !!,?54,VADM(1)," ",VA("PID")," ",EDT
  • Line Location: INV+6
Function Call: WRITE
  • Prompt: !,?54,@PSOBAR1,PSOCPBN,@PSOBAR0
  • Line Location: INV+9
Function Call: WRITE
  • Prompt: !
  • Line Location: INV+10
Function Call: WRITE
  • Prompt: !,?54,"The following prescriptions are"
  • Line Location: INV+11
Function Call: WRITE
  • Prompt: !,?54,"eligible for prescription copayment.",!!
  • Line Location: INV+12
Function Call: WRITE
  • Prompt: !
  • Line Location: NAR+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: ?54,PSZ2
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: ?72," ",$P(^TMP($J,"PSOCP",PSOCPN,PSZ2),"^",3)," ","Days Supply",!
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: ?56,$E($P(^TMP($J,"PSOCP",PSOCPN,PSZ2),U,2),1,45),!
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: XMPT+3
Function Call: WRITE
  • Prompt: !!,PSORXPNM_" is locked by another user. Try Later!"
  • Line Location: XMPT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: XMPT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: XMPT+8
Function Call: WRITE
  • Prompt: !!,"All Rx's entered with this Rx Patient Status will be EXEMPT from Copayment.",!
  • Line Location: XMPT+9
Function Call: WRITE
  • Prompt: !!,"All Rx's entered with this Rx Patient Status will NOT be exempt from Copayment.",!
  • Line Location: XMPT+10
Function Call: WRITE
  • Prompt: !!?28,"**** WARNING ****",!
  • Line Location: WARN+2
Function Call: WRITE
  • Prompt: !,"By setting the Exempt from Copayment for the Rx Patient Status of",!,PSORXPNM," to 'YES', every prescription entered",!,"with this Rx Patient Status will NOT be charged a Copayment.",!
  • Line Location: WARN+3
Function Call: WRITE
  • Prompt: !,"By setting the EXEMPT FROM COPAYMENT for the Rx Patient Status of ",!,PSORXPNM," to 'NO', prescriptions entered with this Rx",!,"Patient Status from this point on will NOT be exempt from Copayment.",!
  • Line Location: WARN+4
Function Call: WRITE
  • Prompt: !,"A mail message will be sent to PSORPH and PSO COPAY Key holders informing",!,"them of your change."
  • Line Location: WARN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: WARN+6
Function Call: WRITE
  • Prompt: !!,"Setting ",PSORXPNM," Rx Patient Status to Exempt from Copayment."
  • Line Location: WARN+8
Function Call: WRITE
  • Prompt: !!,"No action taken."
  • Line Location: WARN+10
Function Call: WRITE
  • Prompt: !!,"No action taken."
  • Line Location: WARN+11
Function Call: WRITE
  • Prompt: !
  • Line Location: WARNX+0
Routine Call
  • DIE
  • Line Location:
    • XMPT+8
Routine Call
  • DIC
  • Line Location:
    • XMPT+3
Routine Call
  • DIR
  • Line Location:
    • PAGE+1
    • WARN+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(53 - [#53] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" INV+4
^DD("DILOCKTM" XMPT+7
^DIC(31 - [#31] ELIG+5
^DPT - [#2] MAIL2+8, ELIG+4
^PS(53 - [#53] XMPT+5, XMPT+6, XMPT+7, XMPT+9, XMPT+10, XMPT+11, WARN+10*, WARN+11*
^PS(59 - [#59] NAR+2, NAR+3, NAR+4, MAIL2+7
^PSDRUG - [#50] MAIL2+14
^PSRX - [#52] MAIL2+6, MAIL2+7, MAIL2+8, MAIL2+10, MAIL2+12, MAIL2+53, MAIL2+54, MAIL2+55
^TMP($J DRUG, END+2!, PRT+2, PRT+3
^UTILITY($J NAR+1!
^XUSEC("PSO COPAY" MAIL+7, MAIL2+56
^XUSEC("PSORPH" MAIL+6

Label References

Name Line Occurrences
ELIG MAIL2+9
END NAR+2, NAR+3
MAIL WARN+7
P1 NAR+4
PAGE XMPT+7, XMPT+9, XMPT+10, WARNX
PRT DRUG
QUIT XMPT+3, XMPT+4, XMPT+7, XMPT+9, XMPT+10
WARN XMPT+11
WARNX WARN+7
XMPT XMPT+2

Naked Globals

Name Field # of Occurrence
^( DRUG
^(0 NAR+4, ELIG+4, ELIG+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C QUIT!
DA XMPT+7*, XMPT+9, XMPT+10, XMPT+11, QUIT!, WARN+1, WARNX+1*, MAIL+2*
>> DFN MAIL2+6*, ELIG+4
DIC XMPT+3*!, QUIT!, MAIL+2*!
DIC(0 XMPT+3*
DIE XMPT+3*, QUIT!
DIQ MAIL+2*!
DIQ(0 MAIL+2*
DIR PAGE+1!, WARN+6!
DIR("A" PAGE+1*, WARN+6*
DIR("B" WARN+6*
DIR(0 PAGE+1*, WARN+6*
DIWF NAR+1*, P1+1!, END+2!
DIWL NAR+1*, P1+1!, END+2!
DIWR NAR+1*, P1+1!, END+2!
DR XMPT+7*, QUIT!, MAIL+2*!
>> DRG MAIL2+12*, MAIL2+14
DT INV+4
>> DTOUT XMPT+4
DUZ MAIL+2, MAIL+8
DUZ("AUTO" PAGE+1
>> EDT INV+4*, INV+6
>> EXMT MAIL2+26*, MAIL2+27, MAIL2+28
I ELIG+1~, ELIG+4*
I1 ELIG+1~, ELIG+4*, ELIG+5, ELIG+6, ELIG+7
IOF END+1
N ELIG+1~, ELIG+2*
PSCNT ELIG+1~, ELIG+5*, ELIG+6, ELIG+7
PSDIS ELIG+1~, ELIG+5*, ELIG+6, ELIG+7
PSO9 NAR+4*, P1+1!, END+2!
>> PSOBAR0 INV+9
>> PSOBAR1 INV+9
>> PSOBARS INV+3
PSOC MAIL2+1~, MAIL2+10, MAIL2+11*, MAIL2+13*, MAIL2+14, MAIL2+15*, MAIL2+16, MAIL2+17*, MAIL2+18, MAIL2+19*
, MAIL2+20, MAIL2+21*, MAIL2+22, MAIL2+23*, MAIL2+24, MAIL2+25*, MAIL2+30*, MAIL2+32*, MAIL2+33*, MAIL2+34*
, MAIL2+35*, MAIL2+36*, MAIL2+37*, MAIL2+38*, MAIL2+39*, MAIL2+40*, MAIL2+41*, MAIL2+42*, MAIL2+43*, MAIL2+44*
, MAIL2+45*, MAIL2+46*, MAIL2+47*, MAIL2+48*, MAIL2+49*, MAIL2+50*, MAIL2+51*, MAIL2+58!, ELIG*, ELIG+2*
, ELIG+3*, ELIG+6*, ELIG+7, ELIG+8*
PSOCFN MAIL+1!, MAIL+2*, MAIL+3, MAIL+4, MAIL+10!
PSOCPBAR INV+2*, INV+3*, INV+9, END+2!
PSOCPBN INV+7*, INV+9, END+2!
PSOCPEDA XMPT+1~, WARN+1*, WARN+10, WARN+11, WARNX+1!
PSOCPN INV+1, DRUG, END+2!, PRT+2, PRT+3
PSOCXPDA MAIL+6*, MAIL+7*, MAIL+10!, MAIL2+56*, MAIL2+58!
PSODCPA MAIL+1!, MAIL+2!
PSODCPA(200 MAIL+2
PSODIV MAIL2+7*, MAIL2+8, MAIL2+58!
PSOLTAG MAIL2+28*, MAIL2+58!
>> PSOPAR XMPT+2
PSOQUES MAIL2+29*, MAIL2+30, MAIL2+31*, MAIL2+58!
>> PSOREF MAIL2+10, MAIL2+53, MAIL2+54
PSORXPNM XMPT+1~, XMPT+6*, XMPT+7, WARN+3, WARN+4, WARN+8, WARN+9, MAIL+3, MAIL+4
PSORXPRE XMPT+1~, XMPT+5*, XMPT+9, XMPT+10, QUIT!, WARN+3, WARN+4, WARN+8, WARN+10, WARN+11
, MAIL+3, MAIL+4, MAIL+5
>> PSOSITE NAR+2, NAR+3, NAR+4
PSOTG MAIL2+58!
PSOTG( MAIL2+26, MAIL2+27
PSOTXT MAIL+1!, MAIL+10!, MAIL2+1~
PSOTXT( MAIL2+10*, MAIL2+14*, MAIL2+16*, MAIL2+18*, MAIL2+20*, MAIL2+22*, MAIL2+24*, MAIL2+30*, MAIL2+32*, MAIL2+33*
, MAIL2+34*, MAIL2+35*, MAIL2+36*, MAIL2+37*, MAIL2+38*, MAIL2+39*, MAIL2+40*, MAIL2+41*, MAIL2+42*, MAIL2+43*
, MAIL2+44*, MAIL2+45*, MAIL2+46*, MAIL2+47*, MAIL2+48*, MAIL2+49*, MAIL2+50*, MAIL2+51*, ELIG*, ELIG+2*
, ELIG+3*, ELIG+6*, ELIG+7*, ELIG+8*
PSOTXT(1 MAIL+3*, MAIL+4*, MAIL2+5*
PSOTXT(2 MAIL+3*, MAIL+4*, MAIL2+8*
PSOTXT(3 MAIL+3*, MAIL+4*
PSOTXT(4 MAIL+5*
>> PSZ DRUG*
PSZ1 INV+7*, END+2!
PSZ2 INV+7*, DRUG*, END+2!, PRT+1, PRT+2, PRT+3
>> RXP INV+1, MAIL2+6, MAIL2+7, MAIL2+8, MAIL2+10, MAIL2+12, MAIL2+53, MAIL2+54, MAIL2+55
U PRT+3
>> VA("BID" MAIL2+8
>> VA("PID" INV+6
>> VADM(1 INV+6
>> VADM(2 INV+7
>> VAEL(1 ELIG, ELIG+2
>> VAEL(3 ELIG
X INV+9*, NAR+4*, QUIT!, MAIL2+1~
>> X2 INV+9*
XMDUZ MAIL+9*, MAIL+10!, MAIL2+4*, MAIL2+58!
XMSUB MAIL+9*, MAIL+10!, MAIL2+3*, MAIL2+7*, MAIL2+58!
XMTEXT MAIL+9*, MAIL+10!, MAIL2+57*, MAIL2+58!
XMY MAIL+10!, MAIL2+2!, MAIL2+58!
XMY( MAIL+6*, MAIL+7*, MAIL+8*, MAIL2+53*, MAIL2+54*, MAIL2+55*, MAIL2+56*
Y INV+4*, XMPT+3, XMPT+5, XMPT+6, XMPT+7, QUIT!, WARN+7

Marked Items

Name Field # of Occurrence
$T(@PSOLTAG MAIL2+29, MAIL2+31
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 |  Naked Globals |  Local Variables |  Marked Items |  All