VSITHLP.m

VSITHLP ;ISD/RJP - Visit Information ;8/8/96

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**76,111**;Aug 12, 1996

 ; Patch PX*1*76 changes the 2nd line of all VSIT* routines to reflect

 ; the incorporation of the module into PCE.  For historical reference,

 ; the old (VISIT TRACKING) 2nd line is included below to reference VSIT

 ; patches.

 ;

 ;;2.0;VISIT TRACKING;;Aug 12, 1996;

 ;

 N TXT,DIR,DX,DY,VSITI,X

 I '$D(IOSL) S IOP=0 D ^%ZIS K IOP

 D HOME^%ZIS W @IOF

 F VSITI=1:1 S TXT=$T(TXT+VSITI) Q:TXT=""  D

 . W $P(TXT,";;",2)

 . I $Y>(IOSL-3) D

 . . S DIR(0)="E" D ^DIR

 . . N X S $P(X," ",79)="" W $C(13),X,$C(13)

 . . S (DX,DY)=0 X ^%ZOSF("XY")

 . E  W !

 Q

 ;

TXT ;

 ;; VSIT(0)   A string of characters which defines how the visit

 ;;           processor will function.

 ;;

 ;;           F - Force adding a new entry.

 ;;           I - Interactive mode.

 ;;           E - Use pt's primary eligibility if now passed on

 ;;               call w/ VSIT("ELG").

 ;;           N - Allow creation of a new visit.

 ;;           D - Look back "n" number of days for a match, default

 ;;               is one (1).   e.g. VSIT(0)="D5"  (v/dt to v/dt-4)

 ;;               Use "D0" to require exact match on date & time.

 ;;           M - Impose criteria on matching or creation of visits.

 ;;               Uses the VSIT(<xxx>) array:

 ;                  [<fld-value>[^...]] for multiple values

 ;;               - If trying to match with existing visit, each element

 ;;                 must match each corresponding field.

 ;;

 ;; Variable names for VISIT file fields:  #9000010   gbl:  ^AUPNVSIT(

 ;;         (format) ->   <internal format>[^<external format>]

 ;;           except VSIT(<ien>) = N^S[^1]

 ;;                      where N = internal entry number

 ;;                            S = value of .01 filed

 ;;                            1 = indicated new entry added

 ;;  .001 - VSIT("IEN") ; NUMBER (internal entry number)

 ;;   .01 - VSIT("VDT") ; VISIT/ADMIT DATE&TIME (date)

 ;;   .02 - VSIT("CDT") ; DATE VISIT CREATED (date)

 ;;   .03 - VSIT("TYP") ; TYPE (set)

 ;;   .05 - VSIT("PAT") ; PATIENT (pointer to PATIENT file #9000001)

 ;;                       (IHS file DINUM'ed to PATIENT file #2)

 ;;   .06 - VSIT("INS") ; LOC. OF ENCOUNTER (pointer to LOCATION file

 ;;                       #9999999.06)

 ;;                       (IHS file DINUM'ed to INSTITUTION file #4)

 ;;   .07 - VSIT("SVC") ; SERVICE CATEGORY (set)

 ;;   .08 - VSIT("DSS") ; CLINIC (pointer to CLINIC STOP file #40.7)

 ;;   .09 - VSIT("CTR") ; DEPENDENT ENTRY COUNTER (number)

 ;;   .11 - VSIT("DEL") ; DELETE FLAG (set)

 ;;   .12 - VSIT("LNK") ; PARENT VISIT LINK (pointer to VISIT file)

 ;;   .13 - VSIT("MDT") ; DATE LAST MODIFIED (date)

 ;;   .18 - VSIT("COD") ; CHECK OUT DATE&TIME (date)

 ;;   .21 - VSIT("ELG") ; ELIGIBILITY (pointer to ELIGIBILITY CODE

 ;;                       file #8)

 ;;   .22 - VSIT("LOC") ; HOSPITAL LOCATION (pointer to HOSPITAL

 ;;                       LOCATION file #44)

 ;;   .23 - VSIT("USR") ; CREATED BY USER (pointer to USER file #200)

 ;;   .24 - VSIT("OPT") ; OPTION USED TO CREATE (pointer to OPTION

 ;;                       file #19)

 ;;   .25 - VSIT("PRO") ; PROTOCOL (pointer to PROTOCOL file #101)

 ;;  2101 - VSIT("OUT") ; OUTSIDE LOCATION (free text)

 ;; 15001 - VSIT("VID") ; VISIT ID (free text)

 ;; 15002 - VSIT("IO")  ; PATIENT STATUS IN/OUT (set)

 ;; 15003 - VSIT("PRI") ; ENCOUNTER TYPE (set)

 ;; 80001 - VSIT("SC")  ; SERVICE CONNECTED (set)

 ;; 80002 - VSIT("AO")  ; AGENT ORANGE EXPOSURE (set)

 ;; 80003 - VSIT("IR")  ; IONIZING RADIATION EXPOSURE (set)

 ;; 80004 - VSIT("EC")  ; PERSIAN GULF EXPOSURE (set)

 ;; 80006 - VSIT("HNC") ; HEAD AND/OR NECK CANCER (set)

 ;; 81101 - VSIT("COM") ; COMMENTS (free text)

 ;; 81202 - VSIT("PKG") ; PACKAGE (pointer to PACKAGE file #9.4)

 ;; 81203 - VSIT("SOR") ; DATA SOURCE (pointer to PCE DATA SOURCE

 ;;                       file #839.7)

VSITHLP   ;ISD/RJP - Visit Information ;8/8/96

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**76,111**;Aug 12, 1996

 +2       ; Patch PX*1*76 changes the 2nd line of all VSIT* routines to reflect

 +3       ; the incorporation of the module into PCE.  For historical reference,

 +4       ; the old (VISIT TRACKING) 2nd line is included below to reference VSIT

 +5       ; patches.

 +6       ;

 +7       ;;2.0;VISIT TRACKING;;Aug 12, 1996;

 +8       ;

 +9        NEW TXT,DIR,DX,DY,VSITI,X

 +10       IF '$DATA(IOSL)

               SET IOP=0

               DO ^%ZIS

               KILL IOP

 +11       DO HOME^%ZIS

           WRITE @IOF

 +12       FOR VSITI=1:1

               SET TXT=$TEXT(TXT+VSITI)

               IF TXT=""

                   QUIT 

               Begin DoDot:1

 +13               WRITE $PIECE(TXT,";;",2)

 +14               IF $Y>(IOSL-3)

                       Begin DoDot:2

 +15                       SET DIR(0)="E"

                           DO ^DIR

 +16                       NEW X

                           SET $PIECE(X," ",79)=""

                           WRITE $CHAR(13),X,$CHAR(13)

 +17                       SET (DX,DY)=0

                           XECUTE ^%ZOSF("XY")

                       End DoDot:2

 +18              IF '$TEST

                       WRITE !

               End DoDot:1

 +19       QUIT 

 +20      ;

TXT       ;

 +1       ;; VSIT(0)   A string of characters which defines how the visit

 +2       ;;           processor will function.

 +3       ;;

 +4       ;;           F - Force adding a new entry.

 +5       ;;           I - Interactive mode.

 +6       ;;           E - Use pt's primary eligibility if now passed on

 +7       ;;               call w/ VSIT("ELG").

 +8       ;;           N - Allow creation of a new visit.

 +9       ;;           D - Look back "n" number of days for a match, default

 +10      ;;               is one (1).   e.g. VSIT(0)="D5"  (v/dt to v/dt-4)

 +11      ;;               Use "D0" to require exact match on date & time.

 +12      ;;           M - Impose criteria on matching or creation of visits.

 +13      ;;               Uses the VSIT(<xxx>) array:

 +14      ;                  [<fld-value>[^...]] for multiple values

 +15      ;;               - If trying to match with existing visit, each element

 +16      ;;                 must match each corresponding field.

 +17      ;;

 +18      ;; Variable names for VISIT file fields:  #9000010   gbl:  ^AUPNVSIT(

 +19      ;;         (format) ->   <internal format>[^<external format>]

 +20      ;;           except VSIT(<ien>) = N^S[^1]

 +21      ;;                      where N = internal entry number

 +22      ;;                            S = value of .01 filed

 +23      ;;                            1 = indicated new entry added

 +24      ;;  .001 - VSIT("IEN") ; NUMBER (internal entry number)

 +25      ;;   .01 - VSIT("VDT") ; VISIT/ADMIT DATE&TIME (date)

 +26      ;;   .02 - VSIT("CDT") ; DATE VISIT CREATED (date)

 +27      ;;   .03 - VSIT("TYP") ; TYPE (set)

 +28      ;;   .05 - VSIT("PAT") ; PATIENT (pointer to PATIENT file #9000001)

 +29      ;;                       (IHS file DINUM'ed to PATIENT file #2)

 +30      ;;   .06 - VSIT("INS") ; LOC. OF ENCOUNTER (pointer to LOCATION file

 +31      ;;                       #9999999.06)

 +32      ;;                       (IHS file DINUM'ed to INSTITUTION file #4)

 +33      ;;   .07 - VSIT("SVC") ; SERVICE CATEGORY (set)

 +34      ;;   .08 - VSIT("DSS") ; CLINIC (pointer to CLINIC STOP file #40.7)

 +35      ;;   .09 - VSIT("CTR") ; DEPENDENT ENTRY COUNTER (number)

 +36      ;;   .11 - VSIT("DEL") ; DELETE FLAG (set)

 +37      ;;   .12 - VSIT("LNK") ; PARENT VISIT LINK (pointer to VISIT file)

 +38      ;;   .13 - VSIT("MDT") ; DATE LAST MODIFIED (date)

 +39      ;;   .18 - VSIT("COD") ; CHECK OUT DATE&TIME (date)

 +40      ;;   .21 - VSIT("ELG") ; ELIGIBILITY (pointer to ELIGIBILITY CODE

 +41      ;;                       file #8)

 +42      ;;   .22 - VSIT("LOC") ; HOSPITAL LOCATION (pointer to HOSPITAL

 +43      ;;                       LOCATION file #44)

 +44      ;;   .23 - VSIT("USR") ; CREATED BY USER (pointer to USER file #200)

 +45      ;;   .24 - VSIT("OPT") ; OPTION USED TO CREATE (pointer to OPTION

 +46      ;;                       file #19)

 +47      ;;   .25 - VSIT("PRO") ; PROTOCOL (pointer to PROTOCOL file #101)

 +48      ;;  2101 - VSIT("OUT") ; OUTSIDE LOCATION (free text)

 +49      ;; 15001 - VSIT("VID") ; VISIT ID (free text)

 +50      ;; 15002 - VSIT("IO")  ; PATIENT STATUS IN/OUT (set)

 +51      ;; 15003 - VSIT("PRI") ; ENCOUNTER TYPE (set)

 +52      ;; 80001 - VSIT("SC")  ; SERVICE CONNECTED (set)

 +53      ;; 80002 - VSIT("AO")  ; AGENT ORANGE EXPOSURE (set)

 +54      ;; 80003 - VSIT("IR")  ; IONIZING RADIATION EXPOSURE (set)

 +55      ;; 80004 - VSIT("EC")  ; PERSIAN GULF EXPOSURE (set)

 +56      ;; 80006 - VSIT("HNC") ; HEAD AND/OR NECK CANCER (set)

 +57      ;; 81101 - VSIT("COM") ; COMMENTS (free text)

 +58      ;; 81202 - VSIT("PKG") ; PACKAGE (pointer to PACKAGE file #9.4)

 +59      ;; 81203 - VSIT("SOR") ; DATA SOURCE (pointer to PCE DATA SOURCE

 +60      ;;                       file #839.7)