©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
ACRFVLK ;IHS/OIRM/DSD/AEF - VENDOR FILE LOOKUP ; [ 03/28/2007 10:56 AM ]
Source file <ACRFVLK.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 5 | ^DDS HLP^DDSUTL ^DIC $$GET1^DIQ ^DIR |
| Commitment Register | 2 | $$DUNS^ACRFVLK (PAUSE,WARNING)^ACRFWARN |
| IHS VA Utilities | 2 | ^XBFMK ^XBKVAR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EDITAUTH(X) | ; EP; Check user's Vendor Edit Authority in ARMS USER File
|
|
| DISP | ;EP - If not new entry, display Current Vendor data.
|
|
| WARN2 | ;EP; WARNING THAT VENDOR IS INACTIVE, DUNS IS MISSING OR BAD
|
|
| EDIT | ; Edit which vendor data
|
|
| DUNS(X) | ; EP;----- RETURNS DUNN AND BRADSTREET NUMBER
|
|
| DUNSCHK | ; EP - Check to see if there is a DUNS #
|
|
| CHKVNDR | ; EP - Check if vendor is inactive, DUNS exists, and DUNS is 9-13 long
|
|
| SUFCHK | ;CHECK EIN SUFFIX ACR*2.1*21.03 IM22241
|
|
| WARN | ;EP; IN SM WARNING THAT VENDOR IS INACTIVE, DUNS IS MISSING OR BAD
|
|
| AI | ;EP - INVOKE SCREEN TO ALLOW ACTIVATION/INACTIVATION OF VENDOR
|
|
| ADD | ; EP - Add or Edit Vendor data.
|
|
| ASKVND | ; Ask / Lookup Vendor
; Only allow Vendor addition if Vendor Edit Authority is F, C, or A. |
|
| CHKACTV | ; Check to see if Vendor has been inactivated
|
|
| ACT | ; EP - Check to see if Vendor has been inactivated
|
|
| MSG | ;EP - Message edit authority denied
|
|
| SCREEN(ACRVND,DR) | ; EP; call screen man
; pass in DR ; pass in ACRVND |
|
| EINCHK | ;CHECK FOR VENDORS WITH THE SAME EIN NO ACR*2.1*21.03 IM22241
|
| Name | Field # of Occurrence |
|---|---|
| $$DUNS^ACRFVLK | DUNSCHK+4 |
| PAUSE^ACRFWARN | WARN2+7 |
| WARNING^ACRFWARN | WARN2+2 |
| ^DDS | SCREEN+7 |
| HLP^DDSUTL | ACT+6, DUNSCHK+9, DUNSCHK+15, EINCHK+7, EINCHK+8, EINCHK+9, SUFCHK+9, SUFCHK+10, SUFCHK+19, SUFCHK+20 , SUFCHK+21, SUFCHK+22 |
| ^DIC | ASKVND+11 |
| $$GET1^DIQ | EDITAUTH+2, CHKACTV+2, CHKVNDR+3, ACT+1, ACT+2, DUNSCHK+5, EINCHK+5, SUFCHK+2, SUFCHK+13, SUFCHK+17 |
| ^DIR | EDIT+13 |
| ^XBFMK | EDIT+2 |
| ^XBKVAR | ADD+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^ACRAU - [#9002185.3] | GET1^DIQ |
| ^AUTTVNDR - [#9999999.11] | Classic Fileman Calls, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUTTVNDR - [#9999999.11] | DUNS+6 |
| ^AUTTVNDR("E" | EINCHK+2, EINCHK+4, SUFCHK+15 |
| Name | Line Occurrences |
|---|---|
| $$EDITAUTH | ADD+4, AI+1 |
| @( | CHKVNDR+6 |
| ACT | CHKVNDR+4 |
| ASKVND | ADD+6, AI+2 |
| CHKACTV | ADD+13 |
| DISP | ADD+12 |
| DUNSCHK | ADD+14, CHKVNDR+5 |
| EDIT | ADD+18 |
| MSG | ADD+16, AI+4 |
| SCREEN | ADD+10, DISP+2, CHKACTV+6, MSG+3, EDIT+17, EDIT+20, EDIT+29, AI+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACRACTV | CHKACTV+2*, CHKACTV+3, CHKVNDR+1!, CHKVNDR+7!, ACT+2*, ACT+3 |
| ACRDERR | CHKVNDR+2!, DUNSCHK+3!, DUNSCHK+8*, DUNSCHK+9, DUNSCHK+14*, DUNSCHK+15, WARN+1, WARN+2, WARN+3, WARN2+1 , WARN2+3, WARN2+4 |
| ACRDIC | ADD+2~ |
| ACRDUNS | CHKVNDR+1!, CHKVNDR+7!, DUNSCHK+4*, DUNSCHK+6, DUNSCHK+11, DUNSCHK+12 |
| >> ACREIN | SUFCHK+2*, SUFCHK+3* |
| >> ACREINNW | SUFCHK+2, SUFCHK+3, SUFCHK+13, SUFCHK+14 |
| ACRINACT | CHKVNDR+1! |
| ACRNODUN | CHKVNDR+1! |
| >> ACROUT | WARN+4*, WARN2+8* |
| >> ACRQUIT | ADD+3*, ADD+5, ADD+7, ADD+11, ADD+15, ADD+17, ADD+18, ASKVND+12*, CHKACTV+1*, CHKACTV+4* , MSG+1*, EDIT+14*, WARN+4*, WARN2+8*, AI+3 |
| ACRSIZE | CHKVNDR+1! |
| ACRSUFF | SUFCHK+1!, SUFCHK+6* |
| ACRVAUTH | ADD+2~, ADD+4*, ADD+16, ASKVND+7, EDIT+15, EDIT+18, AI+1*, AI+4 |
| ACRVDUP | EINCHK+1*, EINCHK+5*, EINCHK+7, EINCHK+11!, SUFCHK+12*, SUFCHK+17*, SUFCHK+19, SUFCHK+24! |
| ACRVEIN | EINCHK+1*, EINCHK+2*, EINCHK+3, EINCHK+4, EINCHK+11!, SUFCHK+12*, SUFCHK+13*, SUFCHK+14*, SUFCHK+15, SUFCHK+24! |
| ACRVERR | CHKVNDR+1!, ACT+5*, ACT+6, WARN+1, WARN+3, WARN2+1, WARN2+4 |
| ACRVIEN | EINCHK+1*, EINCHK+4*, EINCHK+5, SUFCHK+12*, SUFCHK+15*, SUFCHK+16, SUFCHK+17, SUFCHK+24! |
| >> ACRVNAME | CHKVNDR+3*, ACT+1*, ACT+5, DUNSCHK+5*, DUNSCHK+8, DUNSCHK+14 |
| ACRVND | ADD+2~, ADD+8, ADD+10, ADD+11, ASKVND+13*, DISP+2, CHKACTV+2, CHKACTV+6, MSG+3, EDIT+17 , EDIT+20, EDIT+29, SCREEN~, SCREEN+5, CHKVNDR+3, ACT+1, ACT+2, DUNSCHK+4, DUNSCHK+5, AI+6 |
| ACRVND(0 | ASKVND+14* |
| ACRVNDR | CHKVNDR+1!, CHKVNDR+7! |
| >> ACRWARN | CHKVNDR+6, DUNSCHK+1*, DUNSCHK+2* |
| D | ASKVND+3! |
| DA | ASKVND+3!, EDIT+1!, SCREEN+4!, SCREEN+5*, SCREEN+8!, SUFCHK+2, SUFCHK+13, SUFCHK+16 |
| DD | ASKVND+3! |
| >> DDSBR | EINCHK+10*, SUFCHK+23* |
| DDSFILE | SCREEN+4!, SCREEN+6*, SCREEN+8! |
| >> DDSREFT | ACT+6, DUNSCHK+2, DUNSCHK+9, DUNSCHK+15 |
| DIC | ASKVND+3!, ASKVND+4* |
| DIC("A" | ASKVND+6*, ASKVND+9* |
| DIC(0 | ASKVND+5*, ASKVND+8* |
| DINUM | ASKVND+3! |
| DIR | EDIT+1! |
| DIR("?" | EDIT+11* |
| DIR("A" | EDIT+10* |
| DIR(0 | EDIT+3*, EDIT+4*, EDIT+5*, EDIT+6*, EDIT+7*, EDIT+8*, EDIT+9* |
| DLAYGO | ASKVND+3!, ASKVND+10* |
| DO | ASKVND+3! |
| DR | ADD+9*, ADD+10, ASKVND+3!, DISP+1*, DISP+2, CHKACTV+5*, CHKACTV+6, MSG+2*, MSG+3, EDIT+1! , EDIT+16*, EDIT+17, EDIT+19*, EDIT+20, EDIT+21*, EDIT+22*, EDIT+23*, EDIT+24*, EDIT+25*, EDIT+26* , EDIT+27*, EDIT+28*, EDIT+29, SCREEN~, SCREEN+8!, AI+5*, AI+6 |
| DUZ | ADD+4, AI+1 |
| IOF | ASKVND+2, SCREEN+3, SCREEN+9 |
| U | ADD+8, ADD+11, DUNS+6 |
| X | EDITAUTH~, EDITAUTH+1, EDITAUTH+2, ASKVND+3!, EDIT+1!, SCREEN+4!, SCREEN+8!, DUNS~, DUNS+6, EINCHK+3 , SUFCHK+5, SUFCHK+11, SUFCHK+13, SUFCHK+14 |
| Y | EDITAUTH+2*, EDITAUTH+3, ASKVND+3!, ASKVND+12, ASKVND+13, EDIT+1!, EDIT+14, EDIT+15, EDIT+18, EDIT+21 , EDIT+22, EDIT+23, EDIT+24, EDIT+25, EDIT+26, EDIT+27, SCREEN+4!, SCREEN+8!, DUNS+4~, DUNS+5* , DUNS+6*, DUNS+7 |
| Y(0 | ASKVND+14 |