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: APSQCK1

Package: IHS Changes To Pharmacy

Routine: APSQCK1


Information

APSQCK1 ;IHS/ASDS/ENM/POC - CONT OF APSQCK NON FORMULARY CALL [ 06/07/2001 10:56 AM ]

Source Information

Source file <APSQCK1.m>

Call Graph

Call Graph Total: 17

Package Total Call Graph
VA Fileman 7 HLP^DDSUTL  $$GET^DDSVALF  MSG^DIALOG  (,$$FIND1,FIND)^DIC  ^DIE  ^DIK  ^DIR  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ENDR^%ZISS  ^%ZTLOAD  
IHS VA Utilities 3 VIEWR^XBLM  EN^XBNEW  EN^XBVK  
MailMan 3 DEST^XMA21  ^XMB  ^XMD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Pharmacy 1 APSQCK  

Entry Points

Name Comments DBIA/ICR reference
VAL44 ;EP VALIDATION OF SCREENMAN APSQ NF PHARMACIST ...
VAL33 ;EP VALIDATION OF SCREENMAN APSQ NF PHARMACIST ...
NFRXEND ;FINISH
HDR
STOP
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
PRT1 ;EP
HDR2
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
1 ;DELETE THE DRUG
PRT ;PRINT IT
3 ;DO BOTH 1 AND 2
2 ;DO AN INTERVENTION
4 ;DO NOTHING
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
XMB ;SEND TO WHO EVER
RXSET1
WRITE ;
ASK ;ASK WHAT IS TO BE DONE
BULL2 ;ADD ANY EXTRA PEOPLE TO BULLETIN
LOOK ;EP LOOK UP AN ENTRY AND DO SOMETHING
HDR1
EXIT ;CLEAN UP TIME
RXSET ;EP SET THE REFERENCE RX FIELD

External References

Name Field # of Occurrence
^%ZIS PRT+1
HOME^%ZIS PRT+2
^%ZISC PRT1+8
ENDR^%ZISS ASK+2
^%ZTLOAD PRT+2
HLP^DDSUTL VAL1+5, VAL1+13, VAL33+6, VAL44+6
$$GET^DDSVALF VAL1+2, VAL2+1, VAL3+1, VAL33+1, VAL4+1, VAL44+1
MSG^DIALOG CK+14
^DIC LOOK+6, DIC+4
$$FIND1^DIC DIC+8
FIND^DIC BULL+7
^DIE VAL3+3, VAL4+3, RXSET1+7, RXSETK+4
^DIK VAL2+2
^DIR PRINT+6, ASK+13
VIEWR^XBLM BROWSE+4
EN^XBNEW WRITE+3
EN^XBVK CK+16, CK+26, NFRXEND+4, STOP
DEST^XMA21 DIC+11
^XMB BULL1+2
^XMD XMB+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"YOU MAY LOOK UP ENTRIES BY CONTROL #, PATIENT, DRUG, OR DATE"
  • Line Location: LOOK+2
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
Function Call: WRITE
  • Prompt: !,"CHECKING NON FORMULARY INFORMATION...",!
  • Line Location: RX+3
Function Call: WRITE
  • Prompt: !,"NO NON FORMULARY REQUESTS EXISTS FOR THIS DRUG"
  • Line Location: RX+9
Function Call: WRITE
  • Prompt: !,"NON FORMULARY REQUEST "_$P(^APSQNF(NFRXIEN,0),U)_" EXISTS"
  • Line Location: RX+11
Function Call: WRITE
  • Prompt: !,"RX# "_+$G(^PSRX(NFRXREF,0))_" HAS BEEN FILLED PREVIOUSLY USING THIS NON FORMULARY REQUEST"
  • Line Location: RX+14
Function Call: WRITE
  • Prompt: !,"THIS NON FORMULARY REQUEST STATUS IS "_$S(NFRXAPP=1:"APPROVED",NFRXAPP=0:"NOT APPROVED",1:"NOT ACTED UPON YET")
  • Line Location: RX+15
Function Call: WRITE
  • Prompt: !
  • Line Location: NFRXEND+1
Function Call: WRITE
  • Prompt: IORVON
  • Condition for execution: I="MESS"
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,*7,AZO(I)
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: IORVOFF
  • Condition for execution: I="MESS"
  • Line Location: ASK+4
Routine Call
  • %ZIS
  • Line Location:
    • PRT+2
Routine Call
  • DIE
  • Line Location:
    • VAL3+3
    • VAL4+3
    • RXSET1+7
    • RXSETK+4
Routine Call
  • DIALOG
  • Line Location:
    • CK+14
