PSOPATLK ;BIR/JAM - Patient Lookup utility ;7/21/08
Source file <PSOPATLK.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 3 | ^DIC $$GET1^DIQ ^DIR |
Registration | 1 | $$SITE^VASITE |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;Entry point - Prompts for Patient, Prescription Number or Barcode
; ; Input - DIC(0) & DIC("A") [Optional] ; Used by DIR if defined by the calling routine. |
|
PATHLP | ;Help text for patient prompt
|
|
PATVAL() | ;Validate user input
|
|
RXLK | ;Prescription Lookup
|
|
INST() | ;get institution number
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
^DIC(4 - [#4] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PSRX - [#52] | RXLK+6 |
^PSRX("B" | RXLK+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | INST+1~, INST+2*, INST+3 |
DFN | RXLK+1~, RXLK+9*, RXLK+10 |
DIC | PATHLP+1~, PATHLP+11*, PATVAL+8*, RXLK+1~, RXLK+10~* |
DIC("A" | EN+9, EN+10 |
DIC(0 | PATHLP+11*, PATVAL+8*, RXLK+10* |
DIQ | INST+1~ |
DIR | EN+7~ |
DIR("?" | EN+11* |
DIR("??" | EN+11* |
DIR("A" | EN+10* |
DIR(0 | EN+9* |
DIROUT | EN+14! |
DIRUT | EN+14! |
DTOUT | EN+14! |
DUOUT | EN+14! |
OUT | PATVAL+1~, PATVAL+2*, PATVAL+4, PATVAL+6, PATVAL+9*, PATVAL+10, RXLK+3*, RXLK+4*, RXLK+7* |
PAGE | EN+8! |
PSOINST | INST+1~, INST+3*, INST+4 |
PSOPTLK | EN+8!, EN+13* |
RX | RXLK+1~, RXLK+2*, RXLK+3, RXLK+6 |
RXNUM | RXLK+1~, RXLK+2*, RXLK+4, RXLK+6, RXLK+8 |
X | PATHLP+2, PATHLP+3, PATVAL+4, PATVAL+6, RXLK+2, RXLK+10~* |
Y | EN+13, PATVAL+9, RXLK+6*, RXLK+7, RXLK+9! |
Z | RXLK+1~, RXLK+6*, RXLK+7 |