Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 9002081.51

Package: IHS Changes To Lab

NEWBORN REGISTER(#9002081.1)-->9002081.51

Sub-Field: 9002081.51


Information

Parent File Name Number Package
NEWBORN REGISTER(#9002081.1) HEALTH RECORD NO. 9002081.51 IHS Changes To Lab

Details

Field # Name Loc Type Details
.01 HEALTH RECORD FAC 0;1 POINTER TO LOCATION FILE (#9999999.06) LOCATION(#9999999.06)

  • INPUT TRANSFORM:  S DINUM=X
  • HELP-PROMPT:  ENTER NAME OF FACILITY ASSOCIATED WITH THE HEALTH RECORD NUMBER YOU WISH TO ENTER.
  • DESCRIPTION:  This field is a pointer to the FACILITY file. The internal pointer is forced into the third subscript for the 9000001.41 subfile. This allows easy lookup by health record number for the logged on facility.
    The complete subscript for 9000001.41 will be (DFN,41,facility pointer,0).
    SOURCE OF DATA:   015/HRSUBR
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002081.51^B
    1)= S ^AMCH(81.1,DA(1),41,"B",$E(X,1,30),DA)=""
    2)= K ^AMCH(81.1,DA(1),41,"B",$E(X,1,30),DA)





.02
HEALTH RECORD NO.
0;2
NUMBER 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  ENTER A WHOLE NUMBER BETWEEN 1 AND 999999
    SOURCE OF DATA:   015/HRNUMB
  • CROSS-REFERENCE:  9002081.1^D
    1)= S ^AMCH(81.1,"D",$E(X,1,30),DA(1),DA)=""
    2)= K ^AMCH(81.1,"D",$E(X,1,30),DA(1),DA)





.0299
TERMINAL DIGITS

COMPUTED

  • MUMPS CODE:  X ^DD(9002081.51,.0299,9.4) S X=$E(Y(9002081.51,.0299,5),Y(9002081.51,.0299,6),X) S Y=X,X=Y(9002081.51,.0299,4),X=X_Y
    9.2 = S Y(9002081.51,.0299,1)=$S($D(^AMCH(81.1,D0,41,D1,0)):^(0),1:"") S X=$P(Y(9002081.51,.0299,1),U,2)+1000000,Y(9002081.51,.0299,2)=X S X=6
    9.3 = X ^DD(9002081.51,.0299,9.2) S Y(9002081.51,.0299,3)=X S X=7,X=$E(Y(9002081.51,.0299,2),Y(9002081.51,.0299,3),X)_"-",Y(9002081.51,.0299,4)=X
    9.4 = X ^DD(9002081.51,.0299,9.3) S X=$P(Y(9002081.51,.0299,1),U,2)+1000000,Y(9002081.51,.0299,5)=X S X=2,Y(9002081.51,.0299,6)=X S X=7
    9.5 = X ^DD(9002081.51,.0299,9.4) S Y(9002081.51,.0299,7)=X S X=$P(Y(9002081.51,.0299,3),U,2)+1000000,Y(9002081.51,.0299,8)=X S X=2,Y(9002081.51,.0299,9)=X S X=5
  • ALGORITHM:  $E(#.02+1000000,6,7)_"-"_$E(#.02+1000000,2,7)





.03
DATE INACTIVATED/DELETED
0;3
DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the date the record was inactivated or deleted.





.04
RECORD DISPOSITION
0;4
POINTER TO PATIENT RECORD DISPOSITION FILE (#9999999.02)
PATIENT RECORD DISPOSITION(#9999999.02)




.05
RECORD STATUS
0;5
SET

  • 'D' FOR DELETED;
  • 'I' FOR INACTIVATED;
  • HELP-PROMPT:  Enter "D" if the record has been deleted.







    



Info | 
Details | 
All