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: 550.215

Package: CMOP

CMOP TRANSMISSION(#550.2)-->550.215

Sub-Field: 550.215


Information

Parent File Name Number Package
CMOP TRANSMISSION(#550.2) PRESCRIPTIONS 550.215 CMOP

Details

Field # Name Loc Type Details
.01 PRESCRIPTIONS 0;1 POINTER TO PRESCRIPTION FILE (#52) PRESCRIPTION(#52)

  • LAST EDITED:  DEC 04, 2002
  • DESCRIPTION:  
    Prescription to be transmitted.
  • CROSS-REFERENCE:  550.215^B
    1)= S ^PSX(550.2,DA(1),15,"B",$E(X,1,30),DA)=""
    2)= K ^PSX(550.2,DA(1),15,"B",$E(X,1,30),DA)
  • RECORD INDEXES:  C (#234)
.02 FILL 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>45)!(X<0)!(X?.E1"."1.N) X
  • LAST EDITED:  DEC 04, 2002
  • HELP-PROMPT:  Type a number between 0 and 45, 0 Decimal Digits
  • DESCRIPTION:  
    Fill number of the prescription to transmit.
  • RECORD INDEXES:  C (#234)
.03 PATIENT 0;3 POINTER TO VA PATIENT FILE (#2) VA PATIENT(#2)

  • LAST EDITED:  DEC 04, 2002
  • DESCRIPTION:  
    Patient name on the prescription to transmit. (Pointer)
  • RECORD INDEXES:  C (#234)
.04 PATIENT NAME COMPUTED

  • MUMPS CODE:  X ^DD(550.215,.04,9.2) S D0=$P(Y(550.215,.04,1),U,3) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S Y(550.215,.04,101)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(550.215,.04,101),U,1) S D0=Y(550.215,.04,80) S D1=Y(550.215,.04,81)
    9.2 = S Y(550.215,.04,81)=$G(D1),Y(550.215,.04,80)=$G(D0),Y(550.215,.04,1)=$S($D(^PSX(550.2,D0,15,D1,0)):^(0),1:"")
  • ALGORITHM:  .03:.01
  • LAST EDITED:  DEC 04, 2002
  • DESCRIPTION:  
    Patient name on the prescription to transmit. (Free text)
.05 SUSPENSE IEN 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  MAR 06, 2003
  • HELP-PROMPT:  Type a number between 1 and 999999999, 0 Decimal Digits
Info |  Details |  All