PSONVAR1 ;BHM/MFR - Non-VA Med Usage Report ;04/10/03
Source file <PSONVAR1.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 2 | ^%ZISC ($$FMTE,$$NOW)^XLFDT |
VA Fileman | 2 | $$GET1^DIQ ^DIR |
Outpatient Pharmacy | 1 | $$DEAD^PSONVARP |
Registration | 1 | (ADD,DEM)^VADPT |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ||
END | ||
HDR | ; - Prints the Header
|
|
PRINT(DFN,ORD) | ; - Print a Non-VA Med Order
|
|
DT(DT) | ; - Convert FM Date to MM/DD/YYYY
|
|
SRT(ST) | ; - Convert the "1,2,4" (example) to "PATIENT,ORDERABLE ITEM,STATUS"
|
|
NDTP | ||
NEXT | ; - If not Sorting (already printed), SKIP, otherwise, print the report
|
|
TEXT(TEXT,STR,L) | ; Formats STR into TEXT array, lines lenght = L
|
|
DFN | ||
DATE | ||
CLOSE | ||
ORD |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^VA(200 - [#200] | GET1^DIQ |
^SC - [#44] | GET1^DIQ |
^PSDRUG - [#50] | GET1^DIQ |
^PS(50.7 - [#50.7] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(55 - [#55] | DATE, DFN, ORD, ORD+1, ORD+5, ORD+6, ORD+18, PRINT+5, PRINT+8, PRINT+32 , PRINT+33, PRINT+34, PRINT+40, PRINT+41, PRINT+51, PRINT+53, PRINT+54 |
^TMP("PSOCNT" | EN+3!, END!, PRINT+13* |
^TMP("PSONV" | EN+3!, ORD+20*, NEXT+3, NEXT+4, NEXT+5, NEXT+6, NEXT+7, NEXT+8, NEXT+9, NEXT+12 , NEXT+13, END! |
Name | Line Occurrences |
---|---|
$$DT | PRINT+23, PRINT+26, PRINT+29, HDR+7 |
$$SRT | HDR+6 |
CLOSE | ORD+8, NEXT+14 |
DATE | DFN, DFN+1 |
DFN | DFN+3, ORD |
HDR | ORD+9, NEXT+10, NDTP, PRINT+6, PRINT+35, PRINT+38, PRINT+45, PRINT+57 |
NDTP | NEXT+1 |
NEXT | DATE |
ORD | ORD+2, ORD+3, ORD+4, ORD+5, ORD+6, ORD+8, ORD+21 |
ORD+10, NEXT+11 | |
TEXT | PRINT+36, PRINT+42, PRINT+55 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
C | EN~ |
CLNAM | PRINT+2~, PRINT+27*, PRINT+28 |
DATE | EN~, EN+7*, DATE*, DFN, ORD, ORD+19 |
DFN | EN~, EN+7*, DFN*, DFN+1*, DFN+3, ORD, ORD+1, ORD+5, ORD+6, ORD+10 , ORD+12, ORD+18, ORD+20, NEXT+2*, NEXT+8*, NEXT+9, NEXT+11, PRINT~, PRINT+5, PRINT+8 , PRINT+13, PRINT+32, PRINT+33, PRINT+34, PRINT+40, PRINT+41, PRINT+51, PRINT+53, PRINT+54 |
DGNAM | PRINT+2~, PRINT+9*, PRINT+16 |
DIR | HDR+1~ |
DIR("A" | HDR+3* |
DIR(0 | HDR+3* |
DIRUT | EN+7!, ORD+8, ORD+9, ORD+10, NEXT+3, NEXT+4, NEXT+5, NEXT+6, NEXT+7, NEXT+8 , NEXT+9, NEXT+10, NEXT+12, NEXT+13, NEXT+14, PRINT+6, PRINT+33, PRINT+35, PRINT+37, PRINT+38 , PRINT+39, PRINT+44, PRINT+45, PRINT+46, PRINT+48, PRINT+51, PRINT+56, PRINT+57, HDR+2 |
DT | DT~, DT+1, DT+2, DT+3, DT+4 |
FLD | SRT+3~, SRT+6* |
I | EN~, ORD+16*, ORD+17, ORD+19, PRINT+2~, PRINT+33*, PRINT+34, PRINT+36, PRINT+40, PRINT+41 , PRINT+53*, PRINT+54, SRT+3~, SRT+5*, SRT+6, SRT+7 |
IO | EN+3 |
IOF | HDR+5 |
IOSL | ORD+9, NEXT+10, PRINT+35, PRINT+38, PRINT+45, PRINT+57 |
IOST | HDR+2 |
J | EN~, PRINT+2~, PRINT+40*, PRINT+41, TEXT+1~, TEXT+2*, TEXT+3 |
K | PRINT+2~, PRINT+37*, PRINT+38, PRINT+44*, PRINT+45, PRINT+56*, PRINT+57, TEXT+1~*, TEXT+3*, TEXT+4 |
L | TEXT~, TEXT+3 |
OCK | EN+1~, ORD+18*, ORD+19, PRINT+3~, PRINT+34* |
OCNT | EN~, EN+7*, NDTP+4, PRINT+59* |
OI | PRINT+2~ |
OINAM | EN~, ORD+13*, ORD+14*, ORD+19, PRINT+2~, PRINT+8*, PRINT+15 |
OIX | PRINT+2~ |
OK | EN+1~ |
ORD | EN~, EN+7*, ORD*, ORD+1, ORD+5, ORD+6, ORD+10, ORD+18, ORD+20, NEXT+2* , NEXT+9*, NEXT+11, PRINT~, PRINT+5, PRINT+8, PRINT+32, PRINT+33, PRINT+34, PRINT+40, PRINT+41 , PRINT+51, PRINT+53, PRINT+54 |
PAG | EN~, PRINT+6, HDR+1*, HDR+2, HDR+5 |
PCNT | EN~, EN+7*, NDTP+3, PRINT+13* |
PNAM | EN~, ORD+12*, ORD+14*, ORD+19, PRINT+2~, PRINT+10*, PRINT+11 |
PRTD | EN~, EN+7*, NDTP, NDTP+1, PRINT+59* |
PRV | PRINT+2~, PRINT+34*, PRINT+47 |
>> PSOAOI | ORD+2 |
>> PSOAPT | DFN, DFN+1 |
>> PSOED | DATE, HDR+7 |
>> PSOOC | ORD+5, ORD+6 |
>> PSOOI( | ORD+2 |
>> PSOPT( | DFN+1 |
>> PSOSD | EN+7, HDR+7 |
>> PSOSRT | ORD+8, ORD+12, ORD+13, ORD+16, ORD+17, NEXT+1, HDR+6 |
>> PSOST | ORD+3, ORD+4 |
PSSN | PRINT+2~, PRINT+10*, PRINT+11 |
S1 | EN~, ORD+15*, ORD+20, NEXT+2*, NEXT+3*, NEXT+4, NEXT+5, NEXT+6, NEXT+7, NEXT+8 , NEXT+9, NEXT+12, NEXT+13 |
S2 | EN~, ORD+15*, ORD+20, NEXT+2*, NEXT+4*, NEXT+5, NEXT+6, NEXT+7, NEXT+8, NEXT+9 , NEXT+12 |
S3 | EN~, ORD+15*, ORD+20, NEXT+2*, NEXT+5*, NEXT+6, NEXT+7, NEXT+8, NEXT+9 |
S4 | EN~, ORD+15*, ORD+20, NEXT+2*, NEXT+6*, NEXT+7, NEXT+8, NEXT+9 |
S5 | EN~, ORD+15*, ORD+20, NEXT+2*, NEXT+7*, NEXT+8, NEXT+9 |
SCH | PRINT+2~, PRINT+19*, PRINT+21, PRINT+22 |
SP1 | EN+1~, EN+4*, DATE+1, NEXT+13, NDTP+2 |
SP2 | EN+1~, EN+4*, NEXT+12 |
SPF | EN+1~, EN+4*, DATE+1, ORD+10* |
ST | SRT~, SRT+5, SRT+6, SRT+7*, SRT+8 |
STR | PRINT+3~, PRINT+34*, PRINT+36, PRINT+41*, PRINT+42, PRINT+54*, PRINT+55, TEXT~, TEXT+2, TEXT+3 , SRT+3~, SRT+4*, SRT+6 |
STS | EN+1~, ORD+17*, ORD+19 |
SUB | EN+1~ |
TEXT | TEXT~ |
TEXT( | TEXT+3, TEXT+4* |
TEXT("" | TEXT+1 |
TXT | PRINT+2~, PRINT+36!, PRINT+39!, PRINT+42, PRINT+43, PRINT+52!, PRINT+55 |
TXT( | PRINT+37, PRINT+38, PRINT+44, PRINT+45, PRINT+56, PRINT+57 |
VADM | PRINT+2~ |
VADM(1 | PRINT+10 |
VADM(2 | PRINT+10 |
VAPA | PRINT+2~ |
VAPA(8 | PRINT+12 |
WORD | TEXT+1~, TEXT+3*, TEXT+4 |
X | EN~, PRINT+2~, PRINT+18*, PRINT+19, HDR+1~, HDR+9*, SRT+3~, SRT+6*, SRT+7 |
XX | EN~, ORD+1*, ORD+2, ORD+3, ORD+4, ORD+13, ORD+17, PRINT+2~, PRINT+8*, PRINT+9 , PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25, PRINT+26 , PRINT+27, PRINT+28, PRINT+29 |
Y | EN~, ORD+17*, ORD+19 |
Z | PRINT+2~ |
>> ZTQUEUED | CLOSE |
>> ZTREQ | CLOSE* |