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 | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^ENG(6916.3

Package: Engineering

Global: ^ENG(6916.3

Information

FileMan FileNo	FileMan Filename	Package
6916.3	IT ASSIGNMENT	Engineering

Description

This file contains assignments of responsibility for IT equipment. The data is only intended to be updated via package options. Key data values are protected by encryption once the owner has accepted responsibility via electronic signature.

Directly Accessed By Routines, Total: 19

Package	Total	Routines
Engineering	19	ENEQ4 ENTIDD ENTIRC ENTIRN ENTIRRE ENTIRRH ENTIRRH1 ENTIRRI ENTIRRU ENTIRRX ENTIRS ENTIRT ENTIRX ENTIUTL ENTIUTL1 ENTIUTL2 PREVIOUS SIGNATURES ^ENG(6916.3 ^OFM(7336.9

Accessed By FileMan Db Calls, Total: 13

Package	Total	Routines
Engineering	13	ENTIDD ENTIP89 ENTIRC ENTIRRE ENTIRRH ENTIRRH1 ENTIRRI ENTIRRU ENTIRRX ENTIRS ENTIRT ENTIRX ENTIUTL

Pointer To FileMan Files, Total: 3

Package	Total	FileMan Files
Engineering	2	EQUIPMENT INV.(#6914)[.01] HAND RECEIPT TEXT(#6916.2)[5, #6916.31(1)]
Kernel	1	NEW PERSON(#200)[1, 3, 6, 8, #6916.31(3)]

Fields, Total: 14

Field #	Name	Loc	Type	Details
.01	EQUIPMENT	0;1	POINTER TO EQUIPMENT INV. FILE (#6914)	**********************REQUIRED FIELD********************** EQUIPMENT INV.(#6914) LAST EDITED: `DEC 18, 2007` HELP-PROMPT: `Select the IT equipment item.` DESCRIPTION: `IT equipment item for which responsibility has been assigned.` `UNEDITABLE` CROSS-REFERENCE: `6916.3^B` `1)= S ^ENG(6916.3,"B",$E(X,1,30),DA)=""` `2)= K ^ENG(6916.3,"B",$E(X,1,30),DA)` RECORD INDEXES: `AEA (#788), AOA (#789)`
1	OWNER	0;2	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `JAN 09, 2009` HELP-PROMPT: `Select a person assigned responsibility for the equipment.` DESCRIPTION: `The person assigned responsibility for the IT equipment item.` `UNEDITABLE` CROSS-REFERENCE: `6916.3^C` `1)= S ^ENG(6916.3,"C",$E(X,1,30),DA)=""` `2)= K ^ENG(6916.3,"C",$E(X,1,30),DA)` `Regular cross-reference by owner.` RECORD INDEXES: `AOA (#789), AOA2 (#819), AOU (#790)`
2	ASSIGNED DATE/TIME	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 18, 2007` HELP-PROMPT: `Enter the date and time the assignment was made.` DESCRIPTION: `The date/time that the assignment of responsibility was created in the file. This value is automatically populated by the system.` `UNEDITABLE`
3	ASSIGNED BY	0;4	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `DEC 18, 2007` HELP-PROMPT: `Select the person that created the assignment.` DESCRIPTION: `The person that created the assignment of responsibility. This value is automatically populated by the system.` `UNEDITABLE`
4	SIGNED DATE/TIME	0;5	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 18, 2007` HELP-PROMPT: `Enter the date when the assignment was signed by the owner.` DESCRIPTION: `The date and time that the OWNER electronically signed the hand receipt or the date a hard copy hand receipt was signed. This field is automatically populated by the system if the OWNER electronically signs the hand` `receipt. This field is populated by the person in the CERTIFIED BY field in the event a hard copy hand receipt was instead signed by the OWNER.` `UNEDITABLE` RECORD INDEXES: `AOU (#790)`
5	HAND RECEIPT TEXT	0;6	POINTER TO HAND RECEIPT TEXT FILE (#6916.2)	HAND RECEIPT TEXT(#6916.2) LAST EDITED: `DEC 18, 2007` HELP-PROMPT: `Select hand receipt text that was signed.` DESCRIPTION: `The version of the hand receipt text that was signed.` `UNEDITABLE`
5.9	CERTIFIED DATE/TIME	0;10	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 18, 2007` HELP-PROMPT: `Enter the date and time when a user certified a hard copy signature.` DESCRIPTION: `The date and time when a user certified there is a signed paper hand receipt on file for the equipment item. This field should only be populated when the owner can not electronically sign the hand receipt for some reason.` `UNEDITABLE`
6	CERTIFIED BY	0;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 18, 2007` HELP-PROMPT: `Select the person that certified there is a signed paper hand receipt.` DESCRIPTION: `The person that certified there is a signed paper hand receipt on file for the equipment item. This field should only be populated when the owner can not electronically sign the hand receipt for some reason.` `UNEDITABLE`
7	ENDED DATE/TIME	0;8	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 18, 2007` HELP-PROMPT: `Enter the date and time that the responsibility ended.` DESCRIPTION: `The date/time that the assignment of responsibility ended. This field is automatically populated when an assignment is terminated or transferred.` `UNEDITABLE` RECORD INDEXES: `AEA (#788), AOA (#789), AOA2 (#819), AOU (#790)`
8	ENDED BY	0;9	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 18, 2007` HELP-PROMPT: `Select the person that ended the assignment.` DESCRIPTION: `The person that ended the assignment of responsibility. This field is automatically populated when the assignment is terminated or transferred.` `UNEDITABLE`
9	ENCRYPTED STRING	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `DEC 18, 2007` HELP-PROMPT: `Answer must be 1-240 characters in length` DESCRIPTION: `If the assignment was electronically signed by the owner, the signature block and key data values are encrypted and stored in this field.` `UNEDITABLE`
20	STATUS		COMPUTED	MUMPS CODE: `X ^DD(6916.3,20,9.4) S X=$S(Y(6916.3,20,2):Y(6916.3,20,3),Y(6916.3,20,4):Y(6916.3,20,5),Y(6916.3,20,6):Y(6916.3,20,7),Y(6916.3,20,8):X)` `9.2 = S Y(6916.3,20,1)=$S($D(^ENG(6916.3,D0,0)):^(0),1:"") S X=$P(Y(6916.3,20,1),U,8)]"",Y(6916.3,20,2)=$G(X) S X="ENDED",Y(6916.3,20,3)=$G(X)` `9.3 = X ^DD(6916.3,20,9.2) S X=$P($G(^VA(200,+$P(Y(6916.3,20,1),U,7),0)),U)]"",Y(6916.3,20,4)=$G(X) S X="CERTIFIED",Y(6916.3,20,5)=$G(X) S X=$P(Y(6916.3,20,1),U,5)` `9.4 = X ^DD(6916.3,20,9.3) S X=X]"",Y(6916.3,20,6)=$G(X) S X="SIGNED",Y(6916.3,20,7)=$G(X) S X=1,Y(6916.3,20,8)=$G(X) S X="ASSIGNED"` ALGORITHM: `$S(#7]"":"ENDED",#6]"":"CERTIFIED",#4]"":"SIGNED",1:"ASSIGNED")` LAST EDITED: `NOV 21, 2007` DESCRIPTION: `Computed field that contains the current status of the assignment. The status may be ENDED, CERTIFIED, SIGNED, or ASSIGNED.`
21	STATUS DATE		COMPUTED	MUMPS CODE: `X ^DD(6916.3,21,9.4) S:X X=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)` `9.2 = S Y(6916.3,21,1)=$S($D(^ENG(6916.3,D0,0)):^(0),1:"") S X=$P(Y(6916.3,21,1),U,8)]"",Y(6916.3,21,2)=$G(X) S X=$P(Y(6916.3,21,1),U,8),Y(6916.3,21,3)=$G(X)` `9.3 = X ^DD(6916.3,21,9.2) S X=$P(Y(6916.3,21,1),U,5)]"",Y(6916.3,21,4)=$G(X) S X=$P(Y(6916.3,21,1),U,5),Y(6916.3,21,5)=$G(X) S X=1,Y(6916.3,21,6)=$G(X)` `9.4 = X ^DD(6916.3,21,9.3) S X=$P(Y(6916.3,21,1),U,3),X=$S(Y(6916.3,21,2):Y(6916.3,21,3),Y(6916.3,21,4):Y(6916.3,21,5),Y(6916.3,21,6):X)` ALGORITHM: `NUMDATE($S(#7]"":#7,#4]"":#4,1:#2))` LAST EDITED: `NOV 21, 2007` DESCRIPTION: `Computed field that contains the date (MM/DD/YY) when the assignment reached the current status.`
30	PREVIOUS SIGNATURES	3;0	DATE Multiple #6916.31	6916.31 LAST EDITED: `DEC 04, 2007`

External References

Name	Field # of Occurrence
^%DT	2+1, 4+1, 5.9+1, 7+1
EN^DDIOL	IDWRITE+1
$$GET1^DIQ	IDWRITE+1
Y^DIQ	ID1+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(200	ID1+1
^DD(6916.3	20+1, 20OF9.3+1, 20OF9.4+1, 21+1, 21OF9.3+1, 21OF9.4+1
^ENG(6916.3 - [#6916.3]	IXAEASL+1, IXAEAKL+1!, IXAEAKEIC+1!, IXAOASL+1, IXAOAKL+1!, IXAOAKEIC+1!, IXAOA2SL+1, IXAOA2KL+1!, IXAOA2KEIC+1!, IXAOUSL+1 , IXAOUKL+1!, IXAOUKEIC+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 20OF9.2+1, 21OF9.2+1
^VA(200 - [#200]	ID1+1, 20OF9.3+1

Naked Globals

Name	Field # of Occurrence
^(0	ID1+1, 20OF9.2+1, 21OF9.2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	2+1, 4+1, 5.9+1, 7+1
%I	ID1+1*!
>> C	ID1+1*
>> D0	20OF9.2+1, 21OF9.2+1
>> DA	IXAEASL+1, IXAEAKL+1, IXAOASL+1, IXAOAKL+1, IXAOA2SL+1, IXAOA2KL+1, IXAOUSL+1, IXAOUKL+1, .01(XREF 1S), .01(XREF 1K) , 1(XREF 1S), 1(XREF 1K)
>> DIC	ID1+1
ENX	IDWRITE+1~*
U	ID1+1, 20OF9.2+1, 20OF9.3+1, 21OF9.2+1, 21OF9.3+1, 21OF9.4+1
X	IXAEASCC+1, IXAOASCC+1, IXAOA2SCC+1, IXAOUSCC+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2+1!, 4+1! , 5.9+1!, 7+1!, 9+1!, 20+1, 20OF9.2+1, 20OF9.3+1, 20OF9.4+1, 21+1, 21OF9.2+1, 21OF9.3+1* , 21OF9.4+1*
X(1	IXAEASL+1, IXAEAKL+1, IXAOASL+1, IXAOAKL+1, IXAOA2SL+1, IXAOA2KL+1, IXAOUSL+1, IXAOUKL+1
X(2	IXAEASCC+1, IXAOASL+1, IXAOAKL+1, IXAOA2SCC+1, IXAOUSCC+1
X(3	IXAOASCC+1, IXAOUSCC+1
>> Y	ID1+1*, IDWRITE+1, 2+1, 4+1, 5.9+1, 7+1
>> Y(	20+1, 20OF9.2+1, 20OF9.3+1, 20OF9.4+1, 21OF9.2+1, 21OF9.3+1*, 21OF9.4+1

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