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

Package: National Drug File

Routine: PSN574P


Information

PSN574P ;HDSO/DSK - PSN*4.0*574 Post-install routine; Aug 11, 2022@15:00

Source Information

Source file <PSN574P.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ^%ZTLOAD  $$FMADD^XLFDT  $$CJ^XLFSTR  BMES^XPDUTL  
VA FileMan 3 ^DIE  $$GET1^DIQ  ^DIR  
MailMan 1 SENDMSG^XMXAPI  
Registration 1 DEM^VADPT  

Entry Points

Name Comments DBIA/ICR reference
EN ;
START ;
NDCUPN ;Correct entries in the NDC/UPN (#50.67) file.
GMR ;Correct records in the PATIENT ALLERGIES (#120.8) file.
MAIL ;
BACKOUT ;This section is invoked from the programmer's prompt if patch back out is required.
NDCBACK ;
GMRBACK ;
MAILBACK ;

External References

Name Field # of Occurrence
^%ZTLOAD EN+19
^DIE NDCUPN+21, GMR+29, NDCBACK+23, GMRBACK+29
$$GET1^DIQ NDCUPN+17, NDCUPN+19, NDCUPN+22, NDCUPN+25, GMR+25, GMR+27, GMR+31, GMR+37, BACKOUT+11, NDCBACK+19
NDCBACK+21, NDCBACK+24, NDCBACK+27, GMRBACK+25, GMRBACK+27, GMRBACK+30, GMRBACK+36
^DIR BACKOUT+5, MAILBACK+17
DEM^VADPT GMR+32, GMRBACK+31
$$FMADD^XLFDT START+3, BACKOUT+9
$$CJ^XLFSTR EN+20, EN+21, EN+22, EN+23
SENDMSG^XMXAPI MAIL+12, MAILBACK+12
BMES^XPDUTL EN+20, EN+21, EN+22, EN+23

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Please wait until the back out completes."
  • Line Location: BACKOUT+16
Function Call: WRITE
  • Prompt: !,"Working."
  • Line Location: BACKOUT+17
Function Call: WRITE
  • Prompt: "."
  • Line Location: NDCBACK+29
Function Call: WRITE
  • Prompt: "."
  • Line Location: GMRBACK+45
Function Call: WRITE
  • Prompt: !,"Finished back out. Now queueing MailMan message.",!
  • Line Location: GMRBACK+48
Routine Call
  • DIE
  • Line Location:
    • NDCUPN+21
    • GMR+29
    • NDCBACK+23
    • GMRBACK+29
Routine Call
  • DIR
  • Line Location:
    • BACKOUT+5
    • MAILBACK+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(120.8 - [#120.8] Classic Fileman Calls,  GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^PSNDF(50.67 - [#50.67] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.8 - [#120.8] GMR+23
^PSNDF(50.67 - [#50.67] NDCUPN+15
^XTMP("PSN*4.0*574 BACK OUT" BACKOUT+8!, BACKOUT+9*, BACKOUT+10*, BACKOUT+11*, BACKOUT+12*, NDCBACK+1*, NDCBACK+2*, NDCBACK+3*, NDCBACK+4*, NDCBACK+5*
NDCBACK+6*, NDCBACK+7*, NDCBACK+9*, NDCBACK+24*, NDCBACK+25, NDCBACK+26*, NDCBACK+27*, GMRBACK+1*, GMRBACK+2*, GMRBACK+3*
GMRBACK+4*, GMRBACK+5*, GMRBACK+6*, GMRBACK+7*, GMRBACK+8*, GMRBACK+9*, GMRBACK+10*, GMRBACK+12*, GMRBACK+34*, GMRBACK+37
GMRBACK+38*, GMRBACK+39*, GMRBACK+41, GMRBACK+42*, GMRBACK+43*, MAILBACK+2*, MAILBACK+3*, MAILBACK+4*
^XTMP("PSN*4.0*574 POST INSTALL" START+2!, START+3*, NDCUPN+1*, NDCUPN+2*, NDCUPN+3*, NDCUPN+4*, NDCUPN+5*, NDCUPN+6*, NDCUPN+7*, NDCUPN+8*
NDCUPN+10*, NDCUPN+22*, NDCUPN+23, NDCUPN+24*, NDCUPN+25*, GMR+2*, GMR+3*, GMR+4*, GMR+5*, GMR+6*
GMR+7*, GMR+8*, GMR+9*, GMR+10*, GMR+11*, GMR+12*, GMR+13*, GMR+14*, GMR+15*, GMR+16*
GMR+18*, GMR+35*, GMR+38, GMR+39*, GMR+40*, GMR+42, GMR+43*, GMR+44*, MAIL+2*, MAIL+3*
MAIL+4*, NDCBACK+15, NDCBACK+16, GMRBACK+18, GMRBACK+20
^XUSEC("PSNMGR" MAIL+7, MAILBACK+7

Label References

Name Line Occurrences
GMR START+7
GMRBACK BACKOUT+18
MAIL START+7
MAILBACK BACKOUT+18
NDCBACK BACKOUT+18
NDCUPN START+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA NDCUPN+12~, NDCUPN+20*, GMR+20~, GMR+28*, NDCBACK+11~, NDCBACK+22*, GMRBACK+14~, GMRBACK+28*
DFN GMR+20~, GMR+31*, GMR+35, GMRBACK+14~, GMRBACK+30*, GMRBACK+34
DIE NDCUPN+12~, NDCUPN+13*, GMR+20~, GMR+21*, NDCBACK+11~, NDCBACK+12*, GMRBACK+14~, GMRBACK+15*
DIR BACKOUT+1~, MAILBACK+1~
DIR("A" BACKOUT+2*, BACKOUT+3*, BACKOUT+4*, MAILBACK+13*, MAILBACK+14*, MAILBACK+15*
DIR("B" BACKOUT+4*
DIR(0 BACKOUT+4*, MAILBACK+16*
DR NDCUPN+12~, NDCUPN+13*, GMR+20~, GMR+21*, NDCBACK+11~, NDCBACK+12*, GMRBACK+14~, GMRBACK+15*
DT START+3, BACKOUT+9
DUZ EN+17, BACKOUT+11, MAILBACK+9, MAILBACK+12
PSNCHAR GMRBACK+14~, GMRBACK+23*
PSNCOUNT GMRBACK+14~, GMRBACK+23*
PSNDUZ EN+13~, EN+17*, MAIL+9, MAIL+12
PSNL4 GMR+20~, GMR+34*, GMR+35, GMRBACK+14~, GMRBACK+33*, GMRBACK+34
PSNMAILSQ START+5~, START+6*, NDCUPN+14*, NDCUPN+22, NDCUPN+23, NDCUPN+24, NDCUPN+25, NDCUPN+26*, NDCUPN+28*, GMR+2
GMR+3, GMR+4, GMR+5, GMR+6, GMR+7, GMR+8, GMR+9, GMR+10, GMR+11, GMR+12
GMR+13, GMR+14, GMR+15, GMR+16, GMR+18, GMR+22*, GMR+35, GMR+38, GMR+39, GMR+40
GMR+42, GMR+43, GMR+44, GMR+45*, GMR+47*, MAIL+2, MAIL+3, MAIL+4, BACKOUT+14~, BACKOUT+15*
NDCBACK+13*, NDCBACK+24, NDCBACK+25, NDCBACK+26, NDCBACK+27, NDCBACK+28*, NDCBACK+31*, GMRBACK+1, GMRBACK+2, GMRBACK+3
GMRBACK+4, GMRBACK+5, GMRBACK+6, GMRBACK+7, GMRBACK+8, GMRBACK+9, GMRBACK+10, GMRBACK+12, GMRBACK+17*, GMRBACK+34
GMRBACK+37, GMRBACK+38, GMRBACK+39, GMRBACK+41, GMRBACK+42, GMRBACK+43, GMRBACK+44*, GMRBACK+47*, MAILBACK+2, MAILBACK+3
MAILBACK+4
PSNMIN MAIL+1~, MAIL+12, MAILBACK+1~, MAILBACK+12
PSNMIN("FROM" MAIL+11*, MAILBACK+11*
PSNMY MAIL+1~, MAIL+12, MAILBACK+1~, MAILBACK+12
PSNMY( MAIL+8*, MAIL+9*, MAILBACK+8*, MAILBACK+9*
PSNMZ MAILBACK+1~, MAILBACK+12, MAILBACK+13
PSNORIG GMR+20~, GMR+37*, GMR+40, GMRBACK+36*, GMRBACK+39
PSNQUIT NDCBACK+11~, NDCBACK+13*, NDCBACK+15, NDCBACK+17*, GMRBACK+14~, GMRBACK+17*, GMRBACK+18, GMRBACK+21*
PSNREC MAIL+1~, MAIL+6*, MAIL+7*, MAIL+8, MAILBACK+1~, MAILBACK+6*, MAILBACK+7*, MAILBACK+8
PSNSPACE START+5~, START+6*, NDCUPN+22, NDCUPN+24, GMR+35, GMR+39, GMR+43, BACKOUT+14~, BACKOUT+15*, NDCBACK+24
NDCBACK+26, GMRBACK+34, GMRBACK+38, GMRBACK+42
PSNSTART GMR+20~, GMR+22*, GMR+47, GMRBACK+14~, GMRBACK+17*, GMRBACK+47
PSNSTR NDCUPN+12~, NDCUPN+14*, NDCUPN+23*, NDCUPN+24, GMR+20~, GMR+38*, GMR+39, GMR+42*, GMR+43, NDCBACK+11~
NDCBACK+13*, NDCBACK+25*, NDCBACK+26, GMRBACK+14~, GMRBACK+20*, GMRBACK+21, GMRBACK+23, GMRBACK+37*, GMRBACK+38, GMRBACK+41*
GMRBACK+42
PSNSUB MAIL+1~, MAIL+10*, MAIL+12, MAILBACK+1~, MAILBACK+10*, MAILBACK+12
PSNTEXT MAIL+1~, MAIL+5*, MAIL+12, MAILBACK+1~, MAILBACK+5*, MAILBACK+12
PSNX NDCUPN+12~, NDCUPN+14*, NDCUPN+15*, NDCUPN+17, NDCUPN+19, NDCUPN+20, NDCUPN+22, NDCUPN+25, GMR+20~, GMR+22*
GMR+23*, GMR+25, GMR+27, GMR+28, GMR+31, GMR+37, GMR+44, NDCBACK+11~, NDCBACK+16*, NDCBACK+17
NDCBACK+19, NDCBACK+21, NDCBACK+22, NDCBACK+24, NDCBACK+27, GMRBACK+14~, GMRBACK+22*, GMRBACK+23*, GMRBACK+25, GMRBACK+27
GMRBACK+28, GMRBACK+30, GMRBACK+36, GMRBACK+43
PSNZ BACKOUT+14~, NDCBACK+13*, NDCBACK+15*, NDCBACK+16, GMRBACK+17*, GMRBACK+18*, GMRBACK+20
VADM GMR+20~
VADM(1 GMR+34, GMRBACK+33
VADM(2 GMR+34, GMRBACK+33
Y BACKOUT+1~, BACKOUT+6
ZTDESC EN+13~, EN+15*
ZTDTH EN+13~, EN+16*
ZTIO EN+13~, EN+16*
>> ZTQUEUED START+8
>> ZTREQ START+8*
ZTRTN EN+13~, EN+14*
ZTSAVE EN+13~
ZTSAVE("PSNDUZ" EN+18*
>> ZTSK EN+21
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