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

Package: Outpatient Pharmacy

Routine: PSODLKP


Information

PSODLKP ;BHAM ISC/JrR - CREATE/EDIT DUE ANSWER FILE ENTRY ; 11/17/92 10:19

Source Information

Source file <PSODLKP.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 7 ^DIC  FILE^DICN  DQ^DICQ  ^DIE  (,IX)^DIK  Y^DIQ  ^DIR  
Outpatient Pharmacy 1 WRAP^PSODEDT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSOD CREATE ANSWER SHEET  PSODEDT  

Entry Points

Name Comments DBIA/ICR reference
DIE ;Enter here from PSODLKP,PSODEDT. Edit the DUE Answer sheet
CREATE ;Create a new DUE ANSWER entry
MOVE
QAIRE
CHECK ;CHECK FOR DRUG MATCH FROM ORDER ENTRY
CREATE1 ;Create a new DUE ANSWER entry
STUFF
EXIT
QUES2
ASK
NEW
CHECK1
GETQUES
LOOP
DELETE

External References

Name Field # of Occurrence
^DIC CREATE+5
FILE^DICN LOOP+1
DQ^DICQ STUFF+11
^DIE DIE+2, STUFF+4
^DIK DELETE+1
IX^DIK MOVE+4
Y^DIQ STUFF+5, STUFF+6
^DIR ASK+9, QAIRE
WRAP^PSODEDT ASK+1, QUES2+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: CREATE+1
Function Call: WRITE
  • Prompt: !,"SEQUENCE NUMBER: ",PSA
  • Line Location: CREATE+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: EXIT+4
Function Call: WRITE
  • Prompt: !,"Entry is being edited by another user. Try Later!"
  • Line Location: DIE+1
Function Call: WRITE
  • Prompt: $C(7),!,"Trying to Lock ^PS(50.0731,0)"
  • Line Location: NEW+0
Function Call: WRITE
  • Prompt: !,$C(7)," REQUIRED!"
  • Line Location: QAIRE+2
Function Call: WRITE
  • Prompt: !!," Sorry, that Questionnaire is incomplete.",!," Please review it before proceeding!"
  • Line Location: QAIRE+3
Function Call: WRITE
  • Prompt: !?5,"This Drug requires the following Active Questionnaires:"
  • Line Location: STUFF+10
Function Call: WRITE
  • Prompt: $C(7),!,"Deleting SEQUENCE NUMBER: ",PSA
  • Line Location: DELETE+0
Function Call: WRITE
  • Prompt: !!,?5,"Enter Y for YES, N for NO, U for UNKNOWN."
  • Line Location: QUES2+0
Function Call: WRITE
  • Prompt: !!,?5,"Enter a FREE TEXT answer from 1 to ",PSLEN," characters."
  • Line Location: QUES2+1
Function Call: WRITE
  • Prompt: !!,?5,"Enter a number between ",PSLO," and ",PSHI,!,?5,"with a maximum of ",PSDIG," decimal digits."
  • Line Location: QUES2+2
Function Call: WRITE
  • Prompt: !?5,"Enter '^' to bypass."
  • Line Location: QUES2+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: CREATE1+1
Function Call: WRITE
  • Prompt: !,"SEQUENCE NUMBER: ",PSA
  • Line Location: CREATE1+3
Routine Call
  • DIE
  • Line Location:
    • DIE+2
    • STUFF+4
Routine Call
  • DIC
  • Line Location:
    • CREATE+5
