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

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

initial load of WorldVistAEHR

File size: 3.9 KB
Line 
1VSITHLP ;ISD/RJP - Visit Information ;8/8/96
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**76,111,130**;Aug 12, 1996
3 ; Patch PX*1*76 changes the 2nd line of all VSIT* routines to reflect
4 ; the incorporation of the module into PCE. For historical reference,
5 ; the old (VISIT TRACKING) 2nd line is included below to reference VSIT
6 ; patches.
7 ;
8 ;;2.0;VISIT TRACKING;;Aug 12, 1996;
9 ;
10 N TXT,DIR,DX,DY,VSITI,X
11 I '$D(IOSL) S IOP=0 D ^%ZIS K IOP
12 D HOME^%ZIS W @IOF
13 F VSITI=1:1 S TXT=$T(TXT+VSITI) Q:TXT="" D
14 . W $P(TXT,";;",2)
15 . I $Y>(IOSL-3) D
16 . . S DIR(0)="E" D ^DIR
17 . . N X S $P(X," ",79)="" W $C(13),X,$C(13)
18 . . S (DX,DY)=0 X ^%ZOSF("XY")
19 . E W !
20 Q
21 ;
22TXT ;
23 ;; VSIT(0) A string of characters which defines how the visit
24 ;; processor will function.
25 ;;
26 ;; F - Force adding a new entry.
27 ;; I - Interactive mode.
28 ;; E - Use pt's primary eligibility if now passed on
29 ;; call w/ VSIT("ELG").
30 ;; N - Allow creation of a new visit.
31 ;; D - Look back "n" number of days for a match, default
32 ;; is one (1). e.g. VSIT(0)="D5" (v/dt to v/dt-4)
33 ;; Use "D0" to require exact match on date & time.
34 ;; M - Impose criteria on matching or creation of visits.
35 ;; Uses the VSIT(<xxx>) array:
36 ; [<fld-value>[^...]] for multiple values
37 ;; - If trying to match with existing visit, each element
38 ;; must match each corresponding field.
39 ;;
40 ;; Variable names for VISIT file fields: #9000010 gbl: ^AUPNVSIT(
41 ;; (format) -> <internal format>[^<external format>]
42 ;; except VSIT(<ien>) = N^S[^1]
43 ;; where N = internal entry number
44 ;; S = value of .01 filed
45 ;; 1 = indicated new entry added
46 ;; .001 - VSIT("IEN") ; NUMBER (internal entry number)
47 ;; .01 - VSIT("VDT") ; VISIT/ADMIT DATE&TIME (date)
48 ;; .02 - VSIT("CDT") ; DATE VISIT CREATED (date)
49 ;; .03 - VSIT("TYP") ; TYPE (set)
50 ;; .05 - VSIT("PAT") ; PATIENT (pointer to PATIENT file #9000001)
51 ;; (IHS file DINUM'ed to PATIENT file #2)
52 ;; .06 - VSIT("INS") ; LOC. OF ENCOUNTER (pointer to LOCATION file
53 ;; #9999999.06)
54 ;; (IHS file DINUM'ed to INSTITUTION file #4)
55 ;; .07 - VSIT("SVC") ; SERVICE CATEGORY (set)
56 ;; .08 - VSIT("DSS") ; CLINIC (pointer to CLINIC STOP file #40.7)
57 ;; .09 - VSIT("CTR") ; DEPENDENT ENTRY COUNTER (number)
58 ;; .11 - VSIT("DEL") ; DELETE FLAG (set)
59 ;; .12 - VSIT("LNK") ; PARENT VISIT LINK (pointer to VISIT file)
60 ;; .13 - VSIT("MDT") ; DATE LAST MODIFIED (date)
61 ;; .18 - VSIT("COD") ; CHECK OUT DATE&TIME (date)
62 ;; .21 - VSIT("ELG") ; ELIGIBILITY (pointer to ELIGIBILITY CODE
63 ;; file #8)
64 ;; .22 - VSIT("LOC") ; HOSPITAL LOCATION (pointer to HOSPITAL
65 ;; LOCATION file #44)
66 ;; .23 - VSIT("USR") ; CREATED BY USER (pointer to USER file #200)
67 ;; .24 - VSIT("OPT") ; OPTION USED TO CREATE (pointer to OPTION
68 ;; file #19)
69 ;; .25 - VSIT("PRO") ; PROTOCOL (pointer to PROTOCOL file #101)
70 ;; 2101 - VSIT("OUT") ; OUTSIDE LOCATION (free text)
71 ;; 15001 - VSIT("VID") ; VISIT ID (free text)
72 ;; 15002 - VSIT("IO") ; PATIENT STATUS IN/OUT (set)
73 ;; 15003 - VSIT("PRI") ; ENCOUNTER TYPE (set)
74 ;; 80001 - VSIT("SC") ; SERVICE CONNECTED (set)
75 ;; 80002 - VSIT("AO") ; AGENT ORANGE EXPOSURE (set)
76 ;; 80003 - VSIT("IR") ; IONIZING RADIATION EXPOSURE (set)
77 ;; 80004 - VSIT("EC") ; PERSIAN GULF EXPOSURE (set)
78 ;; 80006 - VSIT("HNC") ; HEAD AND/OR NECK CANCER (set)
79 ;; 80007 - VSIT("CV") ; COMBAT VET (set)
80 ;; 81101 - VSIT("COM") ; COMMENTS (free text)
81 ;; 81202 - VSIT("PKG") ; PACKAGE (pointer to PACKAGE file #9.4)
82 ;; 81203 - VSIT("SOR") ; DATA SOURCE (pointer to PCE DATA SOURCE
83 ;; file #839.7)
Note: See TracBrowser for help on using the repository browser.