Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Pointer To FileMan Files | Fields | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^PRCD(420.9999

Package: IFCAP

Global: ^PRCD(420.9999

Information

FileMan FileNo	FileMan Filename	Package
420.9999	PRCD SD STANDARD FOR COPYING	IFCAP

Description

This file contains codes and descriptions data used by the IFCAP.

Directly Accessed By Routines, Total: 2

Package	Total	Routines
IFCAP	2	ITEM SPECIFIC INFORMATION ^PRCD(420.9999

Pointer To FileMan Files, Total: 2

Package	Total	FileMan Files
IFCAP	1	PRCD SD STATUS(#420.1999)[2]
Kernel	1	NEW PERSON(#200)[4]

Fields, Total: 6

Field #	Name	Loc	Type	Details
.01	CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X K:$G(X)]""&$O(^PRCD(420.9999,"B",X,"")) X` LAST EDITED: `OCT 07, 1994` HELP-PROMPT: `Enter free text up to 15 characters and must be unique in file.` DESCRIPTION: `This field is the code of administrative office.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `420.9999^B` `1)= S ^PRCD(420.9999,"B",$E(X,1,30),DA)=""` `2)= K ^PRCD(420.9999,"B",$E(X,1,30),DA)`
1	DESCRIPTION	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1)!'(X'?1." ".E) X` LAST EDITED: `NOV 24, 1993` HELP-PROMPT: `Enter free text up to 45 characters.` DESCRIPTION: `This field is the desription of the code.` CROSS-REFERENCE: `420.9999^C` `1)= S ^PRCD(420.9999,"C",$E(X,1,30),DA)=""` `2)= K ^PRCD(420.9999,"C",$E(X,1,30),DA)` `This is used to look-up entries by description.`
2	STATUS	0;3	POINTER TO PRCD SD STATUS FILE (#420.1999)	**********************REQUIRED FIELD********************** PRCD SD STATUS(#420.1999) LAST EDITED: `OCT 07, 1994` DESCRIPTION: `This field is the status of the entry in file.` CROSS-REFERENCE: `^^TRIGGER^420.9999^4` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCD(420.9999,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(420.9999,2,1,10,1.4)` `1.4)= S DIH=$S($D(^PRCD(420.9999,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=420.9999,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE VALUE)= S X=DUZ` `DELETE VALUE)= NO EFFECT` `FIELD)= STATUS EDIT USER` CROSS-REFERENCE: `^^TRIGGER^420.9999^5` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCD(420.9999,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(420.9999,2,1,15,1.1) X ^DD(420.9999,2,1,15,1.4)` `1.1)= S X=DIV S X=$P($$DT^PRC0B2("N","E"),"^")` `1.4)= S DIH=$S($D(^PRCD(420.9999,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=420.9999,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE VALUE)= S X=$P($$DT^PRC0B2("N","E"),"^")` `DELETE VALUE)= NO EFFECT` `FIELD)= STATUS EDIT DA`
3	FIX VALUE	0;4	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1)!'(X'?1." ".E) X` LAST EDITED: `DEC 10, 1993` HELP-PROMPT: `Enter free text up to 15 characters.` DESCRIPTION: `This field's value is used by programer for hard coding in programs.` TECHNICAL DESCR: `This field's value is used by programer for hard coding in programs. Always hardcode with this fix values. If this value is edited all programs referring to this value need to be edited.` CROSS-REFERENCE: `420.9999^AC` `1)= S ^PRCD(420.9999,"AC",$E(X,1,30),DA)=""` `2)= K ^PRCD(420.9999,"AC",$E(X,1,30),DA)` `This is used to search entries in this file.`
4	STATUS EDIT USER	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 07, 1994` HELP-PROMPT: `Enter the user name.` DESCRIPTION: `User who changed the status.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the STATUS field of the PRCD SD STANDARD FOR COPYING File`
5	STATUS EDIT DATE/TIME	0;6	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 07, 1994` HELP-PROMPT: `Enter date/time` DESCRIPTION: `The Time at which the status is edited.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the STATUS field of the PRCD SD STANDARD FOR COPYING File`

External References

Name	Field # of Occurrence
^%DT	5+1
^DICR	2(XREF 10n1.4), 2(XREF 15n1.4)
$$DT^PRC0B2	2(XREF 15n1.1)

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	2(XREF 10n1.4), 2(XREF 15n1.4)
^DD(420.9999	2(XREF 10S), 2(XREF 15S)
^PRCD(420.9999 - [#420.9999]	.01+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 10S), 2(XREF 10n1.4), 2(XREF 15S), 2(XREF 15n1.4), 3(XREF 1S) , 3(XREF 1K)

Naked Globals

Name	Field # of Occurrence
^(0	IDD1+1, 2(XREF 10S), 2(XREF 10n1.4), 2(XREF 15S), 2(XREF 15n1.4)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	5+1*
>> D0	2(XREF 10S), 2(XREF 15S)
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 10S), 2(XREF 15S), 3(XREF 1S), 3(XREF 1K)
>> DIG	2(XREF 10n1.4), 2(XREF 15n1.4)
>> DIH	2(XREF 10n1.4), 2(XREF 15n1.4)
>> DIU	2(XREF 10S), 2(XREF 15S)
DIV	2(XREF 10S), 2(XREF 10n1.4), 2(XREF 15S), 2(XREF 15n1.1), 2(XREF 15n1.4)
DIV(0	2(XREF 10S), 2(XREF 10n1.4), 2(XREF 15S), 2(XREF 15n1.4)
DUZ	2(XREF 10S)
U	IDD1+1, 2(XREF 10S), 2(XREF 10n1.4), 2(XREF 15S), 2(XREF 15n1.4)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 2(XREF 10S), 2(XREF 10n1.4), 2(XREF 15S), 2(XREF 15n1.1) , 2(XREF 15n1.4), 3+1!, 3(XREF 1S), 3(XREF 1K), 5+1*!
Y	2(XREF 10S), 2(XREF 15S), 5+1
Y(1	2(XREF 10S), 2(XREF 15S)

Info | Desc | Directly Accessed By Routines | Pointer To FileMan Files | Fields | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All