| 1 | HBHCXMV1 ; LR VAMC(IRMS)/MJT-HBHC, called by ^HBHCXMV, entry points: START, PCE, PSSN, & EXIT ; Aug 2000
|
|---|
| 2 | ;;1.0;HOSPITAL BASED HOME CARE;**6,15,14,19**;NOV 01, 1993
|
|---|
| 3 | START ; Initialization
|
|---|
| 4 | W !,"Processing Visit/Form 4 Data"
|
|---|
| 5 | K ^HBHC(634.5) S ^HBHC(634.5,0)="HBHC PSEUDO SSN ERROR(S)^634.5P^"
|
|---|
| 6 | S HBHCFORM=4,$P(HBHCSP1," ",2)="",$P(HBHCSP2," ",3)="",$P(HBHCSP4," ",5)="",$P(HBHCSP5," ",6)="",$P(HBHCSP6," ",7)="",$P(HBHCSP10," ",11)="",$P(HBHCSP24," ",25)="",$P(HBHCZRO4,"0",5)=""
|
|---|
| 7 | S HBHCHOSP=$P($G(^DIC(4,$P(^HBHC(631.9,1,0),U,5),99)),U) S:$L(HBHCHOSP)'=7 HBHCHOSP=HBHCHOSP_$E(HBHCSP4,1,(7-($L(HBHCHOSP))))
|
|---|
| 8 | K %DT S X="T" D ^%DT S HBHCTDY=Y
|
|---|
| 9 | Q
|
|---|
| 10 | PCE ; Appointment pre-dates Patient Care Encounter (PCE)
|
|---|
| 11 | S DIE="^HBHC(632,",DA=HBHCDFN,DR="7///O" D ^DIE
|
|---|
| 12 | Q
|
|---|
| 13 | PSSN ; Patient has pseudo SSN
|
|---|
| 14 | K DD,DO S DIC="^HBHC(634.5,",DIC(0)="MN",(X,DINUM)=$P(HBHCINFO,U) D FILE^DICN
|
|---|
| 15 | Q
|
|---|
| 16 | EXIT ; Exit module
|
|---|
| 17 | K DA,DIC,DIE,DINUM,DR,DTOUT,HBHCAPDT,HBHCCNT,HBHCCNT1,HBHCCPT1,HBHCCPT2,HBHCCPT3,HBHCCPT4,HBHCCPT5,HBHCCPT6,HBHCCPT7,HBHCCPT8,HBHCCPT9,HBHCCP10,HBHCDATE,HBHCDFN,HBHCDX,HBHCDX1,HBHCDX2,HBHCDX3,HBHCDX4,HBHCDX5,HBHCFLAG,HBHCFORM
|
|---|
| 18 | K HBHCHOSP,HBHCI,HBHCINFO,HBHCJ,HBHCK,HBHCL,HBHCLNME,HBHCNDX1,HBHCNDX2,HBHCNOD2,HBHCPRV,HBHCREC,HBHCQAI,HBHCSP1,HBHCSP10,HBHCSP2,HBHCSP4,HBHCSP5,HBHCSP6,HBHCSP24,HBHCSSN,HBHCSTDT,HBHCTDY,HBHCTIME,HBHCXMT4,HBHCZRO4,X,Y,%DT
|
|---|
| 19 | Q
|
|---|
