Routine: PSN574P

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("PSN4.0574 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("PSN4.0574 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

Customize PDF page

Package: National Drug File

Routine: PSN574P

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: