Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BDGSVE

BDGSVE.m

Go to the documentation of this file. 
  1. BDGSVE ; IHS/ANMC/LJF - SCHEDULED VISIT EDIT ; 
  1.  ;;5.3;PIMS;;APR 26, 2002
  1.  ;
  1.  ;
  1. PAT ; ask user for patient
  1.  ; If BDGSVEis set and = 1 then in edit mode, else in view mode
  1.  NEW DFN D KILL^AUPNPAT
  1.  S DFN=+$$READ^BDGF("PO^9000001:EMQZ","Select Patient") Q:DFN<1
  1.  ;
  1. PATSET ;EP; entry where patient already known
  1.  ; find all entries in SV file for patient (except deleted ones)
  1.  ;  put into array sorted by date
  1.  NEW BDGN,COUNT,BDGA,BDGA1,X,PROMPT
  1.  S BDGN=0
  1.  F  S BDGN=$O(^BDGSV("B",DFN,BDGN)) Q:'BDGN  D
  1.  . Q:$$GET1^DIQ(9009016.7,BDGN,.16,"I")="ER"  ;quit if entered in error
  1.  . S BDGA1(9999999-$$GET1^DIQ(9009016.7,BDGN,.02,"I"))=BDGN
  1.  ;
  1.  ; create numbered array linked to sorted array
  1.  S X=0 F  S X=$O(BDGA1(X)) Q:'X  D
  1.  . S COUNT=$G(COUNT)+1,BDGA(COUNT)=BDGA1(X)
  1.  ;
  1.  ; if no entries found, drop right into add mode
  1.  I '$D(BDGA) D  Q
  1.  . W !!,"No Scheduled Visits found for patient"
  1.  . I '$G(BDGSVE) D PAUSE^BDGF Q
  1.  . Q:'$$READ^BDGF("Y","OKAY TO ADD NEW SCHEDULED VISIT","NO")
  1.  . D ADD,PAT
  1.  ;
  1.  W !!,"Scheduled Visit Entries for "_$$GET1^DIQ(2,DFN,.01)_":"
  1.  F COUNT=1:1 Q:'$D(BDGA(COUNT))  Q:COUNT=10  D
  1.  . W !,$J(COUNT,3),?6,$$GET1^DIQ(9009016.7,BDGA(COUNT),.02)  ;date
  1.  . W ?25,$$GET1^DIQ(9009016.7,BDGA(COUNT),.03)
  1.  . S X=$$GET1^DIQ(9009016.7,BDGA(COUNT),.16)             ;disposition
  1.  . W ?45,$S(X]"":X,1:"Open/Pending")
  1.  W !
  1.  ;
  1.  S PROMPT="Select Date by Number"
  1.  I $G(BDGSVE) S PROMPT=PROMPT_" or ""A"" to Add New Entry"
  1.  S Y=$$READ^BDGF("FO^1:"_$L(COUNT),PROMPT)
  1.  ;
  1.  I Y="A",$G(BDGSVE) D ADD,PAT Q
  1.  I $D(BDGA(+Y)) S BDGN=BDGA(Y) D
  1.  . I $G(BDGSVE) D SCREEN,PAT Q             ;edit then view
  1.  . D ^BDGSVS Q                             ;view only
  1.  Q
  1.  ;
  1.  ;
  1. SCREEN ; -- call ScreenMan to add/edit parameters
  1.  NEW DDSFILE,DA,DR,X
  1.  S DDSFILE=9009016.7,DA=BDGN
  1.  S X=$$GET1^DIQ(9009016.7,BDGN,.03,"I")  ;type of visit
  1.  S DR="[BDG SCHED "_$S(X="A":"ADMIT",X="D":"DAY SURGERY",1:"OUTPATIENT")_"]"
  1.  D ^DDS
  1.  I $$READ^BDGF("Y","Want to print Scheduled Visit Summary","NO") D ^BDGSVS
  1.  Q
  1.  ;
  1. ADD ; add new entry then call Screenman
  1.  NEW DIC,X,DA,DLAYGO
  1.  S (DIC,DLAYGO)=9009016.7,X=DFN,DIC(0)="AEMQLZ"
  1.  S DIC("DR")=".02;.03" K DO,DD D FILE^DICN
  1.  I Y S BDGN=+Y D SCREEN
  1.  Q
  1.  ;