| 1 | HBHCUTL3 ; LR VAMC(IRMS)/MJT-HBHC Utility module, Entry points: PSEUDO, PCEMSG, DX, DX80, & CPT ; Jan 2000
|
|---|
| 2 | ;;1.0;HOSPITAL BASED HOME CARE;**6,8,10,15,16,14**;NOV 01, 1993
|
|---|
| 3 | PSEUDO ; Print pseudo SSN message
|
|---|
| 4 | W *7,!!,"Patient visit records with pseudo social security numbers (SSNs) exist.",!,"Print the 'Pseudo Social Security Number Report' located on the HBHC Reports"
|
|---|
| 5 | W !,"Menu to obtain a list of patients with invalid SSNs. HBHC must determine",!,"what corrective action is appropriate to eliminate these records from the",!,"HBHC Information System.",!! H 5
|
|---|
| 6 | Q
|
|---|
| 7 | PCEMSG ; Print PCE correction of errors message
|
|---|
| 8 | W !!,"Note: Please use Appointment Management to Correct Visit Errors. Run",!?7,"Edit Form Errors Data option when corrections are complete."
|
|---|
| 9 | Q
|
|---|
| 10 | DX ; Diagnosis (DX) info, HBHCDFN must be defined prior to call, returns code plus text in local array HBHCDX
|
|---|
| 11 | K HBHCDX S $P(HBHCSP5," ",6)="",HBHCI=0
|
|---|
| 12 | F S HBHCI=$O(^HBHC(632,HBHCDFN,3,HBHCI)) Q:HBHCI'>0 S HBHCICDP=$P(^HBHC(632,HBHCDFN,3,HBHCI,0),U),HBHCICD0=^ICD9(HBHCICDP,0),HBHCDX(HBHCI)=$P(HBHCICD0,U)_$E(HBHCSP5,1,(8-$L($P(HBHCICD0,U))))_$P(HBHCICD0,U,3)
|
|---|
| 13 | K HBHCI,HBHCICD0,HBHCICDP
|
|---|
| 14 | Q
|
|---|
| 15 | DX80 ; Print DX info in 80 column format, HBHCDX( array must be defined prior to call
|
|---|
| 16 | S (HBHCFLG,HBHCI)=0 F S HBHCI=$O(HBHCDX(HBHCI)) Q:HBHCI'>0 W ! W:HBHCFLG=0 "Diagnosis: " W:HBHCFLG=1 ?13 W HBHCDX(HBHCI) S HBHCFLG=1
|
|---|
| 17 | K HBHCDX,HBHCFLG,HBHCI
|
|---|
| 18 | Q
|
|---|
| 19 | CPT ; CPT code info, HBHCDFN must be defined prior to call, returns code plus text in local array HBHCCPTA
|
|---|
| 20 | K HBHCCPTA S $P(HBHCSP3," ",4)="",HBHCI=0 F S HBHCI=$O(^HBHC(632,HBHCDFN,2,HBHCI)) Q:HBHCI'>0 S HBHCCPT=$$CPT^ICPTCOD(^HBHC(632,HBHCDFN,2,HBHCI,0)),HBHCCPTA(HBHCI)=$P(HBHCCPT,U,2)_HBHCSP3_$P(HBHCCPT,U,3) D CPTMOD
|
|---|
| 21 | K HBHCCPT,HBHCI,HBHCJ,HBHCMOD,HBHCSP3
|
|---|
| 22 | Q
|
|---|
| 23 | CPTMOD ; Process CPT Modifier code plus text into local array HBHCCPTA(HBHCCPT,HBHCJ)
|
|---|
| 24 | S HBHCJ=0 F S HBHCJ=$O(^HBHC(632,HBHCDFN,2,HBHCI,1,HBHCJ)) Q:HBHCJ'>0 S HBHCMOD=$$MOD^ICPTMOD($P(^HBHC(632,HBHCDFN,2,HBHCI,1,HBHCJ,0),U),"I"),HBHCCPTA(HBHCI,HBHCJ)=$P(HBHCMOD,U,2)_HBHCSP3_$P(HBHCMOD,U,3)
|
|---|
| 25 | Q
|
|---|
