source: WorldVistAEHR/trunk/r/HOSPITAL_BASED_HOME_CARE-HBH/HBHCDIS.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1HBHCDIS ; LR VAMC(IRMS)/MJT-HBHC Discharge data entry, calls STATUS^HBHCUTL from [HBHC DISCHARGE] template ;9202
2 ;;1.0;HOSPITAL BASED HOME CARE;**2**;NOV 01, 1993
3START ; Initialization
4 S HBHCFORM=5
5PROMPT ; Prompt user for patient name
6 K DIC,HBHCPRCT S DIC="^HBHC(631,",DIC(0)="AEMQZ" D ^DIC
7 G:Y=-1 EXIT
8 I $P(Y(0),U,15)'=1 W *7,!!,"Record indicates patient has not been admitted to HBHC. Discharge not allowed",!,"without admission.",! H 3 G PROMPT
9 S HBHCDFN=+Y,HBHCDPT=$P(Y,U,2),HBHCXMT5=$P($G(^HBHC(631,HBHCDFN,1)),U,18)
10 I (HBHCXMT5]"")&(HBHCXMT5'="N") D FORMMSG^HBHCUTL1 G:$D(HBHCNHSP) EXIT G:HBHCPRCT'=1 PROMPT
11 K DIE S DIE="^HBHC(631,",DA=HBHCDFN,DR="[HBHC DISCHARGE]"
12 L +^HBHC(631,HBHCDFN):0 I $T D ^DIE L -^HBHC(631,HBHCDFN) G PROMPT
13 W *7,!!,"Another user is editing this entry.",!! G PROMPT
14EXIT ; Exit module
15 K DA,DIC,DIE,DR,HBHC12,HBHC359,HBHCDFLG,HBHCDFN,HBHCDIED,HBHCDPT,HBHCFORM,HBHCI,HBHCJ,HBHCL,HBHCM,HBHCNHSP,HBHCNOD1,HBHCPRCT,HBHCQ,HBHCQ1,HBHCTFLG,HBHCXMT5,HBHCWRD1,HBHCWRD2,HBHCWRD3,HBHCY0,X,Y
16 Q
Note: See TracBrowser for help on using the repository browser.