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  | All
Print Page as PDF
Routine: PSO7E684

Package: Outpatient Pharmacy

Routine: PSO7E684


Information

PSO7E684 ;WILM/BDB - Environment routine for patch PSO*7*684 ;4/22/2022

Source Information

Source file <PSO7E684.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 ($$DT,$$FMADD,$$FMDIFF,$$NOW)^XLFDT  ($$INSTALDT,$$PATCH,BMES,MES)^XPDUTL  $$PROD^XUPROD  $$ENCRYP^XUSRB1  
VA FileMan 4 $$FIND1^DIC  FIELD^DID  UPDATE^DIE  $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Outpatient Pharmacy 3 PSO7L529  PSO7L684  PSO7P684  

Entry Points

Name Comments DBIA/ICR reference
INITXTMP(HANDPSO,TITLE,LIFE)
P545CHK7() ; Have more than 7 days elapsed since PSO*7*545 was installed?
DEAWS ; Install DEA Web Service
; 1st: Makes an entry/update to the WEB SERVICE FILE #18.02 in global ^XOB(18.02,
; 2nd: Makes an entry/update to the WEB SERVICE FILE #18.02 in global ^XOB(18.02,
; 3nd: Makes an entry/update to the WEB SERVER FILE #18.12 in global ^XOB(18.12,
MSDTHLP ; Migration Start Date/Time Help
MSHLP ; Migration Start Help Text

External References

Name Field # of Occurrence
$$FIND1^DIC PSO7E684+18
FIELD^DID PSO7E684+13
UPDATE^DIE DEAWS+23, DEAWS+41, DEAWS+51
$$GET1^DIQ DEAWS+47
$$DT^XLFDT P545CHK7+6
$$FMADD^XLFDT INITXTMP+3
$$FMDIFF^XLFDT P545CHK7+6
$$NOW^XLFDT INITXTMP+2
$$INSTALDT^XPDUTL P545CHK7+4
$$PATCH^XPDUTL P545CHK7+2
BMES^XPDUTL PSO7E684+15, PSO7E684+22
MES^XPDUTL PSO7E684+23
$$PROD^XUPROD PSO7E684+11, DEAWS+14
$$ENCRYP^XUSRB1 DEAWS+37, DEAWS+40

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Enter the scheduled date/time to queue the DEA migration."
  • Line Location: MSDTHLP+1
Function Call: WRITE
  • Prompt: !,"The migration may several hours to run."
  • Line Location: MSDTHLP+2
Function Call: WRITE
  • Prompt: !," During the DEA migration, an attempt is made to migrate"
  • Line Location: MSHLP+1
Function Call: WRITE
  • Prompt: !," all DEA numbers from the NEW PERSON file (#200) to the"
  • Line Location: MSHLP+2
Function Call: WRITE
  • Prompt: !," DEA NUMBERS file (#8991.9). "
  • Line Location: MSHLP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: MSHLP+4
Function Call: WRITE
  • Prompt: !," DEA numbers successfully validated by the DEA web service"
  • Line Location: MSHLP+5
Function Call: WRITE
  • Prompt: !," (PSO DOJ/DEA WEB SERVICE) are migrated and linked to the"
  • Line Location: MSHLP+6
Function Call: WRITE
  • Prompt: !," associated provider in the NEW PERSON file."
  • Line Location: MSHLP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: MSHLP+8
Function Call: WRITE
  • Prompt: !," Providers that cannot be migrated are recorded in the "
  • Line Location: MSHLP+9
Function Call: WRITE
  • Prompt: !," DEA Migration Report [PSO DEA MIGRATION REPORT]."
  • Line Location: MSHLP+10
Function Call: WRITE
  • Prompt: !," Upon completion of the migration, a Mailman message is"
  • Line Location: MSHLP+11
Function Call: WRITE
  • Prompt: !," sent to holders of the PSDMGR key with the subject"
  • Line Location: MSHLP+12
