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: ^PS(52.11

Package: Outpatient Pharmacy

Global: ^PS(52.11


Information

FileMan FileNo FileMan Filename Package
52.11 PATIENT NOTIFICATION (Rx READY) Outpatient Pharmacy

Description

Directly Accessed By Routines, Total: 14

Package Total Routines
Outpatient Pharmacy 10 PSOBING1    ^PS(52.11    PRESCRIPTION(S)    PSOBGMG1    PSOBGMG2    PSOBGMG3    PSOBGMGR    PSOBINGO
PSOBRPRT    PSOHLDI1    
IHS Changes To Pharmacy 1 APSPBING    
Local Area Programs 1 AZAXDPM2    

Accessed By FileMan Db Calls, Total: 7

Package Total Routines
Outpatient Pharmacy 7 PSOBGMG1    PSOBGMG2    PSOBGMGR    PSOBING1    PSOBINGO    PSOBRPRT    PSOHLDI1    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Outpatient Pharmacy 3 OUTPATIENT SITE(#59)[3]    GROUP DISPLAY(#59.3)[2]    PRESCRIPTION(#52)[#52.1112(.01)]    
Registration 1 VA PATIENT(#2)[.01]    

Fields, Total: 14

Field # Name Loc Type Details
.01 PATIENT 0;1 POINTER TO VA PATIENT FILE (#2)
************************REQUIRED FIELD************************
VA PATIENT(#2)

  • LAST EDITED:  MAY 17, 1995
  • DESCRIPTION:  
    The patient's name whose prescription is to be displayed.
  • TECHNICAL DESCR:  
    This field points to the patient file, and only allows entry of patients whose names already exist in the patient file.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  52.11^B
    1)= S ^PS(52.11,"B",$E(X,1,30),DA)=""
    2)= K ^PS(52.11,"B",$E(X,1,30),DA)
1 TICKET # 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 09, 1994
  • HELP-PROMPT:  Type a Number between 1 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    If the pharmacy is using receipt type tickets to identify patients whose prescriptions are ready, this field holds the ticket number.  Otherwise, it is blank.
  • TECHNICAL DESCR:  
    Ticket Number
  • CROSS-REFERENCE:  52.11^C
    1)= S ^PS(52.11,"C",$E(X,1,30),DA)=""
    2)= K ^PS(52.11,"C",$E(X,1,30),DA)
    Cross references by ticket number
2 DISPLAY GROUP 0;3 POINTER TO GROUP DISPLAY FILE (#59.3)
************************REQUIRED FIELD************************
GROUP DISPLAY(#59.3)

  • LAST EDITED:  APR 07, 1993
  • DESCRIPTION:  
    The group of terminals which will display the information that prescriptions for this patient are ready
  • TECHNICAL DESCR:  
    This is a pointer to file 59.3 which contains the information relevant to the display groups.
  • CROSS-REFERENCE:  52.11^AD
    1)= S ^PS(52.11,"AD",$E(X,1,30),DA)=""
    2)= K ^PS(52.11,"AD",$E(X,1,30),DA)
    3)= Do not delete.
    This xref is used to determine if the display group has an entry.
3 DIVISION 0;4 POINTER TO OUTPATIENT SITE FILE (#59)
************************REQUIRED FIELD************************
OUTPATIENT SITE(#59)

  • LAST EDITED:  FEB 01, 1993
  • DESCRIPTION:  
    This field, pointing to file 59, allows accumulation of statistical data based on Divisional prescription input.
  • TECHNICAL DESCR:  
    Pointer to file 59.
4 LOGIN DATE 0;5 DATE

  • INPUT TRANSFORM:  K X
  • LAST EDITED:  MAY 28, 1996
  • DESCRIPTION:  
    File Manager date and time at which prescriptions were entered
  • TECHNICAL DESCR:  
    Automatic entry to create a chronological record of Prescription entry.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5 TIME IN 0;6 NUMBER

  • INPUT TRANSFORM:  K X
  • LAST EDITED:  FEB 01, 1993
  • HELP-PROMPT:  Type a Number between 0 and 86400, 0 Decimal Digits
  • DESCRIPTION:  
    Second piece of $H at the time the prescription is entered
  • TECHNICAL DESCR:  
    Automatically "stuffed" by ^PSOBINGO program.  Used for statistical shredout
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6 TIME READY (HHMM) 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>86400)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 18, 2006
  • HELP-PROMPT:  Type a Number between 1 and 86400, 0 Decimal Digits
  • DESCRIPTION:  
    Second piece of $H at the time the Rx is ready.
  • TECHNICAL DESCR:  
    This field is "stuffed" by routine PSOBINGO when Rx is ready.
  • CROSS-REFERENCE:  52.11^ANAM^MUMPS
    1)= S ^PS(52.11,"ANAM",+$P(^PS(52.11,DA,0),"^",3),$P(^(1),"^",3)_$P(^(1),"^",4)_" "_$P(^DPT(+$P(^PS(52.11,DA,0),"^"),0),"^"),DA)=""
    2)= K ^PS(52.11,"ANAM",+$P(^PS(52.11,DA,0),"^",3),$P(^(1),"^",3)_$P(^(1),"^",4)_" "_$P(^DPT(+$P(^PS(52.11,DA,0),"^"),0),"^"),DA)
    This xref lists the display group, patient name, then internal entry number.  It sets the global ^PS(52.11,"ANAM",Display Group,Hierarcy_MulitRx_" "_ Patient Name,DA)="".
  • CROSS-REFERENCE:  52.11^ATIC^MUMPS
    1)= D ATICSET^PSOBINGO
    2)= D ATICKIL^PSOBINGO
    This Xref lists the display group, ticket #, then internal entry number.  It sets the global ^PS(52.11,"ATIC",Display Group,Ticket,DA)="".
