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

Package: Registration

Routine: DGQEMA1


Information

DGQEMA1 ;RWA/SLC-DHW/OKC-ALB/MIR - CONTINUATION OF EMBOSSER AUTO/QUEUE ; NOV 30 90

Source Information

Source file <DGQEMA1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 NOW^%DTC  ^DIC  YN^DICN  
Registration 2 IN^DGHELP  (END,NUM)^DGQEMA  
Kernel 1 ^%ZTLOAD  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DGQEMA  DGQEMP  

Entry Points

Name Comments DBIA/ICR reference
EN
FT
ERR
YN
EDIT ;Edit free text data card
FREEQ
NO ;no data card queued
FREE ;Print free text data card
QUEUE
PRINT ;queue data card
PEND ;print data cards on hold
CHOOSE ;choose line to edit
ERROR ;Error messages for incomplete data
ASK
HOLD
PENDQ
NV

External References

Name Field # of Occurrence
NOW^%DTC QUEUE+2
^%ZTLOAD QUEUE+3
IN^DGHELP ASK+1
END^DGQEMA PENDQ, FREEQ
NUM^DGQEMA YN
^DIC QUEUE+1, PEND+1
YN^DICN YN

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !?3,"Enter 'P'rint or 'H'old"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"Data card queued"
  • Line Location: QUEUE+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !?3,K,"> ",DGLINE(K)
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !?3,"Enter 'Y'es to edit the above date, otherwise 'N'o"
  • Line Location: YN+2
Function Call: READ
  • Prompt: "Choose a line (1-9): "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: CHOOSE+1
Function Call: WRITE
  • Prompt: !?3,"Enter the numbers of the lines to edit separated by commas (ex. 1,2,3)"
  • Line Location: CHOOSE+3
Function Call: WRITE
  • Prompt: !!?5,"WARNING: You must enter the entire line(s) again",!
  • Line Location: CHOOSE+5
Function Call: WRITE
  • Prompt: !!?3,"There are no ",$P(DGX,"^",1)," cards on hold to be printed",!
  • Line Location: PEND+2
Function Call: WRITE
  • Prompt: !,*7,"Data card NOT queued"
  • Line Location: NO+1
Function Call: WRITE
  • Prompt: !,*7,"Data card NOT queued"
  • Line Location: FREE+5
Function Call: READ
  • Timeout: DTIME
  • Variable: Y
  • Line Location: FT+0
Function Call: WRITE
  • Prompt: !,?4,"You may enter a free text comment for this line on the Patient card."
  • Line Location: FT+1
Function Call: WRITE
  • Prompt: !,?4,"Text must be less than 27 characters."
  • Line Location: FT+2
Function Call: WRITE
  • Prompt: !,?2,"Lower case characters and the following symbols: (#),(@),("") are not allowed."
  • Line Location: FT+3
Function Call: WRITE
  • Prompt: !,Y," MISSING"
  • Line Location: ERR+0
Routine Call
  • DIC
  • Line Location:
    • QUEUE+1
    • PEND+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(39.1 - [#39.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(2 NV, NV+1
^DIC(39.1 - [#39.1] ASK, HOLD+1*, HOLD+2, HOLD+3*, HOLD+4*, QUEUE+1, PEND+2, FREE+1
^DIC(39.3 - [#39.3] QUEUE
^DPT - [#2] ERROR+1, ERROR+3, ERROR+4, NV, NV+1, NV+2

Label References

Name Line Occurrences
ASK ASK+1
CHOOSE CHOOSE+3
EDIT CHOOSE+2, CHOOSE+8, FREE+6
EN YN
ERR ERROR+1, ERROR+3, ERROR+4, NV, NV+1, NV+2
FREEQ FREE+1, FREE+2
FT CHOOSE+6, FREE+4, FT+1, FT+2, FT+3
HOLD EN+1
NO ASK, QUEUE+1, YN, YN+1, CHOOSE+1, CHOOSE+7
NV ERROR+2
PEND PEND+2, PEND+5
PENDQ PEND+1
PRINT EN+2, ASK+2
QUEUE PEND+4
YN YN+2

Naked Globals

Name Field # of Occurrence
^( ERROR+1, ERROR+3, ERROR+4
^(0 QUEUE, FREE+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK+1, QUEUE+2, YN*, YN+1, YN+2
>> %Y YN
>> AMT HOLD*, HOLD+2*, HOLD+3, HOLD+4
DFN HOLD+3, FREE+1*, FREEQ!, ERROR+1, ERROR+3, ERROR+4, NV, NV+1, NV+2
>> DGCOUNT HOLD+5
>> DGE ERROR+1*, NV+2*, ERR*
>> DGFL CHOOSE+6, CHOOSE+7, FREE+4, FREE+5, FT*
>> DGHD EN*, EN+1, EN+2, FREE+3*
>> DGLINE( HOLD+4, EDIT+1, CHOOSE+6*, FT+4*
>> DGLN CHOOSE+6*
DGMANFL YN, FREEQ!
>> DGQUAN HOLD+3
>> DGTYP ASK, HOLD+1, HOLD+2, HOLD+3, HOLD+4, QUEUE+1, PEND+2*, FREE+2*
>> DGX EN, QUEUE, PEND+2*, FREE+2*
DIC QUEUE!, QUEUE+1*, PEND+1!*
DIC("A" QUEUE+1*, PEND+1*
DIC("B" QUEUE*
DIC(0 QUEUE+1*, PEND+1*
DTIME ASK, CHOOSE+1, FT
>> DTOUT YN
>> I HOLD*, HOLD+2*, NV*, NV+1*
>> K HOLD+4*, EDIT+1*, CHOOSE+6*, FREE+4*, FT, FT+4
>> S PRINT+1, FREE+1*, ERROR+2
>> X ASK*, ASK+2, CHOOSE+1*, CHOOSE+2, CHOOSE+3, CHOOSE+6, NV*, NV+1*
>> Y QUEUE+1, QUEUE+3, PEND+1, PEND+2, FT*, FT+1, FT+2, FT+3, FT+4, ERROR+1*
, ERROR+3*, ERROR+4*, NV*, NV+1*, NV+2*, ERR
>> Z ASK+1*
>> ZTDESC PRINT+1*, PEND+3*
>> ZTDTH QUEUE+2*
>> ZTIO QUEUE+3*
>> ZTRTN PRINT+1*, PEND+3*
>> ZTSAVE("DFN" PRINT+1*
>> ZTSAVE("DGLINE(" PRINT+1*
>> ZTSAVE("DGQUAN" PRINT+1*
>> ZTSAVE("DGTYP" PRINT+1*, PEND+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