Routine: PSO770PI

Package	Total	Call Graph
VA FileMan	5	$$FIND1^DIC FILE^DICN (,UPDATE)^DIE (,ENALL)^DIK $$GET1^DIQ
Kernel	3	($$FMADD,$$FMTE,$$NOW)^XLFDT (BMES,MES)^XPDUTL (OPTSTAT,RESCH)^XUTMOPT
Text Integration Utility	1	$$CRDD^TIUCRDD

Name	Comments	DBIA/ICR reference
EN	; Entry Point
NEWTXTS(SCRC,FDASCR,CODEIEN)	;
NEWCODES	; List of new Codes for file #52.45
UPDTESRC	;Update ERX SERVICE REASON CODES
CREATEPN(PARNTDOC,STDTITLE,TITLE)	;

Name	Field # of Occurrence
$$FIND1^DIC	CREATEPN+8, CREATEPN+11
FILE^DICN	EN+24
^DIE	EN+15
UPDATE^DIE	EN+52, EN+60, UPDTESRC+10, UPDTESRC+20, UPDTESRC+30, UPDTESRC+43, UPDTESRC+51, UPDTESRC+61, UPDTESRC+73, UPDTESRC+84
^DIK	EN+10, EN+40
ENALL^DIK	EN+35
$$GET1^DIQ	EN+9, EN+31
$$CRDD^TIUCRDD	CREATEPN+16
$$FMADD^XLFDT	EN+29
$$FMTE^XLFDT	EN+2, EN+27, EN+34, EN+68
$$NOW^XLFDT	EN+2, EN+27, EN+34, EN+68
BMES^XPDUTL	EN+2, EN+27, EN+34, EN+68
MES^XPDUTL	CREATEPN+20, CREATEPN+23, CREATEPN+42
OPTSTAT^XUTMOPT	EN+28
RESCH^XUTMOPT	EN+29

