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 |  Local Variables |  All
Print Page as PDF
Routine: PSOPI136

Package: Outpatient Pharmacy

Routine: PSOPI136


Information

PSOPI136 ;BHM/MFR,BI - Patient Merge Clean-up ;07/10/03

Source Information

Source file <PSOPI136.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 5 (,DD)^%DT  (C,H,NOW)^%DTC  ^DIE  $$GET1^DIQ  ^DIR  
Kernel 1 ^%ZTLOAD  
MailMan 1 ^XMD  
Outpatient Pharmacy 1 EN^PSOHLSN1  

Entry Points

Name Comments DBIA/ICR reference
REPEAT
END
EN
EXP ; Sets CPRS order status to EXPIRED
MAIL ; Send mail about the Clean-up
FIX(OLDDFN,NEWDFN) ; Fix problems caused by Patient Merge
DSC ; Sets CPRS order status to DISCONTINUED
OUT

External References

Name Field # of Occurrence
^%DT REPEAT+1
DD^%DT MAIL+4, MAIL+5
C^%DTC EN+4
H^%DTC REPEAT+5
NOW^%DTC REPEAT+4, EN+7, EN+13
^%ZTLOAD REPEAT+6
^DIE FIX+7
$$GET1^DIQ FIX+10, MAIL+23
^DIR OUT
EN^PSOHLSN1 EXP+3, DSC+19
^XMD MAIL+33

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The Environment Check Routine is designed",!,"to run during the installation step only.",!
  • Line Location: PSOPI136+10
Function Call: WRITE
  • Prompt: !,"This patch queues a job to perform Patient Merge Clean-up",!
  • Line Location: PSOPI136+11
Function Call: WRITE
  • Prompt: "It should be queued to run when there are no users processing outpatient prescriptions."
  • Line Location: REPEAT+0
Function Call: WRITE
  • Prompt: !,"The program did not run, the patch will not install.",!
  • Line Location: REPEAT+2
Function Call: WRITE
  • Prompt: !,"The program did not run, the patch will not install..",!
  • Line Location: REPEAT+3
Function Call: WRITE
  • Prompt: !,"MUST BE IN THE FUTURE",!
  • Line Location: REPEAT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: REPEAT+6
Function Call: WRITE
  • Prompt: !!,"JOB QUEUED AS ",$G(ZTSK),".",!
  • Line Location: REPEAT+7
Function Call: WRITE
  • Prompt: "Job is already running",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: DSC+20
Routine Call
  • DIE
  • Line Location:
    • FIX+7
