Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APSQCK

Package: IHS Changes To Pharmacy

Routine: APSQCK


Information

APSQCK ;IHS/ASDS/ENM/POC - CALLS TO NON FORMULARY REQUEST [ 11/20/2001 2:36 PM ]

Source Information

Source file <APSQCK.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA Fileman 7 ^DDS  (,$$FIND1,FIND,LIST)^DIC  YN^DICN  ^DIE  ^DIK  EN^DIQ  ^DIR  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  SIG^XUSESIG  
IHS Changes To Pharmacy 2 (CK,LOOK,RX,RXSET,RXSETK,VAL1,VAL2,VAL3,VAL33,VAL4,VAL44)^APSQCK1  POST^APSQCK2  
MailMan 2 DEST^XMA21  ^XMB  
IHS VA Utilities 1 VIEWR^XBLM  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Changes To Pharmacy 2 APSQBEG  APSQFAS4  

Entry Points

Name Comments DBIA/ICR reference
VAL44 ;EP VALIDATION OF SCREENMAN APSQ NF PHARMACIST ...
VAL33 ;EP VALIDATION OF SCREENMAN APSQ NF PHARMACIST ...
HDR
LIST1
DIC
PRINT ;PRINT OR BROWSE A NON FORMULARY REQUEST
BULL(GOTIT,BULLETIN,XMY) ;SEND A BULLETIN GOTIT IS THE IEN OF APSQNF( AND BULLETIN IS NAME OF BULLETIN
DIR ;
PRT1 ;EP
HDR2
PTPROVA
PASS(PROV) ;EP CHECK IF THIS IS A VALID NEW PERSON TO LOOK AT THIS ENTRY
BROWSE ; BROWSE IT
RX ;EP COMES FROM PSODRG TO CHECK IF NON FORMULARY REQUEST FOR NF DRUG
PHAR ;EP ENTRY POINT TO EDIT NON FORMULARY REQUEST BY A PHARMACIST
PRT ;PRINT IT
EDIT2 ;EDIT A SCREEN FORM USING IEN FOR DA
RPROV ;EP ENTRY POINT TO ADD/EDIT NON FORMULARY REQUEST
RXSETK ;EP KILL PRESCRIPTION REFERENCE IF RX DELETED
VAL3 ;EP COME HERE FROM SCREENMAN TO SEE IF WANT TO DELETE RPH COMMENTS
VAL2 ;EP COME HERE FROM SCREENMAN TO SEE IF WANT TO DELETE FORM
VAL1 ;EP CALLED FROM SCREENMAN UPON VALIDATING THE FORM APSQ NF PHARMACIST
VAL4 ;EP COME HERE FROM SCREENMAN TO SEE IF WANT TO DELETE RPH COMMENTS
CK ;EP
BULL1
BULL2 ;ADD ANY EXTRA PEOPLE TO BULLETIN
ADD ;CALL DIC TO ADD AND THEN DDS TO EDIT
RPROVA ;LIST NON FORMULARY REQUEST BY REQ PROVIDER WITH APP PROVIDER=""
APROV ;EP ENTRY POINT TO APPROVE NON FORMULARY REQUEST
POST
FROMA
LOOK ;EP LOOK UP AN ENTRY AND DO SOMETHING
PTPROV ;EP ENTRY POINT TO ADD/EDIT NON FORMULARY REQUEST
EDIT ;EDIT A SCREEN FORM USING IEN FOR DA
HDR1
EDIT1 ;EDIT A SCREEN FORM USING IEN FOR DA
APROVA
EXIT ;CLEAN UP TIME
RXSET ;EP SET THE REFERENCE RX FIELD
PHARA

External References

Name Field # of Occurrence
^%ZIS PRT+1
HOME^%ZIS PRT+2
^%ZISC PRT1+8
^%ZTLOAD PRT+2
CK^APSQCK1 CK+1
LOOK^APSQCK1 LOOK+2
RX^APSQCK1 RX+3
RXSET^APSQCK1 RXSET+3
RXSETK^APSQCK1 RXSETK+3
VAL1^APSQCK1 VAL1+2
VAL2^APSQCK1 VAL2+1
VAL3^APSQCK1 VAL3+1
VAL33^APSQCK1 VAL33+1
VAL4^APSQCK1 VAL4+1
VAL44^APSQCK1 VAL44+1
POST^APSQCK2 POST
^DDS EDIT2+8, EDIT1+8, EDIT+9
^DIC ADD+7, DIC+4
$$FIND1^DIC DIC+8
FIND^DIC BULL+7
LIST^DIC LIST1+1
YN^DICN EDIT+23
^DIE FROMA+17
^DIK EDIT+16
EN^DIQ FROMA+3
^DIR FROMA+8, DIR+3, ADD+1, PRINT+6
VIEWR^XBLM BROWSE+4
DEST^XMA21 DIC+11
^XMB BULL1+2
SIG^XUSESIG APROV+5, PHAR+5, PTPROV+5, RPROV+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: APROV+1
Function Call: WRITE
  • Prompt: !!!
  • Line Location: APROV+2
Function Call: WRITE
  • Prompt: !,"YOU DON'T HAVE AUTHORIZATION TO WRITE MED ORDERS SO-BYE"
  • Line Location: APROV+3
Function Call: WRITE
  • Prompt: "ENTER YOUR ELECTRONIC SIGNATURE TO APPROVE A NON FORMULARY REQUESTS"
  • Line Location: APROV+4
Function Call: WRITE
  • Prompt: @IOF,!!,*7,*7,"SORRY THAT ELECTRONIC SIG NOT CORRECT!!"
  • Line Location: APROV+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FROMA+0
Function Call: WRITE
  • Prompt: !,"YOUR SIGNATURE HAS BEEN "_$S($D(DEL):"DELETED",1:"APPLIED")
  • Line Location: FROMA+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PHAR+1
Function Call: WRITE
  • Prompt: !!!
  • Line Location: PHAR+2
Function Call: WRITE
  • Prompt: !,"YOU MUST HAVE THE 'PSORPH' KEY TO CONTINUE-BYE"
  • Line Location: PHAR+3
Function Call: WRITE
  • Prompt: "ENTER YOUR ELECTRONIC SIGNATURE TO EDIT NON FORMULARY REQUESTS"
  • Line Location: PHAR+4
Function Call: WRITE
  • Prompt: @IOF,!!,*7,*7,"SORRY THAT ELECTRONIC SIG NOT CORRECT!!"
  • Line Location: PHAR+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PTPROV+1
Function Call: WRITE
  • Prompt: !!!
  • Line Location: PTPROV+2
Function Call: WRITE
  • Prompt: !,"YOU MUST HAVE THE 'PSORPH' KEY TO CONTINUE-BYE"
  • Line Location: PTPROV+3
Function Call: WRITE
  • Prompt: "ENTER YOUR ELECTRONIC SIGNATURE TO ADD/EDIT NON FORMULARY REQUESTS"
  • Line Location: PTPROV+4
Function Call: WRITE
  • Prompt: @IOF,!!,*7,*7,"SORRY THAT ELECTRONIC SIG NOT CORRECT!!"
  • Line Location: PTPROV+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RPROV+2
Function Call: WRITE
  • Prompt: !!!
  • Line Location: RPROV+3
Function Call: WRITE
  • Prompt: !,"YOU DON'T HAVE AUTHORIZATION TO WRITE MED ORDERS SO-BYE"
  • Line Location: RPROV+4
Function Call: WRITE
  • Prompt: "ENTER YOUR ELECTRONIC SIGNATURE TO ADD/EDIT NON FORMULARY REQUESTS"
  • Line Location: RPROV+5
Function Call: WRITE
  • Prompt: @IOF,!!,*7,*7,"SORRY THAT ELECTRONIC SIG NOT CORRECT!!"
  • Line Location: RPROV+7
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: LIST1+2
Function Call: WRITE
  • Prompt: !,DISP(I)
  • Line Location: LIST1+12
Function Call: WRITE
  • Prompt: "IT WAS CHANGED"
  • Line Location: EDIT+10
Function Call: WRITE
  • Prompt: !,"SOMETHING WRONG DID NOT ADD ENTRY"
  • Line Location: ADD+8
Function Call: WRITE
  • Prompt: !!,"BULLETIN BEING SENT",!!
  • Line Location: BULL+4
Function Call: WRITE
  • Prompt: !,"ADDITIONAL ENTRIES MAY BE ADDED TO THE BULLETIN"
  • Line Location: BULL2+1
Function Call: WRITE
  • Prompt: !,"REMEMBER ENTRIES HAVE BEEN ADDED FOR YOURSELF AND THE BULLETIN MAILGROUPS"
  • Line Location: BULL2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+5
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: ?(IOM-LENG/2),TOP,?(IOM-12),"PAGE: ",$J(PAGE,3)
  • Line Location: HDR2+2
Routine Call
  • DIC
  • Line Location:
    • LIST1+1
Routine Call
  • %ZIS
  • Line Location:
    • PRT+2
Routine Call
  • DIE
  • Line Location:
    • FROMA+17
Routine Call
  • DIC
  • Line Location:
    • DIC+8
Routine Call
  • DIR
  • Line Location:
    • FROMA+8
    • DIR+3
    • ADD+1
    • PRINT+6
Routine Call
  • %ZIS
  • Line Location:
    • PRT+1
Routine Call
  • DDS
  • Line Location:
    • EDIT2+8
    • EDIT1+8
    • EDIT+9
Routine Call
  • DIC
  • Line Location:
    • ADD+7
    • DIC+4
Routine Call
  • DIC
  • Line Location:
    • BULL+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^XMB(3.6 - [#3.6] FIND1^DIC
^APSQNF - [#9009035.1] Classic Fileman Calls,  FIND^DIC,  LIST^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APSQNF - [#9009035.1] FROMA+5, FROMA+6, FROMA+21, FROMA+22, EDIT2+14, EDIT2+15, EDIT1+14, EDIT1+15, EDIT+17, BROWSE+2
, HDR2
^APSQNF("9999999999" ADD+6
^DPT - [#2] BROWSE+2, HDR2
^VA(200 - [#200] APROV+3, RPROV+4
^XUSEC("APSQ NF APPROVING PROVIDER" EDIT+21
^XUSEC("PSORPH" PHAR+3, PTPROV+3

Label References

Name Line Occurrences
@( PRT1+3
ADD EDIT+2
APROVA APROVA+7, FROMA+12, FROMA+29
BROWSE PRINT+10
BULL FROMA+24, EDIT2+17, EDIT1+17, EDIT+19
BULL1 BULL+10
BULL2 BULL+9
DIC DIC+5
EDIT RPROVA+9
EDIT1 PHARA+6
EDIT2 PTPROVA+7
EXIT APROV+3, APROV+6, APROVA+7, FROMA+13, PHAR+3, PHAR+6, PTPROV+3, PTPROV+6, RPROV+4, RPROV+7
, RPROVA+8, RPROVA+10, EDIT2+4, EDIT2+21, EDIT1+4, EDIT1+21, EDIT+13, EDIT+25, PRT+1
FROMA EDIT+21
HDR PRT1+6
LIST1 APROVA+5, PHARA+6, PTPROVA+7, RPROVA+7, DIR+8
PHARA PHARA+7
PRT PRINT+9
PTPROVA PTPROVA+8
RPROVA RPROVA+16

Naked Globals

Name Field # of Occurrence
^(0 FROMA+21, EDIT2+14, EDIT1+14, EDIT+17
^(1 FROMA+22, EDIT2+15, EDIT1+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EDIT+21, EDIT+23*
>> %ZIS PRT+1*
ADD EDIT2+2*, EDIT1+2*, EDIT+1*, EDIT+2*, EDIT+16, EXIT+6!
>> ARRAY PRT1+4*, PRT1+5
>> ARRAY( PRT1+4, PRT1+5
BULLETIN BULL~, BULL1+1, DIC+8
CNT LIST1+4*, LIST1+6*, LIST1+8, LIST1+9, LIST1+11, EXIT+6!
DA FROMA+2*, FROMA+14*, EDIT2+2*, EDIT1+2*, EDIT+1*, EDIT+16*!, ADD+9*, EXIT+5!, BROWSE+2, HDR2
DDSCHANG EDIT2+13, EDIT1+13, EDIT+19, EXIT+5!
DDSFILE EDIT2+5*, EDIT1+5*, EDIT+6*, EXIT+5!
DDSPARM EDIT2+7*, EDIT1+7*, EDIT+8*, EXIT+5!
DDSSAVE EDIT2+13, EDIT1+13, EDIT+16, EDIT+19, EXIT+5!
DEL FROMA+5*, FROMA+6, FROMA+15, FROMA+18, FROMA+20, FROMA+25!, FROMA+27!, EXIT+6!
DIC FROMA+1!, FROMA+2*, FROMA+8!, ADD+5*, DIC+1*, DIC+6!
DIC("A" DIC+3*
DIC("S" DIC+2*
DIC(0 ADD+5*, DIC*
>> DIE FROMA+14*
DIK EDIT+16*!
>> DIQ(0 FROMA+2*
DIR FROMA+4!, DIR+3!, DIR+11!, ADD+1!, PRINT+1!, PRINT+7!
DIR("A" FROMA+6*, DIR+2*, ADD+1*, PRINT+3*
DIR("B" ADD+1*, PRINT+4*
DIR(0 FROMA+7*, DIR+1*, ADD+1*, PRINT+2*
>> DIROUT FROMA+13, PRINT+8
>> DIRUT FROMA+13, PRINT+8
DISP LIST1!, DIR+8!, EXIT+4!
DISP( LIST1+8*, LIST1+9*, LIST1+11*, LIST1+12*, DIR+10
DR FROMA+1!, FROMA+8!, FROMA+15*, FROMA+16*, EDIT2+6*, EDIT1+6*, EDIT+7*, EXIT+5!
DTIME HDR
>> DTOUT FROMA+13, DIR+5, PRINT+8
>> DUOUT FROMA+13, PRINT+8
DUZ APROV+3, APROVA*, FROMA+16, PHAR+3, PHARA*, PTPROV+3, PTPROVA*, RPROV+4, DIR+5*, EDIT2+1*
, EDIT1+1*, EDIT+21*, EXIT+1*
DUZSAVE APROVA*, FROMA+16, PHARA*, PTPROVA*, DIR+5!, EDIT2+1!, EDIT1+1!, EDIT+21!, EXIT+1!
>> END PRT1+1*, PRT1+4, HDR*
EXIT APROVA+7, RPROVA+8, RPROVA+10, DIR+5*, EDIT2+4, EDIT1+4, ADD+8*, EXIT+2!
EXIT1 EDIT+5!, ADD+2*, ADD+4!, EXIT+3!
FROM APROVA+1!, APROVA+4*, PHARA+3!, PHARA+5*, PTPROVA+3!, PTPROVA+4*, RPROVA+1!, RPROVA+4*, LIST1+1, EXIT+6!
GET EXIT+6!
GET("DILIST" BULL+8
GOTIT BULL~, BULL+6*, BULL+7
HIT APROVA+1!, APROVA+7, FROMA+2, FROMA+5, FROMA+6, FROMA+14, FROMA+20, FROMA+21, FROMA+22, FROMA+24
, FROMA+27!, DIR+10*, EDIT2+2, EDIT2+13, EDIT2+14, EDIT2+15, EDIT2+17, EDIT2+20!, EDIT1+2, EDIT1+13
, EDIT1+14, EDIT1+15, EDIT1+17, EDIT1+20!, EDIT+1, EDIT+16!, EDIT+17, EDIT+19, EDIT+21, EDIT+24!
, ADD+9*, EXIT+6!
I LIST1+10*, LIST1+11, LIST1+12*, DIR+8!, EXIT+6!
IEN LIST1+7*, LIST1+8, DIR+8!, EXIT+6!
IO PRT1+2
IO("Q" PRT+2!
IOF APROV+1, APROV+6, FROMA, PHAR+1, PHAR+6, PTPROV+1, PTPROV+6, RPROV+2, RPROV+7, LIST1+2
, HDR1
IOM HDR2+2
IOSL PRT1+6
IOST PRT1+3, HDR
J DIR+8!
KILL EDIT+13!
>> LENG HDR2+1*, HDR2+2
MORE LIST1+3*, DIR+8, EXIT+6!
NUM LIST1+3*, DIR+1, EXIT+6!
>> NUMPT PRT1+1*
OUT LIST1!, EXIT+4!
OUT("DILIST" LIST1+3, LIST1+5, LIST1+7, LIST1+10, LIST1+11
>> PAGE PRT1+1*, HDR2+2*
PERSON FROMA+24, EDIT2+17, EDIT1+17, EDIT+19, EXIT+6!
PERSON( FROMA+21*, FROMA+22*, EDIT2+14*, EDIT2+15*, EDIT1+14*, EDIT1+15*, EDIT+17*
>> POP PRT+1
PROV PASS~, PASS+1
RPROV FROMA+11!, FROMA+28!, EDIT+21*
SCR APROVA+4*, PHARA+5*, PTPROVA+6*, RPROVA+4*, EXIT+6!
SEQ LIST1+5*, LIST1+7, LIST1+10, LIST1+11, EXIT+6!
>> TOP BROWSE+2*, BROWSE+4, HDR2*, HDR2+1, HDR2+2
U FROMA+5, FROMA+6, FROMA+21, FROMA+22, LIST1+3, EDIT2+14, EDIT2+15, EDIT1+14, EDIT1+15, EDIT+17
, BROWSE+2, HDR2
>> X ADD+6*, PRINT+9, PRINT+10, HDR*
>> X1 APROV+6, PHAR+6, PTPROV+6, RPROV+7
XMB EXIT+8!, BULL+8*, BULL1+1*
>> XMDUN DIC+10*
XMDUZ EXIT+8!, BULL1*, DIC+9*
XMY BULL~, BULL1+3!
XMY( DIC+5*
>> XMZ DIC+8*
Y FROMA+11, FROMA+12, FROMA+18, PHARA+7, PTPROVA+8, DIR+5, DIR+8, DIR+10, DIR+11!, ADD+2
, ADD+8, ADD+9, DIC+5
>> ZTDESC PRT+3*
>> ZTRTN PRT+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All