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

Package: Outpatient Pharmacy

Routine: PSOCPC


Information

PSOCPC ;BHAM ISC/BAB - PHARMACY CO-PAY APPLICATION ;06/09/92

Source Information

Source file <PSOCPC.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Outpatient Pharmacy 4 (SCNEW,SETCOMM,XTYPE)^PSOCP  ACTLOG^PSOCPA  EN^PSOHLSN1  (RESET,SCP)^PSORN52D  
VA FileMan 3 EN^DDIOL  $$GET1^DIQ  ^DIR  
Integrated Billing 1 $$STATUS^IBARX  

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 PSOCPB  PSOCPD  PSOCPF1  REFILL  

Entry Points

Name Comments DBIA/ICR reference
EXEMCHK ; Allow reset of exemption answers
HELPCV ;
LAST ;find last entry
ENDW ;
SETSUMM ; SET MESSAGE INTO SUMMARY
HELPHNC ;
HELPIR ;
HELPSHAD ;
HELPAO ;
WARN ; Message when attempt is made to delete a refill date on COPAY
ASKEXEM ; ASK THE EXEMPTION QUESTIONS
HELPEXEM ; help text for exemption edit question
HELPSC ;
HELPEC ;
CANCEL ;Check if charge is cancelled for this Refill date
ASKEXEM1
HELPMST ;

External References

Name Field # of Occurrence
EN^DDIOL WARN+8, WARN+9
$$GET1^DIQ EXEMCHK+32
^DIR EXEMCHK+29, ASKEXEM1
$$STATUS^IBARX WARN+6
SCNEW^PSOCP EXEMCHK+16
SETCOMM^PSOCP ASKEXEM1+6
XTYPE^PSOCP EXEMCHK+18
ACTLOG^PSOCPA EXEMCHK+55
EN^PSOHLSN1 EXEMCHK+51
RESET^PSORN52D EXEMCHK+49
SCP^PSORN52D EXEMCHK+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The following exemption flags have been set:"
  • Line Location: EXEMCHK+22
Function Call: WRITE
  • Prompt: !,$S(EXMT="EC":"SWAC",1:EXMT),": ",?6,$S(PSOTG(EXMT)=1:"Yes",PSOTG(EXMT)=0:"No",1:"")
  • Line Location: EXEMCHK+23
Function Call: WRITE
  • Prompt: !
  • Line Location: EXEMCHK+24
Function Call: WRITE
  • Prompt: !
  • Line Location: EXEMCHK+25
Function Call: WRITE
  • Prompt: !,"Editing of exemption flag(s) has resulted in a copay status change.",!,"The status for this Rx will be reset to NO COPAY."
  • Line Location: EXEMCHK+53
Function Call: READ
  • Prompt: " Are you sure you want to delete this answer? "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASKEXEM1+0
Function Call: WRITE
  • Prompt: !,"Enter 'Y' for Yes if you want to edit any applicable exemption flags such as"
  • Line Location: HELPEXEM+1
Function Call: WRITE
  • Prompt: !,"Service Connected (SC), Combat Veteran(CV), Agent Orange (AO), Ionizing"
  • Line Location: HELPEXEM+2
Function Call: WRITE
  • Prompt: !,"Radiation (IR), Southwest Asia Conditions (SWAC), PROJ 112/SHAD,"
  • Line Location: HELPEXEM+3
Function Call: WRITE
  • Prompt: !,"Military Sexual Trauma (MST), or Head and/or Neck Cancer (HNC)."
  • Line Location: HELPEXEM+4