Routine Call
  • %ZIS
  • Line Location:
    • PRT+1
Routine Call
  • DIC
  • Line Location:
    • DIC+8
Routine Call
  • DIC
  • Line Location:
    • LOOK+6
    • DIC+4
Routine Call
  • DIC
  • Line Location:
    • BULL+7
Routine Call
  • DIR
  • Line Location:
    • PRINT+6
    • ASK+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(20 - [#20] GET^DDSVALF
^VA(200 - [#200] Classic Fileman Calls
^XMB(3.6 - [#3.6] FIND1^DIC
^DIC(7 - [#7] GET^DDSVALF
^DIC(8 - [#8] GET^DDSVALF
^APSQNF - [#9009035.1] Classic Fileman Calls,  FIND^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APSQNF - [#9009035.1] CK+22, BROWSE+2, HDR2, RX+11, RX+12, RXSET1+7
^APSQNF("M" CK+13, CK+20, RX+8, RX+10, RXSET1+4
^APSQNF("RX" RXSETK+3
^DIC(4 - [#4] XMB+2
^DPT - [#2] BROWSE+2, HDR2
^PSDRUG - [#50] RX+5, RXSET1+1
^PSRX - [#52] RX+14, RXSET1
^TMP("DDS" CK+4
^UTILITY("DIQ1" WRITE+1!, WRITE+5

Label References

Name Line Occurrences
1 3+1
2 3+1
@( LOOK+11, PRT1+3, ASK+17
ASK NFRXEND+2
BROWSE PRINT+10
BULL1 BULL+10
BULL2 BULL+9
DIC DIC+5
EXIT LOOK+10, LOOK+12, PRT+1
HDR PRT1+6
NFRXEND RX+9, RX+11
PRT PRINT+9
RXSET1 RXSET+4
STOP RXSET+4, RXSETK+5
WRITE LOOK+11

Naked Globals

Name Field # of Occurrence
^( CK+20, RXSET1+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS PRT+1*
ADD EXIT+5!
>> APSQ("CLOSED" CK+22*, CK+23
>> APSQ("DRUG" CK+1!, CK+9*, CK+10, CK+13, CK+20
>> APSQ("DT" CK+1!, CK+11*, CK+12, CK+13, CK+20*
>> APSQ("PAT" CK+1!, CK+6*, CK+7, CK+13, CK+20
>> APSQ("QUIT" CK+19*, CK+20, CK+24*
>> APSQ("RECIEN" CK+20*, CK+21, CK+22
>> APSQC CK+4*
>> APSQC(1 CK+11
>> APSQC(2 CK+6
>> ARRAY PRT1+4*, PRT1+5
>> ARRAY( WRITE+11*, WRITE+12*, WRITE+14*, PRT1+4, PRT1+5
>> AZO( ASK+4
BULLETIN BULL~, BULL1+1, DIC+8
CHECK VAL1+2*, VAL1+3, VAL1+9, VAL1+18!
CNT EXIT+5!
DA LOOK+11*, WRITE+7*, WRITE+8, WRITE+10, WRITE+13, WRITE+14, EXIT+4!, VAL2+4!, VAL3+4!, VAL4+4!
, BROWSE+2, HDR2, RXSET1+7*, RXSETK+4*
>> DD WRITE+5*
>> DD( WRITE+7, WRITE+8, WRITE+10, WRITE+13, WRITE+14
>> DD("" WRITE+6
>> DDS CK+4
>> DDSBR VAL1+15*, VAL33+8*, VAL44+8*
DDSCHANG EXIT+4!
>> DDSDA CK+4
DDSERROR CK+13*, CK+16, CK+24*, VAL1+6!, VAL1+16*, VAL33+9*, VAL44+9*
DDSFILE CK+4, EXIT+4!
DDSPARM EXIT+4!
DDSSAVE EXIT+4!
>> DDSY CK+9
DEL EXIT+5!
>> DGI 1+1*, 2+1*
DIC LOOK+3!, LOOK+4*, DIC+1*, DIC+6!
DIC("A" LOOK+5*, DIC+3*
DIC("S" DIC+2*
DIC(0 LOOK+4*, DIC*
DIE VAL3+3*, VAL3+4!, VAL4+3*, VAL4+4!, RXSET1+7*!, RXSETK+4*!
DIK VAL2+2*, VAL2+4!
>> DIQ(0 WRITE+2*
DIR PRINT+1!, PRINT+7!, ASK+16!
DIR("A" PRINT+3*, ASK+6*, ASK+7*, ASK+8*, ASK+9*, ASK+10*
DIR("B" PRINT+4*, ASK+11*
DIR(0 PRINT+2*, ASK+12*
DIROUT PRINT+8, ASK+15, ASK+16!
DIRUT PRINT+8, ASK+15, ASK+16!
DISP EXIT+3!
DR WRITE+2*, EXIT+4!, VAL3+3*, VAL4+3*, RXSET1+7*, RXSETK+4*
DTIME HDR
DTOUT LOOK+10, PRINT+8, ASK+16!
DUOUT LOOK+10, PRINT+8, ASK+16!
DUZ XMB+3, EXIT+1*
DUZ(2 XMB+2
DUZSAVE XMB+3, EXIT+1!
>> END PRT1+1*, PRT1+4, HDR*
EXIT EXIT+2!
>> FIELD WRITE+8*, WRITE+9, WRITE+10, WRITE+11, WRITE+12, WRITE+13, WRITE+14
>> FILE WRITE+6*, WRITE+7, WRITE+8, WRITE+9, WRITE+10, WRITE+13, WRITE+14
FROM EXIT+5!
GET EXIT+5!
GET("DILIST" BULL+8
GOTIT BULL~, BULL+6*, BULL+7
HELP VAL1+5, VAL1+13, VAL1+14!, VAL1+18!, VAL33+6, VAL33+7!, VAL44+6, VAL44+7!
HELP(1 VAL1+4*, VAL1+10*, VAL33+3*, VAL44+3*
HELP(2 VAL1+11*, VAL33+4*, VAL44+4*
HELP(3 VAL1+12*, VAL33+5*, VAL44+5*
HIT EXIT+5!
I WRITE+8*, EXIT+5!, ASK+4*
IEN EXIT+5!
IO PRT1+2
IO("Q" PRT+2!
IOF HDR1
IOM HDR2+2
>> IORVOFF ASK+4
>> IORVON ASK+4
IOSL PRT1+6
IOST PRT1+3, HDR
>> J WRITE+13*, WRITE+14
>> JOB CK+2*, CK+4
KILL VAL2+1*, VAL2+2, VAL3+1*, VAL3+2, VAL3+6!, VAL33+1*, VAL33+2, VAL33+11!, VAL4+1*, VAL4+2
, VAL4+6!, VAL44+1*, VAL44+2, VAL44+11!, RXSETK+3*, RXSETK+4
>> LAST WRITE+13*, WRITE+14
>> LENG HDR2+1*, HDR2+2
>> LOOK LOOK+11
MORE EXIT+5!
>> MSG("DIHELP" CK+14*
>> NAME WRITE+9*, WRITE+10*, WRITE+11
>> NFRXAPP RX+13*, RX+15
>> NFRXDATE RX+8*, RX+9, RX+10, RXSET1+4*, RXSET1+5
>> NFRXDRUG RX+6*, RX+8, RX+10, RXSET1*, RXSET1+1, RXSET1+2*, RXSET1+4
>> NFRXIEN RX+10*, RX+11, RX+12, RXSET1, RXSET1+7, RXSETK+3
>> NFRXNON RXSET1+4*, RXSET1+6, RXSET1+7
>> NFRXPT RX+7*, RX+8, RX+10, RXSET1+3*, RXSET1+4
>> NFRXREF RX+13*, RX+14
>> NFRXSEC RX+12*, RX+13
NUM EXIT+5!
>> NUMPT PRT1+1*
OUT EXIT+3!
>> PAGE PRT1+1*, HDR2+2*
PERSON EXIT+5!
>> POP PRT+1
PROV PASS~, PASS+1
>> PSODFN RX+4, RX+7, RXSET1+3
>> PSODRUG("IEN" RX+4, RX+5, RX+6
>> PSORX("DFLG" 1+1*
>> PSORX("INTERVENE" 2+1*
SCR EXIT+5!
SEQ EXIT+5!
>> TOP BROWSE+2*, BROWSE+4, HDR2*, HDR2+1, HDR2+2
U CK+22, XMB+2, BROWSE+2, HDR2, RX+5, RX+11, RX+13, RXSET1, RXSET1+1, RXSET1+7
>> X PRINT+9, PRINT+10, HDR*, ASK+2*
XMB EXIT+7!, BULL+8*, BULL1+1*
>> XMDUN DIC+10*
XMDUZ XMB+3*, EXIT+7!, BULL1*, DIC+9*
>> XMSUB XMB+2*
>> XMTEXT XMB+1*
XMY BULL~, BULL1+3!
XMY( DIC+5*
>> XMZ DIC+8*
>> Y LOOK+10, LOOK+11, DIC+5, ASK+15*, ASK+17
>> 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