PSODIR5 ;DAL/JCH - ASK FOR DEA RX DATA ;11/08/21 4:03pm
Source file <PSODIR5.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
FAILOVER(DEARY,VA,SDEA) | ;check failover flag, if expired DEA, use VA schedule
|
|
DISP3(IEN,ARYSEL,PSORX) | ;displays dea#,detox#,address
|
|
USEVA(PROVIEN,VA,PSORX) | ;Use VA# only when provider has no dea#
|
|
WM1 | ;warning message
|
|
WM2 | ; Warning message
|
|
WM3(SCHED) | ; Warning message
|
|
INDISP(PROVIEN,DEARY,PSORX) | ;displays institutional dea#va#, address of institution
|
|
DEALIST(RET,NPIEN,SDEA) | ||
DISPONLY(DEARY) | ; Display only
|
|
SLDEA(PROVIEN,PSORX,DFLTDEA,PSODRIEN) | ;
|
|
DDIR(DCNT,DFLT) | ;
|
|
VAPROV(PROVIEN) | ; Is PROVIEN a VA Provider? (NON-VA PRESCRIBER=NO, PROVIDER TYPE=FULL TIME, PART TIME, or HOUSE STAFF)
; INPUT: PROVIEN = Provider DUZ |
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
200.5321 | GET1^DIQ, GETS^DIQ |
^DIC(4 - [#4] | GET1^DIQ |
^PSDRUG - [#50] | GET1^DIQ |
^XTV(8991.9 - [#8991.9] | Classic Fileman Calls, FIELD^DID, GET1^DIQ, GETS^DIQ |