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

Package: Outpatient Pharmacy

Routine: PSO480P


Information

PSO480P ;BIR/PC-Automatic Cancel of Copay charges for DOM ;03/02/17 10:30am

Source Information

Source file <PSO480P.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 ^%ZTLOAD  ($$FMADD,$$FMTE,$$FMTH,$$HTE,$$NOW)^XLFDT  ($$INSTALDT,BMES,MES)^XPDUTL  $$PROD^XUPROD  
VA FileMan 3 DD^%DT  NOW^%DTC  ($$GET1,GETS)^DIQ  
Outpatient Pharmacy 2 CHKIB^PSOCP1  (ACTLOG,RXED)^PSOCPA  
MailMan 1 ^XMD  
Registration 1 INP^VADPT  

Entry Points

Name Comments DBIA/ICR reference
MAIL2 ;site detailed report email
QUIT ;
EN ;
MAIL3 ;delimited file
GETIB ;get billing information from IB Billing Action file #350
MAILL ;
CHKACT ;check activity log for prev entry
START1 ;
SITE ; SET UP VARIABLES NEEDED BY BILLING
START ;
ZERO ;
MAIL1 ;management mail message for total patients and dollars
INST ;get first install date for FMCT patch PSO*7*460 which will be the begin date for checking for DOMICILIARY copay charges
REPORT ;accumulate reports information for national and local
CHKCAN ;verify that cancel copay worked
CANCEL ;cancel copay
; verify again that it was billed and not already cancelled
MAIL ;email reports
REFILL ;
CHECK ;check IB nodes
; see if bill already exists - returned value of PSOIB1 means Rx is billed
LOOP ;loop through AL cross reference

External References