Routine Call
  • DIR
  • Line Location:
    • EXEMCHK+29
    • ASKEXEM1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IB - [#350] CANCEL+3, LAST+2
^IB("APDT" LAST+3
^IBE(350.1 - [#350.1] CANCEL+3
^PS(53 - [#53] EXEMCHK+48
^PSRX - [#52] WARN+3, WARN+4, CANCEL+2, EXEMCHK+3, EXEMCHK+14, EXEMCHK+34, EXEMCHK+35, EXEMCHK+47!, EXEMCHK+48*, EXEMCHK+54*

Label References

Name Line Occurrences
@( ASKEXEM+1
ASKEXEM EXEMCHK+44
ASKEXEM1 ASKEXEM1
CANCEL WARN+7
ENDW WARN+3, WARN+5, WARN+6, WARN+7
LAST CANCEL+3
SETSUMM EXEMCHK+57, EXEMCHK+59, EXEMCHK+60, SETSUMM+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA WARN+3, WARN+4, CANCEL+2
>> DA(1 WARN+3, WARN+4, CANCEL+2
DIR EXEMCHK+25!, EXEMCHK+29!, ASKEXEM+1!
DIR("?" EXEMCHK+27*, HELPSC+1*, HELPSC+2*, HELPSC+3*, HELPAO+1*, HELPAO+2*, HELPIR+1*, HELPIR+2*, HELPEC+1*, HELPEC+2*
, HELPMST+1*, HELPMST+2*, HELPHNC+1*, HELPHNC+2*, HELPCV+1*, HELPCV+2*, HELPCV+3*, HELPCV+4*, HELPSHAD+1*, HELPSHAD+2*
, HELPSHAD+3*, HELPSHAD+4*
DIR("??" EXEMCHK+28*
DIR("A" EXEMCHK+25*, ASKEXEM+1*
DIR("B" EXEMCHK+25*, EXEMCHK+26*, ASKEXEM+1*, ASKEXEM1+1
DIR(0 EXEMCHK+25*, ASKEXEM+1*
DTIME ASKEXEM1
>> DTOUT ASKEXEM1+1
EXMT EXEMCHK+17~, EXEMCHK+20*, EXEMCHK+23*, EXEMCHK+26*, EXEMCHK+38*, EXEMCHK+39, EXEMCHK+40, ASKEXEM+1, ASKEXEM1+3
>> HELPTAG EXEMCHK+40*, ASKEXEM+1
II EXEMCHK+31~, EXEMCHK+37*, EXEMCHK+58, EXEMCHK+60*, ASKEXEM1+3*
OLDIBQ EXEMCHK+1~, EXEMCHK+3*, EXEMCHK+4, EXEMCHK+6, EXEMCHK+7, EXEMCHK+8, EXEMCHK+9, EXEMCHK+10, EXEMCHK+11, EXEMCHK+12
, EXEMCHK+13, EXEMCHK+31~, EXEMCHK+34*, EXEMCHK+35*
>> PCOPAY EXEMCHK+52
>> PREA EXEMCHK+55*
>> PSI EXEMCHK+57*, EXEMCHK+59*, EXEMCHK+60*, SETSUMM+1*, SETSUMM+2*
PSOANS EXEMCHK+1~, EXEMCHK+2*, EXEMCHK+5*, EXEMCHK+20*, EXEMCHK+22
PSOCHG EXEMCHK+31~, EXEMCHK+45
PSOCHG( EXEMCHK+60, ASKEXEM1+3*
PSOCOMM EXEMCHK+36*, EXEMCHK+56*, EXEMCHK+59*, EXEMCHK+60*, ASKEXEM1+5, SETSUMM+2, SETSUMM+3!
PSOCPN EXEMCHK+1~, EXEMCHK+14*, EXEMCHK+16
>> PSODA EXEMCHK+3, EXEMCHK+14, EXEMCHK+15, EXEMCHK+16, EXEMCHK+32, EXEMCHK+34, EXEMCHK+35, EXEMCHK+47, EXEMCHK+48, EXEMCHK+51
, EXEMCHK+54
PSOEXMT EXEMCHK+1~, EXEMCHK+29*
PSOFLG WARN+2*, WARN+7, WARN+10*, ENDW+1, ENDW+2!, CANCEL+1*, CANCEL+3*
PSOIB WARN+1~, WARN+4*, WARN+5, WARN+6, WARN+7
PSOIBQ EXEMCHK+31~, EXEMCHK+33*, EXEMCHK+48, EXEMCHK+52, ASKEXEM1+2*, ASKEXEM1+3
PSOIBST WARN+1~, WARN+6*
PSOL CANCEL+4!, LAST+3*
PSOLAST CANCEL+3, CANCEL+4!, LAST+1*, LAST+3*, LAST+4*
PSOLDT CANCEL+4!, LAST+3*
PSOLTAG EXEMCHK+31~, EXEMCHK+39*
>> PSONW EXEMCHK+36*, EXEMCHK+55*
>> PSOOLD EXEMCHK+36*, EXEMCHK+55*
PSOPARNT CANCEL+3, CANCEL+4!, LAST+2*, LAST+3, LAST+4
PSOPATST EXEMCHK+31~, EXEMCHK+32*, EXEMCHK+48
>> PSOPFSA EXEMCHK+50*
PSOQUES EXEMCHK+31~, EXEMCHK+41*, EXEMCHK+42*, ASKEXEM+1
>> PSOREF EXEMCHK+55*
PSOSCA EXEMCHK+1~
PSOSCP EXEMCHK+1~, EXEMCHK+48
PSOSUBS EXEMCHK+31~, EXEMCHK+43*, ASKEXEM1+2, ASKEXEM1+3
>> PSOSUMM( SETSUMM+1, SETSUMM+2*
PSOTG EXEMCHK+1~, EXEMCHK+16
PSOTG( EXEMCHK+20, EXEMCHK+23, EXEMCHK+26, EXEMCHK+38, ASKEXEM+1, ASKEXEM1+3
PSOTG("" EXEMCHK+21
PSOTG("AO" EXEMCHK+8*
PSOTG("CV" EXEMCHK+12*
PSOTG("EC" EXEMCHK+10*
PSOTG("HNC" EXEMCHK+11*
PSOTG("IR" EXEMCHK+9*
PSOTG("MST" EXEMCHK+7*
PSOTG("SC" EXEMCHK+6*
PSOTG("SHAD" EXEMCHK+13*
PSOX CANCEL+2*, CANCEL+4!, LAST+2
>> PSOXXDEL WARN+8, WARN+9
>> RXP EXEMCHK+15*
>> X ASKEXEM1*, ASKEXEM1+1*
>> Y EXEMCHK+29, ASKEXEM1+1*, ASKEXEM1+2, ASKEXEM1+3, ASKEXEM1+4

Marked Items

Name Field # of Occurrence
$T(@PSOLTAG EXEMCHK+41, EXEMCHK+43
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