Routine Call
  • DIR
  • Line Location:
    • ASK+9
    • QAIRE

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.073 - [#50.073] Classic Fileman Calls
^PS(50.0731 - [#50.0731] Classic Fileman Calls
^PSRX - [#52] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DILOCKTM" DIE+1, NEW
^DD(50.0731 STUFF+5, STUFF+6
^PS(50.073 - [#50.073] QAIRE+3, MOVE+1, MOVE+2*, STUFF+7, STUFF+8, STUFF+9, CHECK+1, CHECK1
^PS(50.0731 - [#50.0731] DIE+1, DIE+2, GETQUES, ASK+8, ASK+12*, NEW, NEW+1, LOOP, LOOP+1, QAIRE+4*
, MOVE+1*, MOVE+2*
^PS(50.0732 - [#50.0732] GETQUES, MOVE+1*
^PSRX - [#52] CHECK+1, CHECK1, CREATE1+4

Label References

Name Line Occurrences
ASK GETQUES
CHECK1 CHECK+1
CREATE1 CHECK1
DELETE CREATE+6, CREATE+9, CREATE1+6
DIE CREATE+10, CREATE1+7
EXIT CREATE+6, CREATE+9, CHECK1, CREATE1+6
LOOP LOOP
NEW CREATE+2, NEW, LOOP+4, CREATE1+2
QAIRE CREATE+8, QAIRE+2, CREATE1+5
STUFF CREATE+8, CREATE1+5

Naked Globals

Name Field # of Occurrence
^( GETQUES, MOVE+1
^(0 GETQUES, QAIRE+3, MOVE+1, CREATE1+4
^(1 ASK+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C STUFF+5*, STUFF+6*
CNT EXIT!, STUFF+8*, STUFF+9
D EXIT!, STUFF+11*!
DA EXIT!, DIE+1*!, DIE+2!, QAIRE!, MOVE+4*!, STUFF+4*!, DELETE+1*
DD LOOP+1!
DIC CREATE+4*, CREATE+5!, EXIT!, LOOP+1!*, LOOP+2!, STUFF+11*!
DIC("A" CREATE+4*
DIC("DR" LOOP+1*
DIC("S" STUFF+11*
DIC(0 CREATE+4*, LOOP+1*, STUFF+11*
DIE EXIT!, DIE+1*!, DIE+2!, STUFF+4*!
DIK EXIT!, MOVE+4*!, DELETE+1*
DINUM EXIT!, LOOP+1*, LOOP+2!
DIR EXIT!, ASK+9!, QAIRE!
DIR("??" ASK+4*
DIR("A" ASK+4*
DIR("B" ASK+7!, ASK+8*, STUFF+9*
DIR(0 ASK+5*, ASK+6*, QAIRE*
DIROUT EXIT!
DIRUT EXIT!
DLAYGO EXIT!, LOOP+1*, LOOP+2!
DO LOOP+1!
DR EXIT!, DIE+1*!, DIE+2!, STUFF+4*!
DTOUT CREATE+6, EXIT!, ASK+10, QAIRE+1
DUOUT CREATE+6, EXIT!, ASK+10, QAIRE+1
DUZ LOOP+1
DZ EXIT+1!, STUFF+11*!
FLAG EXIT+1!, MOVE*, MOVE+1*, MOVE+2, MOVE+5!
I EXIT+1!, MOVE+1*
K EXIT+1!
L EXIT+1!, STUFF+8*
LL EXIT+1!, STUFF+8*, STUFF+9
PID EXIT+3!
PSA CREATE+3*, EXIT+1!, DIE+1!, GETQUES, ASK+8, ASK+12, QAIRE+4, MOVE+1, MOVE+2, MOVE+4
, STUFF+4, DELETE, DELETE+1, CREATE1+3*
PSDFN EXIT+1!, STUFF+3*, STUFF+4, STUFF+6
PSDIG EXIT+1!, ASK+3*, ASK+5, QUES2+2
PSDRUG EXIT+1!, STUFF+3*, STUFF+4, STUFF+5, STUFF+7, STUFF+8
PSHI EXIT+1!, ASK+2*, ASK+5, QUES2+2
PSKIP EXIT+3!, STUFF!, STUFF+2*
PSLEN EXIT+1!, ASK+3*, ASK+5, QUES2+1
PSLO EXIT+1!, ASK+2*, ASK+5, QUES2+2
PSMARG EXIT+1!
>> PSODDRG CHECK+1*, CHECK1
>> PSONEW("IRXN" CHECK+1, CHECK1
>> PSOSITE STUFF+4, CHECK1
>> PSOST CHECK1*
>> PSOSTE CHECK1*
PSPROV EXIT+2!, STUFF+3*, STUFF+4
PSQ EXIT+2!, GETQUES*, ASK+2, ASK+3
PSQA CREATE+9, EXIT+2!, QAIRE!, QAIRE+4*, MOVE+1, MOVE+2, CREATE1+6
PSQN EXIT+2!, GETQUES*, ASK+8, ASK+12
PSQNUM EXIT+2!, GETQUES*
PSQP EXIT+2!, GETQUES*
PSTXT EXIT+2!
PSTYP EXIT+2!, ASK+2*, ASK+5, QUES2, QUES2+1, QUES2+2
PSWRAP EXIT+2!
PZPOP EXIT+1!, GETQUES, ASK*, ASK+10*
RX0 CREATE+7*, EXIT+2!, STUFF+3, CHECK1*, CREATE1+4*
RXM CREATE+7*, EXIT+2!, CREATE1+4*
RXN CREATE+7*, EXIT+2!, STUFF+1, STUFF+4, CHECK1*, CREATE1+4
X EXIT+2!, ASK+11*, ASK+12, NEW+1*, LOOP*, LOOP+1
Y CREATE+3, CREATE+7, EXIT+2!, ASK+11, LOOP+3, QAIRE+2, QAIRE+3, QAIRE+4, STUFF+5*, STUFF+6*
, CREATE1+3
Y(0 CREATE+7, ASK+11
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