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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^PRCN(413.1

Package: Equipment Turn-In Request

Global: ^PRCN(413.1


Information

FileMan FileNo FileMan Filename Package
413.1 TURN-IN REQUEST Equipment Turn-In Request

Description

Directly Accessed By Routines, Total: 26

Package Total Routines
Equipment Turn-In Request 24 PRCNCMR    PRCNCNCL    PRCNFAP    PRCNPPM    PRCNPRNT    PRCNPURG    PRCNREQE    PRCNREQN
PRCNREQQ    PRCNSPL    PRCNTICM    PRCNTICMR    PRCNTIED    PRCNTIPED    PRCNTIPP    PRCNTIPR
PRCNUTL    ^PRCN(413.1    PRCNTICN    PRCNTIRQ    PRCNTIWH    PRCNUTL1    TURN-IN LINE ITEM    ^PRCN(413.7

Accessed By FileMan Db Calls, Total: 12

Package Total Routines
Equipment Turn-In Request 12 PRCNPEDT    PRCNPURG    PRCNRPT    PRCNSPL    PRCNTICM    PRCNTICN    PRCNTIED    PRCNTIPP
PRCNTIPR    PRCNTIRQ    PRCNTIWH    PRCNUTL    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Equipment Turn-In Request 1 EQUIPMENT REQUEST(#413)[10]    

Pointer To FileMan Files, Total: 8

Package Total FileMan Files
Engineering 3 EQUIPMENT INV.(#6914)[#413.11(.01)]    CMR(#6914.1)[15]    WORK ORDER #(#6920)[13, #413.11(11)]    
Equipment Turn-In Request 2 EQUIPMENT REQUEST(#413)[8]    NX STATUS(#413.5)[6]    
Kernel 2 SERVICE/SECTION(#49)[2]    NEW PERSON(#200)[1, 5, 16]
IFCAP 1 ADMIN. ACTIVITY SITE PARAMETER(#411)[4]    

Fields, Total: 18

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 07, 1992
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the sequential internal number of each turn-in request.
.01 TRANSACTION CODE 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
  • HELP-PROMPT:  NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  • DESCRIPTION:  
    This is the temporary transaction number that is calculated based on the facility number, the CMR Official, the fiscal year and a sequential number.
  • CROSS-REFERENCE:  413.1^B
    1)= S ^PRCN(413.1,"B",$E(X,1,30),DA)=""
    2)= K ^PRCN(413.1,"B",$E(X,1,30),DA)
    This cross-reference is by the generated transaction number.
1 REQUESTOR 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 10, 1992
  • DESCRIPTION:  
    This is the person who initiates the request. It defaults from the DUZ number.
1.5 REQUESTOR PHONE # 3;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  NOV 04, 1992
  • HELP-PROMPT:  Enter the phone number of the requestor.
  • DESCRIPTION:  
    This is the phone number of the requestor and should default from new person file.
2 REQUESTING SERVICE 0;3 POINTER TO SERVICE/SECTION FILE (#49) SERVICE/SECTION(#49)

  • LAST EDITED:  SEP 10, 1992
  • DESCRIPTION:  
    This is the requestor's service that is calculated from their entry in the New Person file.
3 REQUEST DATE/TIME 0;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 10, 1992
  • DESCRIPTION:  
    This is the actual date and time that the request was initialized. This automatically defaults from the current date and time when the request is being entered.
4 STATION NUMBER 0;5 POINTER TO ADMIN. ACTIVITY SITE PARAMETER FILE (#411) ADMIN. ACTIVITY SITE PARAMETER(#411)

  • LAST EDITED:  SEP 10, 1992
  • DESCRIPTION:  
    This is the station number that will automatically default if there is only one station numer otherwise, the requestor will be prompted for it.
5 CMR RESPONSIBLE OFFICIAL 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 06, 1992
  • DESCRIPTION:  
    This is the person who is associated with a particular CMR. This is defaulted when a CMR is selected and all messages will be directed to this person.
  • NOTES:  TRIGGERED by the CMR field of the TURN-IN REQUEST File
  • CROSS-REFERENCE:  413.1^AD
    1)= S ^PRCN(413.1,"AD",$E(X,1,30),DA)=""
    2)= K ^PRCN(413.1,"AD",$E(X,1,30),DA)
    This cross-reference is by the CMR responsible offical.
6 REQUEST STATUS 0;7 POINTER TO NX STATUS FILE (#413.5) NX STATUS(#413.5)

  • LAST EDITED:  OCT 26, 1992
  • DESCRIPTION:  
    This is the status of the request. It is set at the completion of each step of the process.
  • CROSS-REFERENCE:  413.1^AC
    1)= S ^PRCN(413.1,"AC",$E(X,1,30),DA)=""
    2)= K ^PRCN(413.1,"AC",$E(X,1,30),DA)
    This cross-reference is by request status.
7 STATUS DATE 0;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 10, 1992
  • DESCRIPTION:  
    This date is automatically set whenever the status on a request changes. It is the date that status was applied to the request.
8 EQUIP REQUEST 0;9 POINTER TO EQUIPMENT REQUEST FILE (#413) EQUIPMENT REQUEST(#413)

  • LAST EDITED:  SEP 10, 1992
  • DESCRIPTION:  
    This is a corresponding equipment request transaction if the equipment request is replacement and a turn-in request is generated.
9 CMR OFFICIAL APPROVAL 0;10 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 19, 1992
  • DESCRIPTION:  
    If the primary CMR Responsible Official does not approve a request, the request will be returned to the requestor.
11 CMR OFFICIAL EXPLANATION 2;0 WORD-PROCESSING #413.111

  • DESCRIPTION:  
    This CMR Official must explain why a request was not approved.
  • LAST EDITED:  OCT 19, 1992
  • DESCRIPTION:  
    This CMR Official must explain why a request was not approved.
12 UTILITY DISCONNECT? 0;12 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  NOV 05, 1992
  • DESCRIPTION:  
    This field is to designate the condition of the equipment that was turned in. Equipment that is in fair to good condition could be sent to another medical center needing it.
13 ENGINEER. WORK ORDER 0;13 POINTER TO WORK ORDER # FILE (#6920) WORK ORDER #(#6920)

  • LAST EDITED:  JUN 20, 1995
  • DESCRIPTION:  
    If a turn-in request must be disconnect or have any other engineering work performed, a work order must be created. This is a pointer to that work order.
15 CMR 0;16 POINTER TO CMR FILE (#6914.1)
************************REQUIRED FIELD************************
CMR(#6914.1)

  • LAST EDITED:  AUG 05, 1995
  • DESCRIPTION:  
    This is the CMR number who will ultimately be responsible for the equipment when ordered and received.
  • CROSS-REFERENCE:  ^^TRIGGER^413.1^5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCN(413.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$P(^ENG(6914.1,X,0),U,2) X ^DD(413.1,15,1,1,1.4)
    1.4)= S DIH=$S($D(^PRCN(413.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=413.1,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=$P(^ENG(6914.1,X,0),U,2)
    DELETE VALUE)= NO EFFECT
    FIELD)= #5
    This triggers the CMR Official when a particular CMR is entered.
16 WAREHOUSE OFFICIAL 3;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 12, 1993
  • HELP-PROMPT:  Enter the person who is to pick up this equipment
  • DESCRIPTION:  
    This field is for the person who has been assigned to pick up the equipment that is being turned in.
20 TURN-IN LINE ITEM 1;0 POINTER Multiple #413.11 413.11

  • LAST EDITED:  MAR 22, 1994
  • DESCRIPTION:  
    This is for each item that the request for turn-in is being produced.
  • IDENTIFIED BY:  DESCRIPTION(#3)

External References

Name Field # of Occurrence
^%DT 3+1, 7+1
^DICR 15(XREF 1n1.4)
Y^DIQ ID6+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( 15(XREF 1n1.4)
^DD(413.1 15(XREF 1S)
^DD(413.5 ID6+1
^ENG(6914.1 - [#6914.1] 15(XREF 1S)
^PRCN(413.1 - [#413.1] .01(XREF 1S), .01(XREF 1K), 5(XREF 1S), 5(XREF 1K), 6(XREF 1S), 6(XREF 1K), 15(XREF 1S), 15(XREF 1n1.4)
^PRCN(413.5 - [#413.5] ID6+1

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 3+1*, 7+1*
%I ID6+1*!
>> C ID6+1*
>> D0 15(XREF 1S)
>> DA .01(XREF 1S), .01(XREF 1K), 5(XREF 1S), 5(XREF 1K), 6(XREF 1S), 6(XREF 1K), 15(XREF 1S)
>> DIC ID6+1
>> DIG 15(XREF 1n1.4)
>> DIH 15(XREF 1n1.4)
>> DIU 15(XREF 1S)
DIV 15(XREF 1S), 15(XREF 1n1.4)
DIV(0 15(XREF 1S), 15(XREF 1n1.4)
U ID6+1, 15(XREF 1S), 15(XREF 1n1.4)
X .001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), 1.5+1!, 3+1*!, 5(XREF 1S), 5(XREF 1K), 6(XREF 1S), 6(XREF 1K)
, 7+1*!, 15(XREF 1S), 15(XREF 1n1.4)
Y ID6+1*, 3+1, 7+1, 15(XREF 1S)
Y(1 15(XREF 1S)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All