Routine: PSN50P65

Information

PSN50P65 ;BIR/LDT - API FOR INFORMATION FROM FILE 50.605;Nov 16, 2018@10:30

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
VA FileMan	2	($$FIND1,FIND)^DIC GETS^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 29

Package	Total	Caller Graph
Adverse Reaction Tracking	10	GMRADSP2 GMRAPED0 GMRAPED1 GMRAPENC GMRAPST4 GMRARAD GMRARAD0 GMRAUIX0 GMRAUTL2 GMRAUTL3
Clinical Case Registries	5	RORHL14 RORRP017 RORUTL15 RORUTL16 RORXU007
Barcode Medication Administration	2	PSBOMT PSBRPCMO
Enterprise Health Management Platform	2	HMPCORD5 HMPDGMRA
Health Summary	2	GMTSADH5 GMTSPSO8
Order Entry Results Reporting	2	ORWDAL32 ORWGAPIC
Dietetics	1	FHASM4
E Claims Management Engine	1	BPSRPT6
Integrated Billing	1	IBNCPEV3
National Health Information Network	1	NHINVART
Pharmacy Data Management	1	PSSHLDFS
Virtual Patient Record	1	VPRDGMRA

Entry Points

Name	Comments	DBIA/ICR reference
IEN(PSNIEN,PSNFT,LIST)	;	ICR #4543 Status: Active Usage: Supported
ROOT(PSNC)	;	ICR #4543 Status: Active Usage: Supported
C(PSNIEN,PSNFT,LIST)	;	ICR #4543 Status: Active Usage: Supported
SETZRO	;
SETZRO2	;
LOOP(PSN)	;
1	;
2	;
SSET(PSNC,PSNCNT,PSNI,DIR,SUB)	;Pull back a subset of the PHARMACY ORDERABLE ITEM file (#50.7)	ICR #4543 Status: Active Usage: Supported

External References

Name	Field # of Occurrence
$$FIND1^DIC	IEN+11, C+12
FIND^DIC	IEN+18, C+19
GETS^DIQ	IEN+14, IEN+21, C+15, C+22, LOOP+3

FileNo	Call Tags
^PS(50.605 - [#50.605]	FIND1^DIC, FIND^DIC, GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.605 - [#50.605]	LOOP+2, SSET+3, SSET+4
^TMP(	SSET+6*
^TMP("DILIST"	IEN+19, IEN+20, IEN+21, IEN+23!, C+20, C+21, C+22, C+24!
^TMP($J	IEN+8!, IEN+9, IEN+10, IEN+12, IEN+13, IEN+19, IEN+20, C+9!, C+10, C+11 , C+13, C+14, C+20, C+21, SETZRO+1, SETZRO+2, SETZRO+3, SETZRO2+1, SETZRO2+2, SETZRO2+3 , SETZRO2+4, SETZRO2+5, LOOP+5*

Label References

Name	Line Occurrences
@(	LOOP+4
LOOP	IEN+17, C+18
SETZRO	IEN+15, IEN+22, 1+1
SETZRO2	C+16, C+23, 2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	LOOP+1~, LOOP+4, LOOP+5
DIERR	IEN+6~, C+7~
DIR	SSET~, SSET+3
LIST	IEN~, IEN+7, IEN+8, IEN+9, IEN+10, IEN+12, IEN+13, IEN+19, IEN+20, C~ , C+8, C+9, C+10, C+11, C+13, C+14, C+20, C+21, SETZRO+1, SETZRO+2 , SETZRO+3, SETZRO2+1, SETZRO2+2, SETZRO2+3, SETZRO2+4, SETZRO2+5, LOOP+5
PSN	IEN+6~, C+7~, LOOP~, LOOP+4
PSN(1	IEN+14, IEN+15, IEN+21, IEN+22, C+15, C+16, C+22, C+23, SETZRO+1, SETZRO+2 , SETZRO+3, SETZRO2+1, SETZRO2+2, SETZRO2+3, SETZRO2+4, SETZRO2+5, LOOP+3, LOOP+4
PSN50P65	IEN+6~, IEN+21!, C+7~, C+22!, LOOP+3!
PSN50P65(	IEN+15, IEN+22, C+16, C+23, SETZRO+1, SETZRO+2, SETZRO+3, SETZRO2+1, SETZRO2+2, SETZRO2+3 , SETZRO2+4, SETZRO2+5, LOOP+4
PSNC	ROOT~, ROOT+2, SSET~, SSET+3, SSET+6*
PSNCNT	SSET~, SSET+3
PSNFT	IEN~, IEN+9, IEN+16, IEN+17, IEN+18, C~, C+10, C+17, C+18, C+19
PSNI	SSET~, SSET+3*, SSET+5, SSET+6
PSNIEN	IEN~, IEN+9, IEN+10, IEN+11, IEN+16, IEN+21, C~, C+10, C+11, C+12 , C+17, C+22, LOOP+1~, LOOP+2*, LOOP+3
PSNIEN2	IEN+11~, IEN+12, IEN+14, C+12~, C+13, C+15
PSNJ	SSET+2~, SSET+3*, SSET+4, SSET+6
PSNXX	IEN+20~, IEN+21, C+21~, C+22
SUB	SSET~, SSET+6
X	SSET+2~
Y	SSET+2~, SSET+4*, SSET+5, SSET+6
ZZERR	IEN+6~, C+7~

Customize PDF page

Package: National Drug File