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

Package: Registration

Routine: DGPTF41


Information

DGPTF41 ;ALB/JDS/PLT - PTF ENTRY/EDIT-4 ;11/15/06 8:37am

Source Information

Source file <DGPTF41.m>

Entry Points

Name Comments DBIA/ICR reference
ACT ; -- 701 actions
READ ; -- read X
HELP ;
ACT1 ;
REL ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," PTF ",$J("#"_PTF,7),?15,"actions: 1=Edit C=Close ^N=Another Screen",!
  • Line Location: ACT+3
Function Call: WRITE
  • Prompt: "CENSUS ",$S(DGCI:$J("#"_DGCI,7),1:" record"),?15,"actions: ",$S(DGCST=1:"P=Open E=Release",1:" L=Close")
  • Line Location: ACT+4
Function Call: WRITE
  • Prompt: !?15," ^=Abort <RET> to Continue: "
  • Line Location: ACT+7
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: READ+1
Function Call: WRITE
  • Prompt: !,"Enter '1' to edit Principal & Admit Diagnosis"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !," 'C' to close out PTF record"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !," '^' to stop the display"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !," '^N' to jump to screen #N (appears in upper right of screen '<N>')"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !," <RET> to continue on to the next screen"
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !," PTF ",$J("#"_PTF,7),?15,"actions: O=Open R=Release ^N=Another Screen",!
  • Line Location: ACT1+1
Function Call: WRITE
  • Prompt: "CENSUS ",$J("#"_DGCI,7),?15,"action : E=Release"
  • Line Location: ACT1+2
Function Call: WRITE
  • Prompt: !?15," ^=Abort <RET> to continue: "
  • Line Location: ACT1+3
Function Call: WRITE
  • Prompt: !,"Enter 'O' to re-open a PTF record"
  • Line Location: ACT1+12
Function Call: WRITE
  • Prompt: !," 'R' to release a PTF record"
  • Line Location: ACT1+13
Function Call: WRITE
  • Prompt: !," 'E' to release a Census record"
  • Line Location: ACT1+14
Function Call: WRITE
  • Prompt: !," '^' to stop the display"
  • Line Location: ACT1+15
Function Call: WRITE
  • Prompt: !," '^N' to jump to screen #N (appears in upper right of screen '<N>')"
  • Line Location: ACT1+16
Function Call: WRITE
  • Prompt: !," <RET> to continue on to the next screen"
  • Line Location: ACT1+17

FileMan Files Accessed Via FileMan Db Call

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