Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call