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

Package: General Medical Record - Vitals

Routine: GMRVOREQ


Information

GMRVOREQ ;HIRMFO/MD,FT-QUICK ORDER PROTOCOL CREATION ;11/11/96 11:02

Source Information

Source file <GMRVOREQ.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; ENTRY TO CREATE QUICK ORDER PROTOCOL
ASK
LOCK
YNWAIT
DEF
QUIT ;
SETUP ; ASK USERS WHETHER TO ASK QUESTION OR STUFF ANSWER
DATE ; MAKE SURE THE DEFAULT ANSWERS ARE FM DATES
SCH ;ADD SCHEDULE
ASKDEF ;
ASK1
TEXT ;
UPDATE ; update existing entry
IT0 ; item text
ADDNEW ; add new entry

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"DO YOU WANT TO ADD "_X_" AS A QUICK ORDER PROTOCOL"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,$C(7),"SOMEONE ELSE IS ADDING QUICK ORDER PROTOCOLS,","WOULD YOU LIKE TO WAIT UNTIL THEY FINISH"
  • Line Location: YNWAIT+0
Function Call: WRITE
  • Prompt: !!,"These are the Vital Measurement Quick Order Questions:",!
  • Line Location: SETUP+7
Function Call: WRITE
  • Prompt: !,?3,Y_". ",$P($T(TEXT+Y),";",3)
  • Line Location: SETUP+7
Function Call: WRITE
  • Prompt: !!,$C(7),"An Admin. Schedule is required for Vital Measurement Quick Order Protocols!"
  • Line Location: SETUP+10
Function Call: WRITE
  • Prompt: !,"Choose one of the following:",!?5,"1. Ask "_GMRVQUES_"with a DEFAULT value",!,?5,"2. Automatically Enter "_GMRVQUES
  • Line Location: ASKDEF+1
Function Call: READ
  • Variable: GMRVX
  • Timeout: DTIME
  • Line Location: ASKDEF+2
Function Call: WRITE
  • Prompt: !,"Select 1 or 2: "
  • Line Location: ASKDEF+2
Function Call: WRITE
  • Prompt: !!?5,$C(7),"Enter '1' to ask question with default value.",!?11,"'2' to not ask the question and automatically enter the default.",!
  • Line Location: ASK1+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: !,"Enter default value: "_$S(ZX'="":$P(ZX,"~",ZX["~"+1)_"// ",1:"") R X:DTIME I '(Z>2),X["?"
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: *7,!,"Answer must be 3-100 characters in length"
  • Line Location: TEXT+4
Function Call: WRITE
  • Prompt: !!,"You changed the Administration Schedule to ",GMRVAS,!,"You should edit the ITEM TEXT.",!
  • Line Location: UPDATE+4
Function Call: WRITE
  • Prompt: !!,$C(7),"A Quick Order Protocol with an ITEM TEXT of ",!,Y," already exists.",!,"Please edit the ITEM TEXT value to make it unique.",!!
  • Line Location: IT0+4
Function Call: WRITE
  • Prompt: !!,$C(7),"A Quick Order Protocol with an ITEM TEXT of ",!,GMRVPROT("QUICK TEXT")," already exists.",!,"Please edit the ITEM TEXT value to make it unique.",!!
  • Line Location: ADDNEW+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call