7 PICKED UP 0;8 SET
  • '0' FOR NOT PICKED UP;
  • '1' FOR PICKED UP;

  • LAST EDITED:  MAR 03, 1997
  • DESCRIPTION:  
    This field is a set of codes that logs whether or not the order has been picked up.
  • CROSS-REFERENCE:  52.11^ANAMK^MUMPS
    1)= S ^PS(52.11,"ANAMK",DA,+$P(^PS(52.11,DA,0),"^",3),$P(^PS(52.11,DA,0),"^"))=""
    2)= K ^PS(52.11,"ANAMK",DA,+$P(^PS(52.11,DA,0),"^",3),$P(^PS(52.11,DA,0),"^"))
    This cross reference, when present, indicate that the order has been picked up. It is the internal entry number followed by the division, and the patient IEN. It sets the global ^PS(52.11,"ANAMK",DA,Display
    Group,Patient)="".
8 NAME 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<3) X
  • LAST EDITED:  JUL 08, 2004
  • HELP-PROMPT:  Answer must be 3-40 characters in length.
  • DESCRIPTION:  
    This is the name of the patient.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  52.11^BA^MUMPS
    1)= D SNMXREF^APSPBING
    2)= D KNMXREF^APSPBING
    The "BA" Xref is to be used to ID and label duplicate name entries.  It sets the global ^PS(52.11,"BA",Name,DA,SSN)="".
    IHS/CIA/PLS - 07/08/04 - Modified the xref logic to call APSPBING and to use HRN instead of SSN.





9
SSAN
1;2
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<111111111)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 25, 1993
  • HELP-PROMPT:  Type a Number between 111111111 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the SSN of the patient.





10
HIERARCY
1;3
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 01, 1993
  • HELP-PROMPT:  Type a Number between 1 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    This field is engaged if there are more than one patients with the same name entered in the system
  • TECHNICAL DESCR:  
    This field will be "" or 1 for the first patient with the common name and is not "stuffed" until the second occurence.
  • CROSS-REFERENCE:  52.11^BI^MUMPS
    1)= S ^PS(52.11,"BI",$P(^PS(52.11,DA,0),U),$P(^PS(52.11,DA,1),U,3),DA)=""
    2)= K ^PS(52.11,"BI",$P(^PS(52.11,DA,0),U),$P(^PS(52.11,DA,1),U,3),DA)
    This is to track those patients with the same first name. It sets the global ^PS(52.11,"BI",Patient,Display Group,DA)="".





11
MULTIRX
1;4
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  FEB 25, 1993
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    Contains the total separate Rx orders the patient has requested, ie; An order at 10AM and a separate one at 12PM.  To distinguish statistically they must be computed separately.
  • TECHNICAL DESCR:  
    This number reflects the number of orders the patient has submitted. 0 or 1 is the first order because 1 will not be present unless there are >1 orders.





12
PRESCRIPTION(S)
2;0
POINTER Multiple #52.1112 
52.1112
  • DESCRIPTION:  
    This multiple holds the prescription information.





13
SUSPENSE DIVISION
0;9
SET

  • '0' FOR Non-Suspense entry;
  • '1' FOR Suspense entry;
  • LAST EDITED:  AUG 06, 1996
  • DESCRIPTION:  
    This Set of Codes field serves as a flag where '0' means a Non-Suspense entry and '1' means Suspense entry.
  • TECHNICAL DESCR:  
    Set of Codes: Non-Suspense Entry=0; Suspense Entry=1







External References







Name
Field # of Occurrence




KNMXREF^APSPBING
8(XREF 1K)




SNMXREF^APSPBING
8(XREF 1S)




ATICKIL^PSOBINGO
6(XREF 2K)




ATICSET^PSOBINGO
6(XREF 2S)








Global Variables Directly Accessed







Name
Line Occurrences  (* Changed,  ! Killed)




^DPT - [#2]
6(XREF 1S), 6(XREF 1K)




^PS(52.11 - [#52.11]
.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 6(XREF 1S), 6(XREF 1K), 7(XREF 1S), 7(XREF 1K)
, 10(XREF 1S), 10(XREF 1K)		








Naked Globals







Name
Field # of Occurrence




^(0
ID1+1




^(1
ID9+1, ID10+1, ID11+1, 6(XREF 1S), 6(XREF 1K)








Local Variables




  

    
Legend:

    

      
        

           >> 
           Not killed explicitly
          

           * 
          Changed
          

           ! 
          Killed
          

          ~
          Newed
        

      
    

    

  





Name
Field # of Occurrence




>> DA
.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 6(XREF 1S), 6(XREF 1K), 7(XREF 1S), 7(XREF 1K)
, 10(XREF 1S), 10(XREF 1K)		




U
ID1+1, ID9+1, ID10+1, ID11+1, 10(XREF 1S), 10(XREF 1K)




X
.01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 4+1!, 5+1!, 6+1!
, 8+1!, 9+1!, 10+1!, 11+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