Routine Call
  • DIR
  • Line Location:
    • OUT

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100 - [#100] GET1^DIQ
^DPT - [#2] GET1^DIQ
^PSRX - [#52] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] EN+9, EN+10, EN+11
^OR(100 - [#100] EXP+4*, DSC+22*, DSC+23*
^PS(55 - [#55] FIX+3, FIX+4
^PSRX - [#52] FIX+5, FIX+6, FIX+8, FIX+9, EXP+1*, DSC+4, DSC+5, DSC+8, MAIL+24
^TMP("PSO" MAIL+3!, MAIL+9*, MAIL+10*, MAIL+11*, MAIL+12*, MAIL+13*, MAIL+14*, MAIL+15*, MAIL+19*, MAIL+20*
, MAIL+23*, MAIL+27*, MAIL+28*, MAIL+29*, MAIL+30*, MAIL+31*, MAIL+32*, MAIL+34!
^XTMP("PSOPI136" EN+2, EN+4*, EN+5*, EN+7*, EN+13*, EN+16, FIX+11, FIX+12*, FIX+16*, FIX+17*
, MAIL+4, MAIL+5, MAIL+21, MAIL+22

Label References

Name Line Occurrences
DSC FIX+17
END EN+2
EXP FIX+16
FIX EN+12
MAIL EN+14
OUT REPEAT+2, REPEAT+3
REPEAT REPEAT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% REPEAT+4, EN~, EN+7, EN+13, MAIL+1~
%DT REPEAT+1*, OUT+1!
%DT("A" REPEAT+1*
%DT("B" REPEAT+1*
>> %H REPEAT+5
>> %T REPEAT+5
ACT0 DSC+1~, DSC+8*, DSC+9, DSC+10
ACTCOM DSC+1~, DSC+9*, DSC+11, DSC+13, DSC+14, DSC+15, DSC+16
ACTDT DSC+1~, DSC+3*, DSC+10*, DSC+21*, DSC+22, DSC+23
ACTLOG DSC+1~, DSC+3*, DSC+4*, DSC+5, DSC+6
CNT MAIL+1~, MAIL+8*, MAIL+9*, MAIL+10*, MAIL+11*, MAIL+12*, MAIL+13*, MAIL+14*, MAIL+15*, MAIL+19*
, MAIL+20*, MAIL+23*, MAIL+27*, MAIL+28*, MAIL+29*, MAIL+30*, MAIL+31*, MAIL+32
COMM FIX+1~, EXP+2*, EXP+3, DSC+7*, DSC+10*, DSC+12*, DSC+14*, DSC+15*, DSC+17*, DSC+19
DA FIX+1~, FIX+7*, MAIL+21*, MAIL+22, MAIL+24
DASH MAIL+1~, MAIL+8*, MAIL+13, MAIL+14, MAIL+20, MAIL+28
DIE FIX+1~, FIX+7*
DIFROM MAIL+1~
DIR OUT!
DIR("A" OUT*
DIR(0 OUT*
DR FIX+1~, FIX+7*
DT EN+4, DSC+21
>> DTOUT REPEAT+2
DUZ EN+4, DSC+18*, DSC+20*, MAIL+6
EXPDT FIX+1~, FIX+3*, FIX+4, EXP+4
FINISH MAIL+1~, MAIL+5*, MAIL+11
LSTACT DSC+1~, DSC+3*, DSC+6*, DSC+7, DSC+8
NACT DSC+1~, DSC+7*, DSC+10*, DSC+14*, DSC+19
NEWDFN EN~, EN+11*, EN+12, FIX~, FIX+3, FIX+4, FIX+6, FIX+7, FIX+12
OLDDFN EN~, EN+9*, EN+10, EN+11, EN+12, FIX~, FIX+12
ORIEN FIX+1~, FIX+8*, FIX+10, EXP+4, DSC+22, DSC+23
ORST FIX+1~
ORSTN FIX+1~, FIX+10*, FIX+12, FIX+13
PHARM DSC+1~, DSC+3*, DSC+9*, DSC+14*, DSC+18
RSN DSC+1~, DSC+5*, DSC+6
RUNCNT EN~, EN+5*, EN+7, EN+13, FIX+11, FIX+12, FIX+16, FIX+17, MAIL+4, MAIL+5
, MAIL+21, MAIL+22
RXCNT EN~, EN+8*, FIX+7*, MAIL+30
RXIEN FIX+1~, FIX+4*, FIX+5, FIX+6, FIX+7, FIX+8, FIX+9, FIX+10, FIX+11, FIX+12
, FIX+16, FIX+17, EXP+1, EXP+3, DSC+4, DSC+5, DSC+8, DSC+19
RXST FIX+1~, FIX+9*, FIX+14, FIX+16, DSC+19
RXSTN FIX+1~, FIX+10*, FIX+12, FIX+13
SAVEDUZ DSC+1~, DSC+18*, DSC+20
START MAIL+1~, MAIL+4*, MAIL+10
STCNT EN~, EN+8*, FIX+15*, MAIL+31
X REPEAT+5*, OUT+1!, EN~, EN+4, MAIL+1~, MAIL+16*, MAIL+17*, MAIL+18*, MAIL+19, MAIL+24*
, MAIL+25*, MAIL+26*, MAIL+27
X1 EN~, EN+4*
X2 EN~, EN+4*
XMDUZ MAIL+1~, MAIL+6*
XMSUB MAIL+1~, MAIL+7*
XMTEXT MAIL+1~, MAIL+33*
>> XMY( MAIL+6*
>> XPDENV PSOPI136+10
>> XPDQUIT REPEAT+2*, REPEAT+3*
Y REPEAT+3, REPEAT+4, REPEAT+5*, REPEAT+6, OUT+1!, MAIL+1~, MAIL+4*, MAIL+5*
>> Z MAIL+22*, MAIL+23, MAIL+24, MAIL+25, MAIL+26
>> ZTDESC REPEAT+6*
>> ZTDTH REPEAT+6*
>> ZTIO REPEAT+6*
>> ZTRTN REPEAT+6*
>> ZTSAVE("XPDQUIT" REPEAT+6*
>> ZTSK REPEAT+7
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All