Name Field # of Occurrence
DD^%DT START1+4, MAIL1+2
NOW^%DTC START1+4, CANCEL+7, MAIL1+2
^%ZTLOAD START+28
$$GET1^DIQ LOOP+5, CANCEL+13, MAILL+6, MAILL+7
GETS^DIQ ZERO+2, REFILL+1, GETIB+1
CHKIB^PSOCP1 CHECK+2, CHECK+3, CANCEL+3, CANCEL+4
ACTLOG^PSOCPA CANCEL+16, CHKACT+3
RXED^PSOCPA CANCEL+14
INP^VADPT LOOP+6
$$FMADD^XLFDT EN+4, START1+6
$$FMTE^XLFDT START+7, REPORT+15, MAILL+7
$$FMTH^XLFDT START+11, START+14
$$HTE^XLFDT START+18
$$NOW^XLFDT EN+4, START+11, START+22, START1+6
^XMD MAIL1+29, MAIL2+10, MAILL+12
$$INSTALDT^XPDUTL INST+2
BMES^XPDUTL EN+8, START+16, START+20, START+31, START+32
MES^XPDUTL EN+9, START+17, START+18, START+19, START+30
$$PROD^XUPROD MAIL1+14, MAIL1+17, MAIL2+7, MAILL+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"This job previously ran to completion on "
  • Line Location: START+6
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P($G(^XTMP(NAMSP,0,"LAST")),"^",2)),!!
  • Line Location: START+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^IB - [#350] GETS^DIQ
^PSRX - [#52] GET1^DIQ,  GETS^DIQ
52.1 GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] MAIL1+1
^DIC(42 - [#42] LOOP+7
^DPT - [#2] REPORT+14
^PS(59 - [#59] SITE+3, SITE+4, SITE+5
^PSRX - [#52] CHECK+2, CHECK+3, CANCEL+3, CANCEL+4, CANCEL+9, CANCEL+10, CANCEL+15!, CANCEL+16!, SITE+1, CHKACT+2
, REPORT+13
^PSRX("AL" LOOP+3, LOOP+4
^TMP($J REPORT+2!, REPORT+5*, REPORT+6*, REPORT+15*, MAIL3+8*, MAIL3+9*, MAIL3+10*, MAIL3+11*, MAIL3+12*, MAILL+7*
^XMB("NETNAME" MAIL1+13, MAIL2+6, MAIL3+7
^XMB(1 - [#4.3] MAIL1+1
^XTMP( EN+5*, EN+7, START+5, START+7, START+22*, START+27, QUIT+1, START1+7!*, GETIB+10*, CHKCAN+2*
, REPORT+8, REPORT+9, REPORT+10, REPORT+11, MAILL+2, MAILL+3, MAILL+4

Label References

Name Line Occurrences
CANCEL LOOP+16
CHECK LOOP+10, CHKCAN+1
CHKACT CANCEL+8
CHKCAN LOOP+17
GETIB LOOP+15
MAIL LOOP+19
QUIT EN+10, START+8, START+20
REFILL LOOP+14
REPORT LOOP+18
SITE CANCEL+11
ZERO LOOP+13

Naked Globals

Name Field # of Occurrence
^(0 LOOP+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUIT+2!, START1+4, CANCEL+7, MAIL1+2
BEGDT EN+1~, EN+4*, EN+5, START1+2~, START1+6*, START1+7
CHKCAN START1+2~
DATA INST+1~, INST+2*
DATA( INST+3
DFN INST+1~, LOOP+5*, REFILL+2*
DIFROM MAIL1+29~, MAIL2+10~, MAILL+12~
DTOUT EN+1~
DUOUT EN+1~
DUZ MAIL1+4, MAIL2+3, MAIL3+4
JJ START1+2~, REPORT+3*, REPORT+7*, REPORT+14*, REPORT+15
JOBN EN+1~, EN+6*, EN+8, START+17, START+20, START+25
LIFE EN+1~, EN+3*, EN+4, START1+2~, START1+5*, START1+6
NAMSP EN+1~, EN+2*, EN+5, EN+7, START+5, START+7, START+22, START+27, QUIT+1, START1+2~
, START1+3*, START1+6*, START1+7, LOOP+1*, GETIB+10, CHKCAN+2, REPORT+8, REPORT+9, REPORT+10, REPORT+11
, MAILL+2, MAILL+3, MAILL+4
POSIB INST+1~
PREA QUIT+2!, CANCEL+7*, CANCEL+13*, CHKACT+3*
PSO QUIT+2!, CANCEL+13*
PSOARBN QUIT+2!, GETIB+2*, GETIB+6*, GETIB+10, REPORT+3*, REPORT+12*, REPORT+15, MAIL3+2*, MAILL+5*, MAILL+7
PSOAT QUIT+2!, GETIB+2*, GETIB+3*, GETIB+10, REPORT+3*, REPORT+12*, REPORT+15, MAIL3+2*, MAILL+5*, MAILL+7
PSOBILLD QUIT+2!, CANCEL+2*, CANCEL+3*, CANCEL+4*, CANCEL+5
PSOCNT MAIL3+1~, MAIL3+2*, MAIL3+13*, MAILL+6*, MAILL+7
PSOCOMM QUIT+2!, CANCEL+7*, CANCEL+11*
PSODA QUIT+2!, LOOP+5*, CANCEL+7*, CANCEL+9, CANCEL+13*, CHKACT+2
PSODATA INST+1~, LOOP+12!
PSODATA( REFILL+2, REFILL+3
PSODATA(52 ZERO+3, ZERO+4
PSODAYS QUIT+2!, CANCEL+13*
PSODFN INST+1~, LOOP+5*, REFILL+2*, GETIB+10, REPORT+3*, REPORT+8*, REPORT+9, REPORT+10, REPORT+11, REPORT+14
, MAIL3+2*, MAILL+2*, MAILL+3, MAILL+4, MAILL+6
PSODOM INST+1~, LOOP+6*, LOOP+7*, LOOP+8
PSODT QUIT+2!, CANCEL+7*
PSOEDT INST+1~
PSOEND START1+2~, MAIL1+2*, MAIL1+20, MAIL3+10
PSOFILL START1+2~, LOOP+2*, LOOP+4*, LOOP+9, LOOP+13, LOOP+14, CHECK+2, CHECK+3, REFILL+1, REFILL+2
, REFILL+3, GETIB+10, CHKACT+3, CHKCAN+2, REPORT+10*, REPORT+11, REPORT+12, MAIL3+2*, MAILL+3*, MAILL+4
, MAILL+7
PSOFILL1 QUIT+2!, START1+2~, REPORT+12*, REPORT+15
PSOFLAG QUIT+2!, CANCEL+13*
PSOIB START1+2~, LOOP+10*, LOOP+11, CANCEL+2*, CANCEL+3, CANCEL+4, CANCEL+9*, CHKCAN+2
PSOIBDAT QUIT+2!
PSOIBDAT(350 GETIB+3, GETIB+4, GETIB+5, GETIB+6, GETIB+7
PSOIBN QUIT+2!, INST+1~, ZERO+4*, REFILL+3*, GETIB+1, GETIB+3, GETIB+4, GETIB+5, GETIB+6, GETIB+7
PSOINST QUIT+3!, GETIB+2*, GETIB+7*, GETIB+10, REPORT+3*, REPORT+12*, REPORT+15, MAIL1+1*, MAIL1+16, MAIL3+2*
, MAILL+5*, MAILL+7
PSOINSTD INST+1~, INST+3*, LOOP+2
PSOINSTL QUIT+2!
PSOISTAT QUIT+2!, GETIB+2*, GETIB+4*, GETIB+10, REPORT+3*, REPORT+12*, MAIL3+2*, MAILL+5*
PSONAM REPORT+14*, REPORT+15, MAIL3+1~, MAIL3+2*, MAILL+4*, MAILL+6*, MAILL+7
PSONML QUIT+2!, REPORT+14*
PSONW QUIT+2!, CANCEL+7*, CANCEL+13*, CHKACT+3*
PSOOIB QUIT+2!, CANCEL+10*
PSOOLD QUIT+2!, CANCEL+7*, CANCEL+13*, CHKACT+3*
PSOPAR QUIT+3!, SITE+3*
PSOPAR7 QUIT+3!, SITE+4*
PSORDT INST+1~, LOOP+2*, LOOP+3*, LOOP+4, LOOP+5, GETIB+10, CHKCAN+2, REPORT+3*, REPORT+8*, REPORT+9
, REPORT+10, REPORT+11, REPORT+15, MAIL3+2*, MAILL+2*, MAILL+3, MAILL+4, MAILL+7
PSOREF QUIT+3!, START1+2~, LOOP+9*, CANCEL+2, CANCEL+4, CANCEL+8, CANCEL+9, CANCEL+15, CANCEL+16, CHKACT+3*
PSORX QUIT+3!, REPORT+3*, REPORT+9*, REPORT+10, REPORT+11, REPORT+13
PSORXE START1+2~, REPORT+3*, REPORT+13*, REPORT+15
PSOSITE QUIT+3!, SITE+1*, SITE+2, SITE+3, SITE+4, SITE+5
PSOSITE7 QUIT+3!, SITE+5*
PSOSTART START1+2~, START1+4*, MAIL1+20, MAIL3+10
PSOSTAT QUIT+3!, ZERO+3*
PSOTAMT QUIT+3!, GETIB+2*, GETIB+5*, GETIB+10, REPORT+3*, REPORT+4*, REPORT+12*, REPORT+13, REPORT+15, MAIL3+2*
, MAILL+5*, MAILL+7
PSOTDOL START1+2~, REPORT+3*, REPORT+4*, REPORT+13*, MAIL1+27
PSOTEXT MAIL1+3!
PSOTEXT(1 MAIL1+19*
PSOTEXT(10 MAIL1+27*
PSOTEXT(11 MAIL1+28*
PSOTEXT(2 MAIL1+20*
PSOTEXT(3 MAIL1+21*
PSOTEXT(4 MAIL1+22*
PSOTEXT(5 MAIL1+23*
PSOTEXT(6 MAIL1+24*
PSOTEXT(7 MAIL1+25*
PSOTEXT(9 MAIL1+26*
PSOTMRX START1+2~, REPORT+3*, MAIL1+25
PSOTPAT START1+2~, REPORT+3*, REPORT+4*, REPORT+8*, MAIL1+26
PSOTRX START1+2~, REPORT+3*, REPORT+9*, MAIL1+24
PURGDT EN+4*, EN+5, START1+2~, START1+6*, START1+7
QUIT EN+1~, START+3*
RUNOPT EN+1~
RXP START1+2~, LOOP+2*, LOOP+3*, LOOP+4, LOOP+5, CHECK+2, CHECK+3, ZERO+2, ZERO+3, ZERO+4
, REFILL+1, REFILL+2, REFILL+3, GETIB+10, CANCEL+3, CANCEL+4, CANCEL+7, CANCEL+9, CANCEL+10, CANCEL+13
, CANCEL+15, CANCEL+16, SITE+1, CHKCAN+2, MAIL3+2*, MAILL+3*, MAILL+4, MAILL+7
TITLE EN+1~, EN+3*, EN+5, START1+5*, START1+7
VAIN EN+1~, QUIT+2!
VAIN(4 LOOP+7
VAINDT EN+1~, LOOP+5*
X START1+2~, INST+2*
XMDUZ MAIL1+5*, MAIL1+15*, MAIL1+29!, MAIL2+1~, MAIL2+2*, MAIL2+9*, MAIL3+1~, MAIL3+3*, MAILL+11*
XMSUB MAIL1+16*, MAIL1+17*, MAIL1+18*, MAIL1+29!, MAIL2+1~, MAIL2+8*, MAIL3+1~, MAILL+10*
XMTEXT MAIL1+29*!, MAIL2+1~, MAIL2+10*, MAIL3+1~, MAILL+12*
XMX MAIL1+1~, MAIL1+13*, MAIL2+1~, MAIL2+6*, MAIL3+1~, MAIL3+7*
XMY MAIL2+1~, MAIL3+1~
XMY( MAIL1+4*, MAIL2+3*, MAIL3+4*
XMY("AMY.VANEPPS@DOMAIN.EXT" MAIL1+11*
XMY("CROSSMAN.PAM@DOMAIN.EXT" MAIL1+7*, MAIL2+5*, MAIL3+6*
XMY("ELLZEY.LINDA@DOMAIN.EXT" MAIL1+6*, MAIL1+14*, MAIL2+4*, MAIL2+7*, MAIL3+5*, MAILL+9*
XMY("G." MAIL1+13*, MAIL2+6*, MAIL3+7*
XMY("LINDA.ELLZEY@DOMAIN.EXT" MAIL1+9*
XMY("MITCHELL.FETTERMAN@DOMAIN.EXT" MAIL1+12*
XMY("PAMELA.CROSSMAN@DOMAIN.EXT" MAIL1+8*
XMY("PAMELA.GUNDERSON@DOMAIN.EXT" MAIL1+10*
XPDQUES START+33!
XPDQUES("POS2" START+14, START+20
XX START1+2~, INST+2*, REPORT+3*, REPORT+11*, REPORT+12, MAILL+3*, MAILL+4*, MAILL+5
Y EN+1~, START+11*, START1+4*, MAIL1+2*
YY EN+1~, CANCEL+2*, CANCEL+3, CANCEL+4, CANCEL+9, SITE+1
ZACT CHKACT+1~
ZACTI CHKACT+1~, CHKACT+2*
ZPSI CHKACT+1~, CHKACT+2*
ZTDESC EN+1~, START+25*
ZTDTH EN+1~, START+11*, START+14*, START+18, START+20
ZTIO EN+1~, START+24*
ZTRTN EN+1~, START+24*
ZTSAVE EN+1~, QUIT+2!
ZTSAVE("JOBN" START+26*
ZTSAVE("NAMSP" START+26*
ZTSK EN+1~, START+29, START+30

Marked Items

Name Field # of Occurrence
$T( EN+2, START1+3, START1+6, LOOP+1
Info |  Source |  Call 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