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
Print Page as PDF
Routine: PRCOCSC

Package: IFCAP

Routine: PRCOCSC


Information

PRCOCSC ;WISC/DJM - Generic Code Sheet Status Change ;4/23/96 9:53 AM

Source Information

Source file <PRCOCSC.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.0;IFCAP;**70**;4/21/95
EN ;-- entry point.
EN1 ;-- entry point from taskman.
EXIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,*7,!!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !?10,"This routine changes ALL code sheets created before "
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !?10,"'",$$FMTE^XLFDT(CRDT),"' that have a status of 'TRANSMITTED'"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !?10,"and changes the status to 'ACCEPTED BY FMS'."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: " no action taken."
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: !,"No Create Date (CRDT). Program exiting."
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT($$NOW^XLFDT)
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: !,"Changing Generic Code Sheets created before ",$$FMTE^XLFDT(CRDT)
  • Line Location: EN1+8
Function Call: WRITE
  • Prompt: !," from a status of 'TRANSMITTED'"
  • Line Location: EN1+9
Function Call: WRITE
  • Prompt: !," to a status of 'ACCEPTED BY FMS'."
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: !!,COUNT," record",$S(COUNT=1:"",1:"s")," updated."
  • Line Location: EN1+49
Info |  Source |  Entry Points |  Interaction Calls