- ADGDSEP ; IHS/ADC/PDW/ENM - EDIT PAST DAY SURGERIES ; [ 03/25/1999 11:48 AM ]
- ;;5.0;ADMISSION/DISCHARGE/TRANSFER;;MAR 25, 1999
- ;
- ;***> get patient
- NAME W !! K DFN S DIC=9009012,DIC(0)="AQEM"
- S DIC("A")="Select Day Surgery Patient: "
- D ^DIC K DIC("A") G END:X="",END:X=U,NAME:Y<0
- ;
- S (DFN,DA)=+Y D EN^ADGPI ;print patient inquiry info
- I $D(^DPT(DFN,.35)),^(.35)]"" K DIR S DIR(0)="Y",DIR("A")="This patient has died. Are you sure you want to continue",DIR("B")="NO" D ^DIR I Y=0 G NAME
- ;
- ;***> get day surgery date
- DSDATE K DIC S DIC="^ADGDS("_DFN_",""DS"",",DIC(0)="AEQMZ"
- S DA(1)=DFN,DA=0 D ^DIC W !! K DIC,DIC("A") G NAME:Y'>0 S DGDFN1=+Y
- I $D(^ADGDS(DFN,"DS",DGDFN1,2)),$P(^(2),U)'="" G DSEDIT
- W !?5,*7,"Edit active day surgeries in the DAY SURGERY ENTER/EDIT option",! G NAME
- ;
- DSEDIT ;***> edit using input template
- S DIDEL=9009012,DR="[ADGDSADD]",DIE="^ADGDS(",DA=DFN
- L +^ADGDS(DFN):3 I '$T D G NAME
- . W !,*7,"SOMEONE ELSE IS UPDATING THIS DAY SURGERY PATIENT; TRY AGAIN LATER"
- S DIE("NO^")="" D ^DIE L -^ADGDS(DFN) K DIE("NO^")
- ;
- ;***> print day surgery worksheet
- CRB K DIR S DIR("A")="Print Clinical Record Brief",DIR(0)="Y"
- S DIR("?")="Enter YES to print a worksheet for this patient"
- S DIR("B")="NO" D ^DIR
- I Y=1 S DGDFNX=DFN D DS1^ADGCRB0 ;go to print
- G NAME
- ;
- END D KILL^ADGUTIL Q
- ADGDSEP ; IHS/ADC/PDW/ENM - EDIT PAST DAY SURGERIES ; [ 03/25/1999 11:48 AM ]
- +1 ;;5.0;ADMISSION/DISCHARGE/TRANSFER;;MAR 25, 1999
- +2 ;
- +3 ;***> get patient
- NAME WRITE !!
- KILL DFN
- SET DIC=9009012
- SET DIC(0)="AQEM"
- +1 SET DIC("A")="Select Day Surgery Patient: "
- +2 DO ^DIC
- KILL DIC("A")
- IF X=""
- GOTO END
- IF X=U
- GOTO END
- IF Y<0
- GOTO NAME
- +3 ;
- +4 ;print patient inquiry info
- SET (DFN,DA)=+Y
- DO EN^ADGPI
- +5 IF $DATA(^DPT(DFN,.35))
- IF ^(.35)]""
- KILL DIR
- SET DIR(0)="Y"
- SET DIR("A")="This patient has died. Are you sure you want to continue"
- SET DIR("B")="NO"
- DO ^DIR
- IF Y=0
- GOTO NAME
- +6 ;
- +7 ;***> get day surgery date
- DSDATE KILL DIC
- SET DIC="^ADGDS("_DFN_",""DS"","
- SET DIC(0)="AEQMZ"
- +1 SET DA(1)=DFN
- SET DA=0
- DO ^DIC
- WRITE !!
- KILL DIC,DIC("A")
- IF Y'>0
- GOTO NAME
- SET DGDFN1=+Y
- +2 IF $DATA(^ADGDS(DFN,"DS",DGDFN1,2))
- IF $PIECE(^(2),U)'=""
- GOTO DSEDIT
- +3 WRITE !?5,*7,"Edit active day surgeries in the DAY SURGERY ENTER/EDIT option",!
- GOTO NAME
- +4 ;
- DSEDIT ;***> edit using input template
- +1 SET DIDEL=9009012
- SET DR="[ADGDSADD]"
- SET DIE="^ADGDS("
- SET DA=DFN
- +2 LOCK +^ADGDS(DFN):3
- IF '$TEST
- Begin DoDot:1
- +3 WRITE !,*7,"SOMEONE ELSE IS UPDATING THIS DAY SURGERY PATIENT; TRY AGAIN LATER"
- End DoDot:1
- GOTO NAME
- +4 SET DIE("NO^")=""
- DO ^DIE
- LOCK -^ADGDS(DFN)
- KILL DIE("NO^")
- +5 ;
- +6 ;***> print day surgery worksheet
- CRB KILL DIR
- SET DIR("A")="Print Clinical Record Brief"
- SET DIR(0)="Y"
- +1 SET DIR("?")="Enter YES to print a worksheet for this patient"
- +2 SET DIR("B")="NO"
- DO ^DIR
- +3 ;go to print
- IF Y=1
- SET DGDFNX=DFN
- DO DS1^ADGCRB0
- +4 GOTO NAME
- +5 ;
- END DO KILL^ADGUTIL
- QUIT
