source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXUTLVST.m@ 1710

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

initial load of WorldVistAEHR

File size: 730 bytes
RevLine 
[613]1PXUTLVST ;ISL/dee - Looks up the visit to see if there is already one ;8/6/96
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
3 Q
4 ;
5LOOKVSIT(PAT,VDT,LOC,DSS,INS,TYP) ;Calls visit tracking to see if there is already a visit.
6 ;Get the visit for the appointment is there is one
7 N APPTVST
8 S APPTVST=$$APPT2VST^PXUTL1(PAT,VDT,LOC)
9 I APPTVST>0 Q APPTVST
10 ;
11 N VSIT,VSITPKG
12 S VSIT("IEN")=""
13 S VSIT("VDT")=VDT
14 S VSIT("PAT")=PAT
15 S VSIT("LOC")=LOC
16 S VSIT("INS")=$G(INS)
17 S VSIT("TYP")=$G(TYP)
18 S VSIT("DSS")=$G(DSS)
19 I VSIT("DSS")="",$P($G(^SC(+VSIT("LOC"),0)),"^",7)>0 S VSIT("DSS")=$P(^SC(+VSIT("LOC"),0),"^",7)
20 S VSITPKG="PX"
21 S VSIT(0)="D0EM"
22 ;
23 ;CALL FOR VSIT
24 D ^VSIT
25 I '$D(VSIT("IEN"))#2 Q -1
26 Q $P(VSIT("IEN"),"^",1)
27 ;
Note: See TracBrowser for help on using the repository browser.