IBECEA39 ;EDE/WCJ-Multi-site maintain UC VISIT TRACKING FILE (#351.82) - PULL; 2-DEC-19
Source file <IBECEA39.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AWAY | ||
| PULL | ; This will be called from a menu option.
; ask the patient and if selected, initiate the pull |
|
| AGAIN | ||
| GETPAT(IBDFN) | ; Select a patient.
; Return 0 - no patient selected ; Return 1 - patient selected ; IBDFN will be the patient's IEN in file 2 |
|
| PATIENTPULL(IBDFN,IBERR) | ; This does a lot of the same stuff the push does only for a specific veteran.
; IBDFN - which patient ; IBERR - return array of results |
|
| PARSEPULL(IBPD,IBDFN,ERR) | ; parse the record being pulled from the originating site
; IBPD is a packed data array ; "IEN^.01I^.01^C2^.03I^.04I^.05^.06I^.07I^1.01I^C9" ; "ien at originating site^dfn at originating site^patient name^originating site^event date^status^bill #^reason^unique id^update^full icn" ; "2^7229593^LASTNAME,FIRSTNAME MIDDLE^529^3190814^2^442-K902Z6L^^^99999999999v999999" ; IBDFN is the patient that we asked for ; ERR is returned even if it's not an ERROR so kind of a misnomer. |
|
| DISPLAYRES(IBDFN,IBPULLRESULTS) | ; display results
|
|
| WRITE(DATA,CNT) | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls, GET1^DIQ |
| ^IBUC(351.82 - [#351.82] | FIND^DIC |
