Routine: PSNDI

Information

PSNDI ;BIR/LDT - API FOR FILEMAN CALLS; 5 Sep 03

Source file <PSNDI.m>

Package	Total	Call Graph
VA Fileman	2	(,IX)^DIC ^DIE
Health Data and Informatics	1	$$SCREEN^HDISVF01

Package	Total	Caller Graph
Adverse Reaction Tracking	2	GMRAHLP0 GMRAPED1

Name	Comments	DBIA/ICR reference
FILE2	;For Lookup calls, check for Inactive Date Screen
FILE1	;Package listed if Write access (DLAYGO) is allowed
DIE(PSNFILE,PSNPACK,DIE,DA,DR,DIDEL)	;
SCREEN	;Set screen if Inactive Date is passed in
NONSTD	;
DIC(PSNFILE,PSNPACK,DIC,X,DLAYGO,PSNSCRDT)	;	ICR #4554 Status: Active Usage: Supported
XSCREEN(PSNTFILE)	; Set screen for standardized files
IX(PSNFILE,PSNPACK,DIC,D,X,DLAYGO,PSNSCRDT)	;	ICR #4554 Status: Active Usage: Supported
TEST(PSNTFILE)	; Test to check if file is listed in the API

Name	Field # of Occurrence
CNT	TEST+1~, TEST+3*
D	IX~
DA	DIE~
DIC	DIC~, IX~
DIC("S"	DIC+5!, IX+5!, SCREEN+4, XSCREEN+1
DIC(0	DIC+9, IX+9
DIDEL	DIE~
DIE	DIE~
DLAYGO	DIC~, DIC+9!, IX~, IX+9!
DR	DIE~
PSNAPP2	TEST+1~, TEST+3*
>> PSNDIY	DIC+1, DIC+2, DIC+4, DIC+9, IX+1, IX+2, IX+4, IX+9, DIE+1, DIE+2 , DIE+4, DIE+5
PSNFFLAG	TEST+1~, TEST+2, TEST+3
PSNFILE	DIC~, DIC+2, DIC+3, DIC+6, DIC+7, IX~, IX+2, IX+3, IX+6, IX+7 , DIE~, DIE+2, DIE+3, SCREEN+2
PSNFLOOP	TEST+1~, TEST+2*
PSNFTEST	TEST+1~, TEST+2*
PSNILOC	SCREEN+1~, SCREEN+2*
PSNILOOP	SCREEN+1~, SCREEN+2*
PSNINFLG	SCREEN+1~, SCREEN+2
PSNINODE	SCREEN+1~, SCREEN+2*, SCREEN+3
PSNLNODE	TEST+1~, TEST+2*, TEST+3
PSNPACK	DIC~, IX~, DIE~, TEST+3
PSNPIECE	DIC+8~, IX+8~, SCREEN+3*, SCREEN+4
PSNRSLT	TEST+1~, TEST+2, TEST+3*, TEST+4
PSNRTEST	DIC+3~, DIC+4, DIC+9, IX+3~, IX+4, IX+9, DIE+3~*, DIE+4, DIE+5
PSNSCRDT	DIC~, IX~, NONSTD+1, XSCREEN+1
PSNSUBSC	DIC+8~, IX+8~, SCREEN+3*, SCREEN+4
PSNTFILE	TEST~, TEST+2, XSCREEN~, XSCREEN+1
STNDRD	DIC+6~, DIC+7, DIC+8, IX+6~, IX+7, IX+8
X	DIC~, IX~

Name	Field # of Occurrence
$T(FILE1+PSNFLOOP	TEST+2
$T(FILE2+PSNILOOP	SCREEN+2