Function Call: WRITE
  • Prompt: !," ""DEA Migration Complete MM/DD/YYYY"", where MM/DD/YYYY is"
  • Line Location: MSHLP+13
Function Call: WRITE
  • Prompt: !," the Date/Time the migration completed."
  • Line Location: MSHLP+14
Function Call: WRITE
  • Prompt: !
  • Line Location: MSHLP+15
Routine Call
  • DIC
  • Line Location:
    • PSO7E684+18
Routine Call
  • DIE
  • Line Location:
    • DEAWS+23
    • DEAWS+41
    • DEAWS+51

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^XOB(18.02 - [#18.02] FIND1^DIC,  GET1^DIQ
^XOB(18.12 - [#18.12] FIND1^DIC
^XTV(8991.9 - [#8991.9] FIELD^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XOB(18.12 - [#18.12] DEAWS+47
^XTMP( PSO7E684+20, PSO7E684+25*, PSO7E684+26, INITXTMP+4*

Label References

Name Line Occurrences
$$P545CHK7 PSO7E684+11
DEAWS PSO7E684+18
INITXTMP PSO7E684+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEGDT INITXTMP+1~, INITXTMP+2*, INITXTMP+3, INITXTMP+4
>> DATA P545CHK7+4
>> DATA("" P545CHK7+5
DEALABEL PSO7E684+6~
DEALABEL("LABEL" PSO7E684+13
DEARR PSO7E684+6~
DIR DEAWS+13~
DIROUT DEAWS+13~
DIRUT DEAWS+13~
DTOUT DEAWS+13~
DUOUT DEAWS+13~
ENVRMT DEAWS+13~, DEAWS+14*, DEAWS+16, DEAWS+35, DEAWS+38
FDA DEAWS+5~, DEAWS+18!, DEAWS+24!, DEAWS+46!
FDA( DEAWS+19*, DEAWS+20*, DEAWS+21*, DEAWS+22*, DEAWS+26*, DEAWS+27*, DEAWS+28*, DEAWS+29*, DEAWS+30*, DEAWS+31*
, DEAWS+32*, DEAWS+33*, DEAWS+34*, DEAWS+36*, DEAWS+37*, DEAWS+39*, DEAWS+40*, DEAWS+49*, DEAWS+50*
HANDPSO PSO7E684+6~, PSO7E684+7*, PSO7E684+20, PSO7E684+24, PSO7E684+25, PSO7E684+26, INITXTMP~, INITXTMP+4
IENROOT DEAWS+10~, DEAWS+24!, DEAWS+46!
IENROOT(1 DEAWS+43
IENROOT1 DEAWS+10~, DEAWS+43*, DEAWS+45
LIFE PSO7E684+6~, PSO7E684+9*, PSO7E684+24, INITXTMP~, INITXTMP+3
MSGROOT DEAWS+10~, DEAWS+24!, DEAWS+46!
MULTIEN DEAWS+8~, DEAWS+43*, DEAWS+47*, DEAWS+48*, DEAWS+49, DEAWS+50
P545FIRST P545CHK7+1~, P545CHK7+5*, P545CHK7+6
P545INST P545CHK7+1~, P545CHK7+2*, P545CHK7+3
P545X P545CHK7+1~, P545CHK7+4*
PSODEAC DEAWS+11~
PSODEAMSG DEAWS+11~
PURGDT INITXTMP+1~, INITXTMP+3*, INITXTMP+4
SERVADD DEAWS+13~, DEAWS+16*, DEAWS+28
TITLE PSO7E684+6~, PSO7E684+8*, PSO7E684+22, PSO7E684+24, INITXTMP~, INITXTMP+4
VICEIEN DEAWS+10~, DEAWS+47*
WEBVER DEAWS+7~, DEAWS+45*, DEAWS+47, DEAWS+49, DEAWS+50
WEBVICE DEAWS+6~
WSTAT DEAWS+9~
X DEAWS+13~
>> XPDABORT PSO7E684+14*, PSO7E684+21*
Y DEAWS+13~
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  | All