FileNo	Call Tags
^ORD(101 - [#101]	GET1^DIQ
^PS(52.45 - [#52.45]	Classic Fileman Calls
^PS(52.49 - [#52.49]	Classic Fileman Calls
^PS(59.7 - [#59.7]	GET1^DIQ
^TIU(8925.1 - [#8925.1]	FIND1^DIC
^TIU(8926.1 - [#8926.1]	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101 - [#101]	EN+5, EN+6, EN+7, EN+8
^PS(52.45 - [#52.45]	EN+13, EN+19, EN+40, EN+45, EN+58, UPDTESRC+1, UPDTESRC+3!, UPDTESRC+12, UPDTESRC+14!, UPDTESRC+22 , UPDTESRC+24!, UPDTESRC+32, UPDTESRC+34!, UPDTESRC+45, UPDTESRC+47!, UPDTESRC+53, UPDTESRC+55!, UPDTESRC+63, UPDTESRC+65!, UPDTESRC+75 , UPDTESRC+77!
^PS(52.49 - [#52.49]	EN+33

Name	Line Occurrences
CREATEPN	EN+66
NEWTXTS	EN+51, EN+59
UPDTESRC	EN+63

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CODE	UPDTESRC+1, UPDTESRC+2, UPDTESRC+3, UPDTESRC+9, UPDTESRC+12, UPDTESRC+13, UPDTESRC+14, UPDTESRC+19, UPDTESRC+22, UPDTESRC+23 , UPDTESRC+24, UPDTESRC+29, UPDTESRC+32, UPDTESRC+33, UPDTESRC+34, UPDTESRC+42, UPDTESRC+45, UPDTESRC+46, UPDTESRC+47, UPDTESRC+50 , UPDTESRC+53, UPDTESRC+54, UPDTESRC+55, UPDTESRC+60, UPDTESRC+63, UPDTESRC+64, UPDTESRC+65, UPDTESRC+72, UPDTESRC+75, UPDTESRC+76 , UPDTESRC+77, UPDTESRC+83
CODEDESC	EN+1~, EN+57*, EN+58
CODEIEN	EN+1~, EN+13, EN+14, EN+15, EN+58, EN+59, NEWTXTS~, NEWTXTS+100
DA	EN+1~, EN+10, EN+15, EN+40*
DA(1	EN+10*
DIC	EN+1~, EN+20!*
DIC("DR"	EN+21, EN+22, EN+23*
DIC(0	EN+20*
DIE	EN+1~, EN+15*
DIERR	UPDTESRC+10!, UPDTESRC+20!, UPDTESRC+30!, UPDTESRC+43!, UPDTESRC+51!, UPDTESRC+61!, UPDTESRC+73!, UPDTESRC+84!
DIK	EN+1~, EN+10!, EN+35, EN+39*
DIK(1	EN+35*
>> DR	EN+15*
DT	EN+29
FDASCR	EN+1~, EN+46!, EN+51, EN+53!, EN+59!, NEWTXTS~
FDASCR(	EN+47, EN+48, EN+49, EN+50, NEWTXTS+99, NEWTXTS+100
FOUND	NEWTXTS+2~, NEWTXTS+3, NEWTXTS+11, NEWTXTS+18, NEWTXTS+24, NEWTXTS+29, NEWTXTS+35, NEWTXTS+41, NEWTXTS+48, NEWTXTS+56* , NEWTXTS+64, NEWTXTS+70, NEWTXTS+76, NEWTXTS+82, NEWTXTS+89, NEWTXTS+96, NEWTXTS+98
FOUNDDOC	CREATEPN+6~, CREATEPN+8*, CREATEPN+15, CREATEPN+29, CREATEPN+34, CREATEPN+38
FOUNDSTD	CREATEPN+6~, CREATEPN+11*, CREATEPN+15, CREATEPN+29, CREATEPN+34, CREATEPN+38
II	EN+1~, EN+38, EN+43
MBMSITE	EN+1~, EN+31*, EN+55
MES	CREATEPN+6~, CREATEPN+20, CREATEPN+23, CREATEPN+42
MES(1	CREATEPN+13*
MES(2	CREATEPN+18, CREATEPN+21, CREATEPN+26*
MES(3	CREATEPN+19, CREATEPN+22, CREATEPN+27*
MES(4	CREATEPN+30, CREATEPN+35, CREATEPN+39*
MES(5	CREATEPN+31, CREATEPN+36, CREATEPN+40*
MES(6	CREATEPN+32*
NEWC	EN+1~, EN+38, EN+39, EN+43, EN+44
NEWCODE	EN+1~, EN+39!, EN+40, EN+44!, EN+45, EN+47, EN+48, EN+49, EN+50, EN+51 , EN+56*, EN+57, EN+59
PARNTDOC	CREATEPN~, CREATEPN+8, CREATEPN+16, CREATEPN+30, CREATEPN+35
PROTCL	EN+1~, EN+6*, EN+7, EN+8, EN+9, EN+10
PSOERR	EN+1~, EN+52!, EN+59!, EN+60!
PSOROOT	EN+1~, EN+28
PSOROOT(1	EN+29
REATXT	UPDTESRC+4!, UPDTESRC+15!, UPDTESRC+25!, UPDTESRC+35!, UPDTESRC+48!, UPDTESRC+56!, UPDTESRC+66!, UPDTESRC+78!
REATXT(	UPDTESRC+9, UPDTESRC+19, UPDTESRC+29, UPDTESRC+42, UPDTESRC+50, UPDTESRC+60, UPDTESRC+72, UPDTESRC+83
REMCODE	EN+1~, EN+18*, EN+19, EN+20, EN+21, EN+22, EN+23
RESULT	CREATEPN+6~, CREATEPN+16*, CREATEPN+17, CREATEPN+18
RPROTCL	EN+1~, EN+5*, EN+7, EN+8
SCRC	NEWTXTS~, NEWTXTS+1, NEWTXTS+3
SCRCODE	NEWTXTS+2~, NEWTXTS+3*, NEWTXTS+6, NEWTXTS+13, NEWTXTS+20, NEWTXTS+26, NEWTXTS+31, NEWTXTS+37, NEWTXTS+43, NEWTXTS+50 , NEWTXTS+58, NEWTXTS+66, NEWTXTS+72, NEWTXTS+78, NEWTXTS+84, NEWTXTS+91
SCRIEN	EN+1~, EN+52!, EN+60!
STDTITLE	CREATEPN~, CREATEPN+11, CREATEPN+16, CREATEPN+31, CREATEPN+39
>> SUBIEN	EN+8*, EN+10
TEXT	UPDTESRC+4!, UPDTESRC+15!, UPDTESRC+25!, UPDTESRC+35!, UPDTESRC+48!, UPDTESRC+56!, UPDTESRC+66!, UPDTESRC+78!
TEXT(1	UPDTESRC+5, UPDTESRC+16, UPDTESRC+26, UPDTESRC+36, UPDTESRC+49, UPDTESRC+57, UPDTESRC+67, UPDTESRC+79
TEXT(2	UPDTESRC+6, UPDTESRC+17, UPDTESRC+27, UPDTESRC+37, UPDTESRC+58, UPDTESRC+68, UPDTESRC+80*
TEXT(3	UPDTESRC+7, UPDTESRC+18, UPDTESRC+28, UPDTESRC+59, UPDTESRC+69, UPDTESRC+81
TEXT(4	UPDTESRC+8, UPDTESRC+70, UPDTESRC+82*
TEXT(5	UPDTESRC+71*
TEXT1	EN+1~, NEWTXTS+4!, NEWTXTS+99
TEXT1(1	NEWTXTS+7, NEWTXTS+14, NEWTXTS+21, NEWTXTS+27, NEWTXTS+32, NEWTXTS+38, NEWTXTS+44, NEWTXTS+51, NEWTXTS+59, NEWTXTS+85 , NEWTXTS+92*
TEXT1(2	NEWTXTS+8, NEWTXTS+15, NEWTXTS+33, NEWTXTS+39, NEWTXTS+45, NEWTXTS+52
TEXT2	EN+1~, NEWTXTS+5!, NEWTXTS+100
TEXT2(1	NEWTXTS+9, NEWTXTS+16, NEWTXTS+22, NEWTXTS+28, NEWTXTS+34, NEWTXTS+40, NEWTXTS+46, NEWTXTS+53, NEWTXTS+60, NEWTXTS+67 , NEWTXTS+73, NEWTXTS+79, NEWTXTS+86, NEWTXTS+93
TEXT2(2	NEWTXTS+10, NEWTXTS+17, NEWTXTS+23, NEWTXTS+47, NEWTXTS+54, NEWTXTS+61, NEWTXTS+68, NEWTXTS+74, NEWTXTS+80, NEWTXTS+87 , NEWTXTS+94*
TEXT2(3	NEWTXTS+55, NEWTXTS+62, NEWTXTS+69, NEWTXTS+75, NEWTXTS+81, NEWTXTS+88, NEWTXTS+95*
TEXT2(4	NEWTXTS+63*
TITLE	CREATEPN~, CREATEPN+16, CREATEPN+21
U	CREATEPN+18
X	EN+1~, EN+20*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSO770PI

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items